Решенные задачи на языке Паскаль
Условие задачи прислали на e-mail.
Заполнить файл действительными числами из отрезка [-100;100]. Переписать в другой файл те числа, целая часть которых является четным числом. Определить число элементов первого и второго файлов. Вывести на печать все элементы исходного файла; отрицательные элементы исходного файла; все элементы второго файла.
var f1,f2:text; di,i:real; BEGIN writeln('Создание файла file1.txt'); assign(f1,'file1.txt'); rewrite(f1); di:=0.5; i:=-100; while i<=100 do begin writeln(f1,i:4:1); i:=i+di; end; close(f1); writeln('Файл file1.txt создан!'); writeln; writeln('Создание файла file2.txt и запись в него те числа, целая часть '); writeln('которых является четным числом'); reset(f1); assign(f2,'file2.txt'); rewrite(f2); while not eof(f1) do begin readln(f1,i); {считать из файла f1 число i } if (trunc(i)mod 2)=0 then writeln(f2,i:4:1); {если челая часть числа trunc(i) } {делится на 2 и остаток от деления } {равен 0, тогда записать число i в } {файл f2 } end; close(f1); close(f2); writeln('Файл file2.txt создан!'); writeln; writeln('Нажмите Enter для печати всех элементов исходного файла...'); readln; reset(f1); while not eof(f1) do begin readln(f1,i); write(' ',i:4:1); end; close(f1); writeln; writeln('Нажмите Enter для печати отрицательных элементов исходного файла...'); readln; reset(f1); while not eof(f1) do begin readln(f1,i); if i<0 then write(' ',i:4:1); end; close(f1); writeln; writeln('Нажмите Enter для печати всех элементов второго файла...'); readln; reset(f2); while not eof(f2) do begin readln(f2,i); write(' ',i:4:1); end; close(f2); writeln(' Нажмите Enter для выхода...'); readln; END.