Помощь - Поиск - Пользователи - Календарь
Полная версия: Работа со строками - преобразование
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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 не вводится)
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 консольное приложение, то всё можно smile.gif
volvo
Можно... Только не в этом разделе... Здесь это будет нарушением правил, как например, пост №3 - ибо приведенный фрагмент Паскалем не откомпилируется! (Ну разные это языки, Паскаль и Дельфи!!! )
NEFFboy
Адель, я имел ввиду:

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



Я не прав? =)
NEFFboy
Цитата(Адель @ 11.05.2007 9:58) *

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

не путай Turbo Pascal и Object Pascal
Ozzя
NEFFboy
Delphi, начиная с версии 7 - язык отдельный. Так нам сказали. В Borland.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.