Азбука Морзе

@Intersap · Регистрация: 19.10.2010

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

Нужно создать программу, которая при вводе кодировке азбукой Морзе переводит точки и тире в нормальные буквы.
Мой код:

Код

program Katia11;
uses crt;
var s,s2:string;
    i,j,j2,l,r:integer;
begin
     clrscr;
     writeln('Введите кодировку: ');
     readln(s);
     l:=0;
     r:=0;
     for i:=1 to length(s) do
         begin
             if (s[i]=' ')or(i=length(s)) then
                 begin
                      r:=i;
                      s2:=copy(s,l+1,r-l);
                      if s2='.-'   then s2:='А';
                      if s2='-...' then s2:='Б';
                      if s2='.--'  then s2:='В';
                      if s2='--.'  then s2:='Г';
                      if s2='-..'  then s2:='Д';
                      if s2='.'    then s2:='Е';
                      if s2='...-' then s2:='Ж';  (и так далее буквы)
                      if s2='--..' then s2:='ç';
                      if s2='..'   then s2:='ê';
                      if s2='.---' then s2:='ë';
                      if s2='-.-'  then s2:='è';
                      if s2='.-..' then s2:='ï';
                      if s2='--'   then s2:='î';
                      if s2='-.'   then s2:='ì';
                      if s2='---'  then s2:='Ä';
                      if s2='.--.' then s2:='Å';
                      if s2='.-.'  then s2:='É';
                      if s2='...'  then s2:='æ';
                      if s2='-'    then s2:='Æ';
                      if s2='..-'  then s2:='ô';
                      if s2='..-.' then s2:='ö';
                      if s2='....' then s2:='ò';
                      if s2='-.-.' then s2:='û';
                      if s2='---.' then s2:='ù';
                      if s2='----' then s2:='ÿ';
                      if s2='--.-' then s2:='Ö';
                      if s2='-..-' then s2:='Ü';
                      if s2='-.--' then s2:='¢';
                      if s2='-..-' then s2:='£';
                      if s2='..-.' then s2:='¥';
                      if s2='..--' then s2:='₧';
                      if s2='.-.-' then s2:='ƒ';
                      write(s2);
                      l:=i;
                 end;
         end;
     readln;
end.

Но переводит последний элемент кода, т.е. последнюю букву слова. Помогите найти ошибку.

@yamilramilev · 28.12.2010, 22:38

Pascal

program Katia11;
uses crt;
var s,s2:string;
    i,j,j2,l,r:integer;
begin
     clrscr;
     writeln('Введите кодировку: ');
     readln(s);
     l:=0;
     r:=0;
     for i:=1 to length(s)+1 do {вот тут +1}
         begin
             if (s[i]=' ')or(i=length(s)+1) then {вот тут +1}
                 begin
                      r:=i;
                      s2:=copy(s,l+1,r-l-1); {вот тут -1}
                      if s2='.-'   then s2:='А';
                      if s2='-...' then s2:='Б';
                      if s2='.--'  then s2:='В';
                      if s2='--.'  then s2:='Г';
                      if s2='-..'  then s2:='Д';
                      if s2='.'    then s2:='Е';
                      if s2='...-' then s2:='Ж';  (и так далее буквы)
                      if s2='--..' then s2:='з';
                      if s2='..'   then s2:='к';
                      if s2='.---' then s2:='л';
                      if s2='-.-'  then s2:='и';
                      if s2='.-..' then s2:='п';
                      if s2='--'   then s2:='о';
                      if s2='-.'   then s2:='м';
                      if s2='---'  then s2:='Д';
                      if s2='.--.' then s2:='Е';
                      if s2='.-.'  then s2:='Й';
                      if s2='...'  then s2:='ж';
                      if s2='-'    then s2:='Ж';
                      if s2='..-'  then s2:='ф';
                      if s2='..-.' then s2:='ц';
                      if s2='....' then s2:='т';
                      if s2='-.-.' then s2:='ы';
                      if s2='---.' then s2:='щ';
                      if s2='----' then s2:='я';
                      if s2='--.-' then s2:='Ц';
                      if s2='-..-' then s2:='Ь';
                      if s2='-.--' then s2:='ў';
                      if s2='-..-' then s2:='Ј';
                      if s2='..-.' then s2:='Ґ';
                      if s2='..--' then s2:='₧';
                      if s2='.-.-' then s2:='ƒ';
                      write(s2);
                      l:=i;
                 end;
         end;
     readln;
end.

	28.12.2010, 22:38

Опции темы

Азбука Морзе

Решение