Работа со строками - преобразование, ... удаляем нечётные символы Опции

[NEFFboy]

Кто поможет решить задачу на Delphi, буду очень благодарен:
Дана строка. Преобразовать ее, удалив каждый нечетный символ * и повторив каждый символ, предшествующий *.

З.Ы. Строки можно брать и .txt файла или вводить самому, через Write и Read.

[Адель]

удаление:

  readln(s);
  k:=0;
  i:=0;
  while i<>Length(s) do
  begin
    if s[i]='*' then
    begin
      inc(k);
      if k mod 2<>0 then
      begin
        delete(s,i,1);
        dec(i);
      end;
    end;
    inc(i);
  end;
  writeln(s);

вставлять Insert'ом, вот только не очень понятно: вставлять после или до удаления
зы: не надо здесь про делфи, и через Write не вводится)

Сообщение отредактировано: Адель - 11.05.2007 12:59

[hardcase]

function Asterisk(const s: string): string;
var i: integer;
	AsterCount: integer;
begin
	if Length(s) = 0 then 
		Exit;
	if s[1] = '*' then 
		AsterCount := 1
	else
		AsterCount := 0;
	for i := 2 to Length(s) do begin
		if s[i] = '*' then begin
			inc(AsterCount);
			Result := Result + s[i-1];
			if asterCount mod 2 <> 0 then
				Continue;
		end;
		Result := Result + s[i];
  end;
end;

[Tan]

Адель, если создать в Delphi консольное приложение, то всё можно

[volvo]

Можно... Только не в этом разделе... Здесь это будет нарушением правил, как например, пост №3 - ибо приведенный фрагмент Паскалем не откомпилируется! (Ну разные это языки, Паскаль и Дельфи!!! )

[NEFFboy]

Адель, я имел ввиду:

write ('Введите строку: ');
readln(s);

Я не прав? =)

[NEFFboy]

не надо здесь про делфи

не путай Turbo Pascal и Object Pascal

[Ozzя]

NEFFboy
Delphi, начиная с версии 7 - язык отдельный. Так нам сказали. В Borland.