Изучение языка программирования
Турбо Паскаль (Turbo Pascal)

На этом сайте можно: скачать среду программирвания Турбо Паскаль, изучить язык программирования Турбо Паскаль, а так же скачать программы на языке Турбо Паскаль!
Решенные задачи на языке Паскаль



Условие задачи прислали на 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.