Задача в Паскале:Создать текстовый файл f и g, компанентами которого являются случайные целые числа. Записать в файл h сначала к
Задача в Паскале:
Создать текстовый файл f и g, компанентами которого являются случайные целые числа. Записать в файл h сначала компаненты файла f, а затем компоненты файла g с сохранением порядка.
const n = 10; //количество чисел, которое нужно сформировать First = -10; //С какого числа должны генерироваться случайные числа Second = 15;{По какое число должны генерироваться случайные числа(например в данном случае случайные числа генерируются в диапазоне от - 10 до 15)}
var f, g, h: text; i: integer; Number: array [1..n] of integer;{Массив, в который записываются числа, считанные из файлов}
begin randomize; assign(f, 'f.txt');//Инициализируем файл f assign(g, 'g.txt');//Инициализируем файл g assign(h, 'h.txt');//Инициализируем файл h rewrite(f);//Открываем файл f для записи for i:= 1 to n div 2 do write(f, random(abs(First) + abs(Second)) + First , ' ');{Первую половину чисел записываем в файл f} close(f);//Закрываем файл f rewrite(g);//Открываем файл g для записи for i:= (n div 2) + 1 to n do write(g, random(abs(First) + abs(Second)) + First, ' ');{Вторую половину случайно сгенерированных чисел записываем в файл g} close(g);//Закрываем файл g reset(f);//Открываем файл f для считывания for i:= 1 to n div 2 do read(f, Number[i]);{Первую половину чисел считываем из файла f в массив} close(f);//Закрываем файл f reset(g);//Открываем файл g для считывания for i:= (n div 2) + 1 to n do read(g, Number[i]);{Вторую половину чисел считываем из файла g в массив} close(g);//Закрываем файл g rewrite(h);//Открываем файл h для записи for i:= 1 to n div 2 do write(h, Number[i], ' ');{Первую половину считанных чисел из массива записываем в файл h} writeln(h);//Перевод на новую строку в файле h for i:= (n div 2) + 1 to n do write(h, Number[i], ' ');{Вторую половину считанных чисел из массива записываем в файл h} close(h);//Закрываем файл h end.
Все файлы создаются там же, где находится файл программы.
Алг а1 нач вещ первое, второе ввод первое, второе вывод первое/второе кон
<em><u>Тестовое решение:</u></em> >> 01:12:23 - Новая программа* - Выполнение начато 16.5 3 5.5 >> 01:12:34 - Новая программа* - Выполнение завершено
алг а2 нач цел число1, число2, число3, произведение ввод число1, число2, число3 произведение:= число1*число2*число3 если произведение <50 то вывод 10*число1,", ",10*число2,", ",10*число3 иначе вывод произведение все кон
Тестовое решение: >> 01:18:48 - Новая программа* - Выполнение начато 4 2 3 40, 20, 30 >> 01:18:59 - Новая программа* - Выполнение завершено
>> 01:20:19 - Новая программа* - Выполнение начато 5 6 7 210 >> 01:20:23 - Новая программа* - Выполнение завершено
Select * from readers (условное название таблицы читателей) where reader_id not in (select reader_id from books (условное название таблицы книг) where year(date_taken)=year(date())-1) (см. руководство по синтаксису и функциям применительно к конкретной версии SQL).