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

Text23. Дано целое число $$K$$ $$(0<K<10)$$ и текстовый файл, содержащий более $$K$$ строк. Создать новый текстовый файл, содержащий $$K$$ последних строк исходного файла.

Решение:

program Text23;
var
  F_in,F_out: Text;
  Name1,Name2: string;
  SA:array [1..10] of string;
  i,K:integer;

begin
 Write('File name in: ');
 Readln(Name1);

 Write('File name out: ');
 Readln(Name2);

 Write('K: ');
 Readln(K);

 Assign(F_in,Name1);
 Reset(F_in);

 For i:=k downto 1 do Readln(F_in,SA[i]);

 While not eof(F_in) do
  begin
   For i:=k downto 2 do SA[i]:=SA[i-1];
   Readln(F_in,SA[1]);
  end;

 Close(F_in);
 Assign(F_out,Name2);
 Rewrite(F_out);
 For i:=k downto 1 do Writeln(F_out,SA[i]);
 Close(F_out);
end.

program Text23;

var

F_in,F_out: Text;

Name1,Name2: string;

SA:array [1..10] of string;

i,K:integer;

begin

Write('File name in: ');

Readln(Name1);

Write('File name out: ');

Readln(Name2);

Write('K: ');

Readln(K);

Assign(F_in,Name1);

Reset(F_in);

For i:=k downto 1 do Readln(F_in,SA[i]);

While not eof(F_in) do

begin

For i:=k downto 2 do SA[i]:=SA[i-1];

Readln(F_in,SA[1]);

end;

Close(F_in);

Assign(F_out,Name2);

Rewrite(F_out);

For i:=k downto 1 do Writeln(F_out,SA[i]);

Close(F_out);

end.

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

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

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

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