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

@Gepar · Регистрация: 01.07.2009

Студворк — интернет-сервис помощи студентам

Застрял на 3х небольших заданиях :
1)Во введенной строке каждую цифру заменить заменить на следующую по порядку цифру .Цифру 9 заменить на цифру 0 .
Я уж было начал писать во такое :

Pascal

program proga2213;
uses crt;
var
s:string;
i:integer;
Begin
     writeln('Enter string');
     read(s);
     for i:=1 to length(s) do
     Begin
          if s[i]='9' then s[i]:='0'
          else s[i]:=s[i]+1;
     end;
     writeln(s);
end.

Но потом вспомнил что будут ведь не цифры , а символы , поэтому как дальше поступать незнаю .
2)Преобразуйте строку , заменив в ней каждую точку многоточием .
3)Во введённой строке замените все маленькие латинские буквы на большие .
За помощ с любым заданием буду очень благодарен .

@yanyk1n · 07.12.2009, 14:48

1)

Pascal

program proga2213;
uses crt;
var
s,s2:string;
i:integer;
Begin
     s2:='';
     writeln('Enter string');
     read(s);
     for i:=1 to length(s) do
     Begin
          if (s[i]>='0') and (s[i]<='8') then s2:=s2+chr(ord(s[i])+1) else
          if s[i]='9' then s2:=s2+'0' else s2:=s2+s[i];
     end;
     writeln(s2);
end.

	07.12.2009, 14:48

Опции темы