Программа работа с файлом в языке Turbo Pascal

Задание

Создать файл, внести в него последовательность строчных и прописных букв. Прочитывая их с этого файла символы в одиночку заменять все строчные символы на прописные.

Выбор алгоритма решения задачи

В данной задаче необходимо создать файл, внести у него русский текст, закрыть его (при этом все, что у него записывается сохраняется). После этого необходимо открыть его, считать все буквы и заменить символы на прописные. Результат вывести на консоль.

Описание решения задачи

Данную задачу можно развязать следующим способом: объявим файл типа char ff=file of char. Соединяем его с физическим диском assign(f, 'c:\lab7.txt'), создаем и открываем его Rewrite(f). После этого вносим в него необходимую информацию. Закрываем его close(f). После этого открываем его для считывания. Делаем цикл пока нет конца файла и в этом цикле изменяем все буквы на прописные (upcase(text2[i]);).

Схема алгоритма решения задачи

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

PROGRAM lab;
Type
ff=file of char;
VAR
i,max:byte;
f:ff;
text:string;
text2:array[1..255] of char;
begin
assign(f, 'c:\lab7.txt');     {присвоение файлу a.txt  логическое имя f } 
Rewrite(f); {открытие файла для записи}
reset(f);
write('vvedite RUSKIY TEXT: ');
readln(text);
for i:=1 to length(text) do  {запись в файл}
write(f,text[i]);
close(f); {закрытие файла}
reset(f); {открытие файла}
i := 0;
while (Eof(f)=false) do begin     {цикл считывания с файла}
i:=i+1;
read(f,text2[i]);
text2[i] := upcase(text2[i]);   {замена на прописные буквы}
end;
close(f); {закрытие файла}
reset(f); {открытие файла}
writeln('Text v file: ');
max := i;
for i:=1 to max do begin {цикл записи в файл}
write(text2[i]); {вывод в консоль}
write(f,text2[i]);
end;
close(f); {закрытие файла}
readln;
end.

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