Версия для печати темы

Автор: NEFFboy 11.05.2007 10:48

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

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

Автор: Адель 11.05.2007 12:58

удаление:

  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 не вводится)

Автор: hardcase 11.05.2007 21:30

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 11.05.2007 22:02

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

Автор: volvo 11.05.2007 22:18

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

Автор: NEFFboy 11.05.2007 22:21

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

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

Я не прав? =)

Автор: NEFFboy 15.05.2007 19:27

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

Автор: Ozzя 15.05.2007 19:30

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