Работа со строками

[ponchikpk]

Задача вроде такая простая, но почему то не работает Помогите пожайлуйста, кто может!

Дана символьная строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от *
Например: ga*4f*d и должно получится ggaa44ffdd...
Только чтобы строковая переменная была одна!

uses crt;
var s:string;
i:integer;
BEGIN
clrscr;
readln(s);
for i:=1 to length(s) do
  if s[i]='*' then delete(s,i,1);
for i:=length(s) to 2 do
  begin
  s[i+i-1]:=s[i];
  s[i+i]:=s[i];
  end;
writeln(s);
readln;
END.

[__STDC__]

uses crt;
var s:string;
i:integer;
BEGIN
clrscr;
readln(s);
for i:=1 to length(s) do
  if s[i]='*' then delete(s,i,1);
i:=1;
while i<=length(s) do begin
 Insert(s[i],s,i+1);
 i:=i+2;
end;
writeln(s);
readkey;
END.

[ponchikpk]

__STDC__ спасибо тебе огромное только у мя вопрос а поч моя версия не работает?

[__STDC__]

Ну у тебя во-первых эл-ты массива исходного теряются при замене.. тут Insert надо.. а во-вторых непонятен сам принцип... зачем например в
s[i+i-1]:=s[i]; вот такой индекс i+i-1? 2i-1 получается.. странно... Так что я не вникал особо, просто переписал =)

[ponchikpk]

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

[capta1n]

for i:=length(s) to 2 do
  begin
 s[i+i-1]:=s[i];
  s[i+i]:=s[i];
  end;

то, что красным, писать надо downto, потому что счетчик убывает я так понял, потому что последнее значение '2' в операторном цикле for;
то, что синем работает непонятно - два раза заменяете одним и тем же символом, теряя остальные символы строки, причем разрываете строку, оставляя место между length(s) и s[i+i-1] не заполненным, поэтому программа не работает;
да и таким способом строку вы увеличиваете, в любом случае сторока быдет увеличиваться, если только просто не выводить на экран

[__STDC__]

он увеличивает длину строки вдвое начиная заполнять с конца... вроде бы..

[capta1n]

начиная с конца он оставляет неизвестными ячейки для символов, которые находятся между концом и началом, ну я уж так на более понятном языке

[OCTAGRAM]

Лучше использовать этот тест: ga*4f**d

здесь две * подряд

[__STDC__]

Какая разница? С удалением звезд нет проблем...
если исправить to на downto, как было справедливо замечено выше, то работать она все равно не будет... можно это проверить, воспользовавшись отладчиком. Получим такое

(gdb) break 11
Breakpoint 1 at 0x804816c: file test.pas, line 11.
(gdb) run
Starting program: /home/user/FPC/test
qwerty

Breakpoint 1, main () at test.pas:11
11       s[i+1]:=s[i];
(gdb) print i
$1 = 6
(gdb) print s
$2 = 'qwerty'
(gdb) next
10       s[i+i-1]:=s[i];
(gdb) next

Breakpoint 1, main () at test.pas:11
11       s[i+1]:=s[i];
(gdb) print i
$3 = 5
(gdb) print s
$4 = 'qwerty'
(gdb)

Т.е. видим, что при таком коде s вообще не меняется с каждой итерацией... вот если бы Insert... =)