Записать в файл одномерный массив случайных чисел, скопировать четные элементы в другой файл. - Pascal
Формулировка задачи:
Составьте программу записывающую в файл одномерный массив случайных
чисел, а затем считывающую его с диска и выполняющую запись четных элементов
в другой файл.
p.s.
начал не могу закончит
var f2,f1:text; n,i:integer; a: array[1..10] of integer; begin Assign(f1, 'D:\123\f.txt'); Rewrite(f1); write('Skolko 4isel v massive n='); readln(n); begin randomize; for i:=1 to n do begin a[i]:=random(n); write(f1, a[i],' '); end; end; close(f1); ............. end.
Решение задачи: «Записать в файл одномерный массив случайных чисел, скопировать четные элементы в другой файл.»
textual
Листинг программы
var f, g : Text; i, n : Byte; k : Integer; begin Randomize; Write('Input n='); ReadLn(n); Assign(f, 'asdasd'); ReWrite(f); for i := 0 to n-1 do WriteLn(f, (Random(50)-20)); Close(f); Reset(f); Assign(g, 'dsadsa'); ReWrite(g); while not Eof(f) do begin ReadLn(f, k); if not Odd(k) then WriteLn(g, k); end; Close(f); Close(g); end.
Объяснение кода листинга программы
- Объявлены переменные:
- f, g — текстовые переменные;
- i, n — булевые переменные;
- k — целочисленная переменная.
- Выполняется инициализация генератора случайных чисел с помощью функции Randomize.
- Пользователю предлагается ввести значение переменной n.
- Переменная f присваивается имя 'asdasd', а затем открывается для записи с помощью функции Assign, после чего в нее записываются n случайных чисел с помощью цикла for и функции WriteLn.
- Переменная f закрывается с помощью функции Close, после чего повторно открывается для чтения с помощью функции Reset.
- Переменная g присваивается имя 'dsadsa', после чего открывается для записи с помощью функции Assign.
- В цикле while, который выполняется до тех пор, пока не достигнут конец файла f, считывается каждое число из файла f, проверяется его четность с помощью функции Odd, и если число четное, то записывается в файл g с помощью функции WriteLn.
- После окончания чтения файла f, он закрывается с помощью функции Close, после чего закрывается и файл g с помощью функции Close.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д