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

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача про символы

Автор: Dan 23.01.2004 4:17

Здравствуйте, помогите пожалуйста написать программку! smile.gif

Ввести с клавиатуры символьный рядок. Модифицировать его по правилу:
Все буквосочетания de поменять на  ed, а все цифры поменять на '*'. Если ни одной замены не сделано, то добавить к рядку символ '{' в начало, а символ '}'  в конец.

Автор: P@sh@ 23.01.2004 9:31

Код

var s: string;
     i: integer;
    m: boolean;
begin
   readln(s); m:=true;
   for i:=1 to length(s) do begin
     if (s[i]>='0')and(s[i]<='9') then begin
       s[i]:='*'; m:=false;
     end;
     if (s[i]='d')and(i<length(s)) then
       if s[i+1]='e' then begin
         s[i]:='e'; s[i+1]:='d';
         m:=false;
       end;
   end;
   if m then s:='{'+s+'}';
   writeln(s);
end.

Автор: The_Annie 23.01.2004 21:08

СПАСИБО!!!!! ;D