Дана строка, состоящая из русских слов, набранных заглавными бук- вами и разделенных пробелами (одним или несколькими). Преобразо

[nadyaH]

НЕО.

var
Dano:string; 
i:integer;  
otvet:String; 
Sumbol:char; 
begin
Dano:=edit1.Text;
Sumbol:=Dano[1];
for i:=1 to length(Dano) do
begin
if Dano[i]=Sumbol then otvet:=otvet+'.'
else otvet:=otvet+Dano[i];
if (Dano[i]=' ')and(Dano[i+1]<>' ') then Sumbol:=Dano[i+1];
end;
edit2.Text:=otvet;
end;end.

вот программа она работает. но работает не правильно. по этой программе мне хоть немного понятно. помогите разобраться в чём ошибка.

[Stilet]

Вот как работает твоя программа:
Безымянный.jpg
Так тебе хочется?

[nadyaH]

нужно преобразовать МИНИМУМ» в «МИНИ.У.>
а получается что .ини.у.(неправильно).
По условию задачи если первая буква М то в последующие М заменяются на точки в данном слове.следующие слова преобразуются по такому же принципу.

[Stilet]

var
Dano:string; 
i:integer;  
otvet:String; 
Sumbol:char; 
begin
Dano:='mammagamma yamagiry maru';
i:=1;
while i<=Length(dano) do begin
 if (i=1) then begin
  Sumbol:=Dano[i];
  inc(i);
 end else
 if (dano[i]=' ') then begin
  inc(i);
  Sumbol:=Dano[i];
  inc(i);
 end else 
 if dano[i]=Sumbol then dano[i]:='.';
 inc(i);
end;
write(dano);
end.

Так годится?

[nadyaH]

годиться но не совсем.
редактировала строку

if (dano[i]=' ') or(dano[i]='  ') then begin

почему слово: жжение
так в ответ и выходит. значит что то не так.

[Stilet]

Ну все. Сдаюсь...

[Аватар]

Ладно, теперь моя очередь подвиг совершить

var Dano:string; 
    i:integer;  
    otvet:String; 
    Sumbol:char; 
begin
  Dano:='mammagamma yamagiry maru';
  k:=0;
  for i:=1 to Length(dano) do begin
    c2:=dano[i];
    if c2=' ' then k:=0
    else if k=0 then begin
      k:=i;
      c1:=c2;
    end
    else if c2=c1 then c2:='.';
    dano[i]:=c2;
  end;
  write(dano);
end;

[nadyaH]

спасибо огромное разобралась благодаря вам!!! спасибки

[Stilet]

mammagamma yamagiry maru

Плагиаторщик, хоть бы свое заклинание придумал... )

[Аватар]

Никакого плагиата Это уже общественное достояние. Хорошие заклинания на земле не валяются. А этому бы и Гарри позавидовал