Решаем задачи Абрамян на Паскале. Text46

Text46. Дан текстовый файл, каждая строка которого содержит изображения нескольких чисел, разделенные пробелами (вещественные числа имеют ненулевую дробную часть). Создать файл вещественных чисел, содержащий (в том же порядке) все числа из исходного файла, имеющие ненулевую дробную часть.

Решение:

program Text46;
var
  F_in: Text;
  F_out: file of Real;
  Name:string;
  R:Real;

begin
 Write('File in name: ');
 Readln(Name);
 Assign(F_in,Name);
 Reset(F_in);

 Write('File out name: ');
 Readln(Name);
 Assign(F_out,Name);
 Rewrite(F_out);

 While not eof(F_in) do
  begin
   While not eoln(F_in) do
    begin
     Read(F_in,R);
     if R-trunc(R)<>0 then Write(F_out,R);
    end;
   Readln(F_in);
  end;

 Close(F_in);
 Close(F_out);
end.

program Text46;

var

F_in: Text;

F_out: file of Real;

Name:string;

R:Real;

begin

Write('File in name: ');

Readln(Name);

Assign(F_in,Name);

Reset(F_in);

Write('File out name: ');

Readln(Name);

Assign(F_out,Name);

Rewrite(F_out);

While not eof(F_in) do

begin

While not eoln(F_in) do

begin

Read(F_in,R);

if R-trunc(R)<>0 then Write(F_out,R);

end;

Readln(F_in);

end;

Close(F_in);

Close(F_out);

end.

Другие задачи из раздела Text можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Text46

Комментарии:

Добавить комментарий Отменить ответ