Примеры выполнения задания 9

Дан текстовый файл abc.txt. Удалить из каждой строки файла abc.txt все пробелы и расположить символы строки в обратном порядке.

Результат записать в файл def.txt.

Примечание. Формирование текстового файла с исходными данными abc.txt можно выполнить в любом текстовом редакторе, в том числе и в редакторе Турбо Паскаля.

Порядок создания файла:

- войти в редактор Турбо Паскаля;

- набрать несколько строк текста (в конце последней строки обязательно нажать Enter);

- сохранить под именем: abc.txt.

program lab6;

uses crt;

var s: string;

f, g: text;

n,k,i:integer;

begin clrscr;

assign (f, ¢abc.txt¢);

assign (g, ¢def.txt¢);

reset (f); {открыть файл abc.txt на чтение}

rewrite (g); {открыть файл def.txt на запись}

while not eof (f) do

begin readln (f, s); {текущая строка файла запишется в ОЗУ в ячейку, отведенную под переменную s }

п:= pos(¢ ¢); {позиция первого по порядку пробела}

while n > 0 do

begin

delete(s, n, 1); {удаление пробела в позиции п }

п:= pos(¢ ¢);

end;

{формирование новой строки s 1 из символов строки s,

расположенных в обратном порядке}

k:=length(s);

for i:= 1 to k do

s 1[ i ]:= s [ k +1- i ];

{запись строки s 1 в файл g }

writeln(g, s 1);

end; close(f); close(g);

end.

Тема 10

Работа с комбинированными типами данных

(записями)