Работа с файлами - Pascal (251659)

Формулировка задачи:

Есть два файла: 1. slova - в нем 8 слов; 2. ok - в нем 8 окончаний. Задание: от слов из первого файла удалить окончания, а результат сохранить в третьем файле.

Решение задачи: «Работа с файлами»

Листинг программы

var f,g,h:text;
    s,s1:string;
begin
assign(f,'slova.txt');
reset(f);
assign(g,'ok.txt');
reset(g);
assign(h,'result.txt');
rewrite(h);
while not eof(f) do
 begin
  readln(f,s);
  readln(g,s1);
  delete(s,length(s)-length(s1)+1,length(s1));
  writeln(h,s);
 end;
close(f);
close(g);
close(h);
write('Окончания из первого файла удалены, результат записан в файл result.txt');
end.

Объяснение кода листинга программы

Объявлены три переменные: f, g, h типа text.
Переменным s, s1 присвоено значение типа string.
Выполняется операция присваивания для переменной f, значение которой будет 'slova.txt'.
Выполняется операция открытия файла с именем 'slova.txt' для чтения.
Выполняется операция присваивания для переменной g, значение которой будет 'ok.txt'.
Выполняется операция открытия файла с именем 'ok.txt' для чтения.
Выполняется операция присваивания для переменной h, значение которой будет 'result.txt'.
Выполняется операция открытия файла с именем 'result.txt' для записи.
В цикле while происходит чтение строк из файла f и запись их в переменную s.
В цикле while происходит чтение строк из файла g и запись их в переменную s1.
В строке s удаляются все символы, начиная с последнего символа строки s1 и заканчивая предпоследним символом строки s.
В цикле while происходит запись измененной строки s в файл h.
Выполняются операции закрытия файлов f, g, h.
Выводится сообщение о том, что окончания из первого файла удалены, и результат записан в файл result.txt.