Pascal.Работа с текстом

[infernal110]

Всем Здраствуйте!У меня такая проблемка возникла,мне дали задание а выполнить как его я незнаю,вот текст задания:Написать предложение,в нем все входные буквы "а" заменить на пробел.Помогите написать программу,думаю для вас это не составит особого труда,Заранее спасибо!

[IT-man]

var s:string;i:integer;
begin
readln(s);
for i:= 1 to length(s) do
if s[i]='a' then  s[i]:=' ';
writeln(s);
end.

[Poma][a]

Сообщение от IT-man

var s:string;i:integer;
begin
readln(s);
for i:= 1 to length(s) do
if s[i]='a' then  s[i]:=' ';
writeln(s);
end.

лучше применять Pos

program Task8;

var
          s : string;
          i  : Integer;
begin
          ReadLn (s);
          i := Pos ('a', s);
          while i > 0 do begin
                   s[i] := 'a';
                   i := Pos (' ', s);
          end;
          WriteLn (s)
end.

[IT-man]

лучше применять Pos

чем лучше то?

program Task8;

var
s : string;
i : Integer;
begin
ReadLn (s);
i := Pos ('a', s);
while i > 0 do begin
s[i] := 'a';
i := Pos ('a', s);
end;
WriteLn (s)
end.

может все таки

s[i] := ' ';

[Poma][a]

Сообщение от IT-man

чем лучше то?

моя программа эффективней

[IT-man]

моя программа эффективней

кто ж сомневался то)

[Poma][a]

Сообщение от IT-man

кто ж сомневался то)

нет ну сам подумай! допустим ввели стоку где нет символа 'a' твоя программа будет проверять КАЖДЫЙ символ! моя с помощью функции Pos, не найдет символа вернет нолик, и программа завершиться.
и с другими вариантами почти также! так что моя ЛУЧШЕ.

[IT-man]

Poma][a Посмотри в кишки функции Pos! разберись как она работает! ну а потом мы с тобой в ПМ обсудим чья

программа эффективней