Лабораторная работа 5

Уфимский государственный авиационный технический университет

Кафедра информатики

Лабораторная работа №5

Файлы

Уфа – 2004

Задача:

Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок

следования букв в каждой строке на противоположный.

Блок схем алгоритма:

Таблица используемых значений

Имя	Тип	Назначение переменной	Описание
F	text	внутренняя	Адрес файла text.txt
F1	text	внутренняя	Адрес файла text1.txt
s	array[1..100]	внутренняя	Массив
s1	array[1..100]	внутренняя	Массив
n	integer		Количество знаков в одной строке
i	integer	внутренняя	Порядковый номер буквы
k	integer	внутренняя	Порядковый номер буквы

Текст программы:

program text;

var

F,F1:Text;

s,s1:array[1..100] of string;

n,i,k,i1:integer;

begin

Assign(F,'c:\text.txt');

Assign(F1,'c:\text1.txt');

ReSet(F);

ReWrite(F1); i:=1; while not EOF(F) do

begin

Readln(F,s[i]); n:=Length(s[i]);

for k:=1 to n do

begin

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

end;

Writeln(F1,s1[i]);

i:=i+1;

end;

Close(F);

Close(F1);

write(s1[1]);

readln;

writeln ('Создан файл text1 с обратным порядком следования букв в каждой строке');

readln;

end.

Результат работы программы:

Создан файл text1 с обратным порядком следования букв в каждой строке.

До запуска программы:

После запуска программы: