Заменить в строке ":" на "."

[answ]

Program Lab
Var
a:string;
F:text;
i:integer;
Begin
Assign(F,'D:\Users\Lab.dat');
Rewrite(F);
for i:= to length(a) do
if a[i]=':' then a[i]:='.';
writeln(i);
writeln(F,' nova9 stroka');
readln;
close(F);
end.
[/LIST]

[answ]

Вот мой вариант, что неправильно помогите плз!

[zotox]

Сообщение от answ

Вот мой вариант, что неправильно помогите плз!

var
a:string;
F:Text;
i:integer;
begin
 a:='sssxx:wjejxs:weuuxxx'; //строка

 Assign(F,'D:\Users\Lab.dat');
 Rewrite(F);
 for i:=1 to length(a) do
  begin
    if a[i]=':' then a[i]:='.';
    write(F, a[i]);
  end;
 readln;
 close(F);
end.

(делал в делфи но должно и в паскале работать)

[xakkkkker]

Тут совсем не понятно. Ты ничего не присваиваешь переменной а то есть строке который ты будешь редактировать. И запись в файл как то не сходиться у тя. Напиши в аську 4 33 66 89 86 объясню.

Или выложи полное условие задачи

[ROMA2PVT]

var st:string;
  k,i:byte;
  what2look,replacement:char;
  F:text;
begin
Assign(F,'C:\Lab.txt');
rewrite(F);
st:='dfgdfgdfgd:fgdfg:dfgd::';
what2look:=':';
replacement:='.';
i:=pos(what2look,st);
while (i>0) do
  begin
  st[i]:=replacement;
  i:=pos(what2look,st);
  end;
  write(F,st);
writeln('st=',st);
Close(F);
end.

Вот так.Вроди верно.

[Rusl92]

var s:string;
k:integer;
begin
s:='Rusl:';
k:=pos(':',s);
while k<>0 do
begin
delete(s,k,1);
insert('.',s,k);
k:=pos(':',s);
end;
write(s);
readln
end.

[Grag]

А вот так еще красившее будет!!!

Uses Crt;
var 
  s:string;

begin
  s:='Rusl:';
  while Pos(':',s)<>0 do
    begin
      Insert('.',s,Pos(':',s));
      delete(s,Pos(':',s),1)
    end;
  write(s);
  repeat
  until KeyPressed
end.

[eoln]

Я бы так сделал

var
  s:string;
begin
  s:='T:ex:t:';
  while Pos(':',s)<>0 do
    s[Pos(':',s)] := '.';
  writeln(s);
  readln
end.

[Rusl92]

Grag, так не сделал, потому что строка может быть очень длинной, а это уже повторные вычисления!

[Rusl92]

Респект eoln )
гг