Прикладные программы для выполнения на компьютере конкретных . 10 букв.

281

433

Посмотреть ответы 2

Ответы на вопрос:

Lesia3081984

Информатика

4,7(10 оценок)

Стыдно не знать - приложения.

frostywhite

Информатика

4,8(18 оценок)

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); //закрываем файл hend.

все файлы там же, где находится файл программы.