Задача 578 на Pascal
Заполнить файл действительными числами из отрезка [-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.
|
