Вариант 05 задание 3

В текстовом файле содержится последовательность действительных чисел. Из заданной последовательности чисел сформировать таблицу квадратов и кубов ее членов. Полученную таблицу построчно записать в результирующий файл. Имена исходного и результирующего файлов вводятся с клавиатуры.

//Вот тут начало программы

program Proga3;

{$APPTYPE CONSOLE}
var
FileForRead: String;
FileForWrite: String;
TextFile1:Text;
TextFile2:Text;
N, rez2, rez3:Real;

begin
Writeln('Input file for reading ');
Readln(FileForRead);
Writeln('Input file for writing ');
Readln(FileForWrite);
Assign(TextFile1, FileForRead);
Assign(TextFile2, FileForWrite);

Reset(TextFile1);
Writeln('Reading from file ',FileForRead, ' ...');
While not EOF (TextFile1) do
Begin

Read(TextFile1, N);
rez2:=sqr(N);
Rez3:=N*N*N;
Writeln(N:12:2, ' ',rez2:12:2, ' ', rez3:12:2 );

 

Append (TextFile2);
Writeln ( TextFile2, N:12:2, ' ',rez2:12:2, ' ', rez3:12:2);

end;

close(TextFile1);
close(TextFile2);
Writeln;
Writeln ('Press Enter!!!');
Readln;
end.

//Вот тут конец программы