0 / 0 / 0
Регистрация: 05.03.2020
Сообщений: 18
1

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

11.04.2020, 21:38. Показов 506. Ответов 1

Помогите до решать программу. Программа не изменяет буквы
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var f,g:text;
    s:string;
    i:integer;
Begin
    Assign(f,'c:\games\a.txt');Reset(f);{Файл для открытия};
    Assign(g,'c:\games\b.txt');Rewrite(g);{Файл для записи};
    While not Eof(f) do
     Begin
      readln(f,s);
      while pos('o',s)>0 do
        S[Pos('о', S)] := 'а'; 
      writeln(g,s);
     End;
    writeln('Формирование файла закончено!');
    Close(f);Close(g);
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.04.2020, 21:38
Ответы с готовыми решениями:

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

Составить программу, которая в строке s заменяет все вхождения " ph " на " f " а все вхождений " ed " на " ing
Составить программу, которая в строке s заменяет все вхождения " ph " на " f " а все вхождений " ed...

Дан текст. Напишите программу, которая будет заменять в нем все буквы "а" на "за"
///

Составить процедуру которая заменяет в данном слове все буквы "n" на "m"
Составить процедуру, которая:заменяет в данном слове все буквы "n" на "m" program upr4; uses crt;...

1
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
12.04.2020, 07:06 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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] = 'o' then
        s[i] := 'a';
    writeln(g, s);
  end;
  writeln('Формирование файла закончено!');
  Close(f);
  Close(g);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.04.2020, 07:06
Помогаю со студенческими работами здесь

Написать программу, которая заменяет в указанном слове все буквы "b" на сочетание "ky"
Написать программу, которая заменяет в указанном слове все буквы "b" на сочетание "ky"....

составить программу ,которая в строке произвольной длины заменяет все "+" на "*" если за ними следуют не цифры
составить программу ,которая в строке произвольной длины заменяет все "+" на " * " если за ними ...

составить программу ,которая в строке произвольной длины заменяет все"+"на" * "если за ними следуют не цифры
составить программу ,которая в строке произвольной длины заменяет все "+" на " * " если за ними...

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

Считать текст из файла, заменить в нем буквы "о" на "а" и записать файл
Здравствуйте, форумчане! Выручайте! Надо переделать код из паскаля в лазарус для курсовой 1) ...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru