Заменить в тексте все буквы «А» на буквы «О»

@Solbon · Регистрация: 28.02.2011

Author24 — интернет-сервис помощи студентам

Создать в редакторе текстовый файл. Считать этот файл с помощью программы, вывести его на экран. Заменить в тексте все буквы «А» на буквы «О» . Закрыть программу, просмотреть файл в редакторе и убедиться, что он модифицирован в соответствии с заданием.

@KaiTheCat · 28.03.2011, 11:20

Pascal

Var 
St: string;
I: integer;
Begin
Assign(input, 'text.txt');
Reset(input);
Readln(st);
Close(input);
Writeln(st);
For i:=1 to length(st) do 
Begin
If st[i]='A' then st[i]:='O';
If st[i]='a' then st[i]:='o';
End;
Assign(output, 'text.txt');
Rewrite(output);
Writeln(st);
Close(output);
End.

Добавлено через 19 минут
Ims не так написала><
Чуть позже испавлю

@the_crow · 28.03.2011, 12:05

Pascal

Var 
s: string;
i: integer;
f1,f2:textfile;
Begin
Assign(f1, 'input.txt');
Assign(f2, 'output.txt');
Reset(f1);
Rewrite(f2);
while not eof(f1) do
begin  Readln(f1,s);
         for i:=1 to length(s) do
         if s[i]=chr($41) then s[i]:=chr($4F);
         writeln(f2,s);
end;
close(f1);
close(f2);
End.

не проверял.. извиняюсь, если не работает=)

@SunEclipse · 28.03.2011, 12:26

the_crow, в 13 строчке вместо chr($41) и chr($4F) написать 'a' и 'o' соответственно.

@the_crow · 28.03.2011, 12:31

SunEclipse, в чем проблема? о_О почему?

p.s. я сам просто на делфях пишу..

@SunEclipse · 28.03.2011, 12:33

Не знаю, я в Паскале запустил — не работает. Заменил так, как выше описанно, и программа заработала. Все-таки есть какая-то разница в Делфи и Паскаль.

@the_crow · 28.03.2011, 12:38

ну ясно.. в Делфях бы компилятор завозмущался на несоответствие типов string и char=)

@KaiTheCat · 28.03.2011, 14:23

the_crow, Лех, ты почему мне сказал, что моя прога не работает, если она работает?) напугал меня..)

@Solbon 0 / 0 / 1 Регистрация: 28.02.2011 Сообщений: 16
		1
	Заменить в тексте все буквы «А» на буквы «О» 28.03.2011, 10:34. Показов 2131. Ответов 7 Метки нет (Все метки) Создать в редакторе текстовый файл. Считать этот файл с помощью программы, вывести его на экран. Заменить в тексте все буквы «А» на буквы «О» . Закрыть программу, просмотреть файл в редакторе и убедиться, что он модифицирован в соответствии с заданием. 0

@SunEclipse 232 / 181 / 104 Регистрация: 19.03.2010 Сообщений: 949
	28.03.2011, 12:26	4
	the_crow, в 13 строчке вместо chr($41) и chr($4F) написать 'a' и 'o' соответственно. 0

@the_crow последний из ворон 111 / 111 / 63 Регистрация: 02.02.2011 Сообщений: 334
	28.03.2011, 12:31	5
	SunEclipse, в чем проблема? о_О почему? p.s. я сам просто на делфях пишу.. 0

@SunEclipse 232 / 181 / 104 Регистрация: 19.03.2010 Сообщений: 949
	28.03.2011, 12:33	6
	Не знаю, я в Паскале запустил — не работает. Заменил так, как выше описанно, и программа заработала. Все-таки есть какая-то разница в Делфи и Паскаль. 0

@the_crow последний из ворон 111 / 111 / 63 Регистрация: 02.02.2011 Сообщений: 334
	28.03.2011, 12:38	7
	ну ясно.. в Делфях бы компилятор завозмущался на несоответствие типов string и char=) 0

@KaiTheCat К.О. 534 / 499 / 344 Регистрация: 26.03.2011 Сообщений: 1,141
	28.03.2011, 14:23	8
	the_crow, Лех, ты почему мне сказал, что моя прога не работает, если она работает?) напугал меня..) 0