Лекция: Примеры выполнения задания 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;

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

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

k:=length(s);

for i:= 1 to k do

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

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

writeln(g, s1);

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

end.

Тема 10

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

(записями)