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

@Бибулат · Регистрация: 28.05.2012

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

@CodeR · 05.06.2012, 08:22

Pascal

Var f,g:text;
    s:string;
    i:integer;
Begin
    Assign(f,'a.txt');Reset(f);{Файл для открытия};
    Assign(g,'b.txt');Rewrite(g);{Файл для записи};
    While not Eof(f) do
     Begin
      readln(f,s);
      For i:=1 to Length(s) do
       if s[i]='о' then s[i]:='а';
      writeln(g,s);
     End;
    writeln('Формирование файла закончено!');
    Close(f);Close(g);
End.

@Бибулат 0 / 0 / 0 Регистрация: 28.05.2012 Сообщений: 7
		1
	Составить программу, которая считывает текст из файла, заменяет в нем все буквы "о" на "а" и записывает файл на диск 05.06.2012, 00:11. Показов 2937. Ответов 1 Метки нет (Все метки) Составить программу, которая считывает текст из файла, заменяет в нем все буквы "о" на "а" и записывает файл на диск) тема на экзамен помогите __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение