Лабораторная работа 5
.docУфимский государственный авиационный технический университет
Кафедра информатики
Лабораторная работа №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 с обратным порядком следования букв в каждой строке.
До запуска программы:
После запуска программы: