Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная

Задача 578 на Pascal

Оцените материал
(1 Голосовать)

Задача 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.
Прочитано 7413 раз
Другие материалы в этой категории: « Текстовые файлы Задача 579 на Pascal - Шифр Цезаря »

Авторизация



Счетчики