Программа декодирование азбуки Морзе

@Pascal2015 · Регистрация: 28.11.2015

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

Помогите пожалуйста написать программу на паскале для декодирования азбуки Морзе !!!
Условие:
Программа считывает из файла "morse.тхт" коды отдельных букв азбуки Морзе. Одна строка файла содержит запись для каждой буквы. На первой строке код буквами (последовательность точек и тире без пробелов или других символов), и затем разделены по меньшей мере одного пробела за которым следует строка, соответствующего кода (это может быть один или несколько символов, например, СН, максимально 3 буквы). В начале и в конце строки может быть любое количество пробелов.
В файле input.тхт есть закодированый текст для декодирование. Отдельные буквы разделяются косой чертой. Две косые черты подрят указывают на пробел. Программа записывает полученные текст в файл Output.text малыми буквами и придерживается расстоянии введенного текста в файле, конец строки происходит в середине коду буквами. Если программа в входном файле получает символ который не может декодировать тогда программа пропускает его. (азбука только латинскими буквами)

@Pascal2015 · 14.12.2015, 20:15 **[ТС]**

Помогите исправить ошибки в этом коде
1 Нельзя преобразовать тип boolean к стринг
2 выход за пределы массива

Pascal

Program Morse_Descrypt;
  var
  s, s1, s2:string;
  i,j,l,r:integer;
  mrz:array[1..74] of string=(
        'A'= '.-',              'a'= '.-',
        'B'= '-...',            'b'= '-...',
        'C'= '-.-.',            'c'= '-.-.',
        'D'= '-..',             'd'= '-..',
        'E'= '.',               'e'= '.',
        'F'= '..-.',            'f'= '..-.',
        'G'= '--.',             'g'= '--.',
        'H'= '....',            'h'= '....',
        'I'= '..',              'i'= '..',
        'J'= '.---',            'j'= '.---',
        'K'= '-.-',             'k'= '-.-',
        'L'= '.-..',            'l'= '.-..',
        'M'= '--',              'm'= '--',
        'N'= '-.',              'n'= '-.',
        'O'= '---',             'o'= '---',
        'P'= '.--.',            'p'= '.--.',
        'Q'= '--.-',            'q'= '--.-',
        'R'= '.-.',             'r'= '.-.',
        'S'= '...',             's'= '...',
        'T'= '-',               't'= '-',
        'U'= '..-',             'u'= '..-',
        'V'= '...-',            'v'= '...-',
        'W'= '.--',             'w'= '.--',
        'X'= '-..-',            'x'= '-..-',
        'Y'= '-.--',            'y'= '-.--',
        'Z'= '--..',            'z'= '--..',
        '0'= '-----',           ','= '--..--',
        '1'= '.----',           '.'= '.-.-.-',
        '2'= '..---',           '?'= '..--..',
        '3'= '...--',           ';'= '-.-.-.',
        '4'= '....-',           ':'= '---...',
        '5'= '.....',           '"'= '.----.',
        '6'= '-....',           '-'= '-....-',
        '7'= '--...',           '/'= '-..-.',
        '8'= '---..',           '('= '-.--.-',
        '9'= '----.',           ')'= '-.--.-',
        ' '= ' ',               '_'= '..--.-');
    begin
 
 readln (s);
     l:=0;
     r:=0;
     for i:=1 to length(s)+1 do
         begin
 
         if (s[i]=' ') or (i=length(s)+1) then
                 begin
 
                      r:=i;
                      s1:=copy(s,l+1,r-l-1);
                      l:=i;
                      for j:=1 to 74 do begin
                       if s1=mrz[j] then s2:=b[j];
                       if s1='' then s2:=' ';
                       end;
 
                      write(s2);
 
                 end;
 
         end;
end.

@Puporev · 14.12.2015, 20:23

Один массив такой не бывает, нужно 2 массива, букв и Морзе.

@Pascal2015 · 14.12.2015, 21:06 **[ТС]**

Ошибка времени выполнения: Индекс находился вне границ массива.

Pascal

Program Morse_Descrypt;
  var
  s, s1, s2:string;
  i,j,l,r:integer;
  mrz:array[1..74] of string=(
        'A',              'a',
        'B',            'b',
        'C',            'c',
        'D',             'd',
        'E',               'e',
        'F',            'f',
        'G',             'g',
        'H',            'h',
        'I',              'i',
        'J',            'j',
        'K',             'k',
        'L',            'l',
        'M',              'm',
        'N',              'n',
        'O',             'o',
        'P',            'p',
        'Q',            'q',
        'R',             'r',
        'S',             's',
        'T',               't',
        'U',             'u',
        'V',            'v',
        'W',             'w',
        'X',            'x',
        'Y',            'y',
        'Z',            'z',
        '0',           ',',
        '1',           '.',
        '2',           '?',
        '3',           ';',
        '4',           ':',
        '5',           '"',
        '6',           '-',
        '7',           '/',
        '8',           '(',
        '9',           ')',
        ' ',               '_');
   {-------------------------------------------------------------}
       b:array[1..74] of string=(
        '.-',              '.-',
        '-...',            '-...',
        '-.-.',            '-.-.',
       '-..',             '-..',
        '.',                '.',
        '..-.',             '..-.',
        '--.',              '--.',
        '....',             '....',
        '..',               '..',
        '.---',             '.---',
        '-.-',              '-.-',
        '.-..',             '.-..',
        '--',               '--',
        '-.',               '-.',
        '---',              '---',
       '.--.',           '.--.',
        '--.-',             '--.-',
        '.-.',              '.-.',
       '...',             '...',
        '-',                '-',
        '..-',              '..-',
        '...-',             '...-',
        '.--',              '.--',
        '-..-',             '-..-',
        '-.--',             '-.--',
        '--..',             '--..',
        '-----',            '--..--',
        '.----',            '.-.-.-',
        '..---',            '..--..',
        '...--',            '-.-.-.',
        '....-',           '---...',
        '.....',            '.----.',
        '-....',            '-....-',
        '--...',            '-..-.',
        '---..',            '-.--.-',
        '----.',            '-.--.-',
        ' ',                '..--.-');
   begin
 
 readln (s);
     l:=0;
     r:=0;
     for i:=1 to length(s)+1 do
         begin
 
         if (s[i]=' ') or (i=length(s)+1) then
                 begin
 
                      r:=i;
                      s1:=copy(s,l+1,r-l-1);
                      l:=i;
                      for j:=1 to 74 do begin
                       if s1=mrz[j] then s2:=b[j];
                       if s1='' then s2:=' ';
                       end;
 
                      write(s2);
 
                 end;
 
         end;
end.

@Puporev · 14.12.2015, 21:28

Что-то не нравится мне +1 здесь

Pascal

for i:=1 to length(s)+1 do
  begin
   if (s[i]=' ') or (i=length(s)+1) then
     begin

Добавлено через 3 минуты
Лучше добавить пробел в конец строки и вообще цикл while ... do здесь лучше

@bormant · 15.12.2015, 11:42

Для сокращенных логических вычислений достаточно переписать так:

Pascal

90	if (i=length(s)+1) or (s[i]=' ') then

Добавлено через 1 минуту
Вообще говоря, в задании предлагается морзянку читать из файла вроде такого:
morse.txt

Код

·-       a
-···     b
·--      w
--·      g
-··      d
·        e
···-     v
--··     z
··       i
·---     j
-·-      k
·-··     l
--       m
-·       n
---      o
·--·     p
·-·      r
···      s
-        t
··-      u
··-·     f
····     h
-·-·     c
---·     CH
----     SH
--·-     q
--·--    ~N
-·--     y
-··-     x
··-··    'E
··--     YU
·-·-     YA
·----    1
··---    2
···--    3
····-    4
·····    5
-····    6
--···    7
---··    8
----·    9
-----    0
······   .
·-·-·-   ,
---···   :
-·-·-·   ;
-·--·-   PRT
·----·   '
·-··-·   "
-····-   -
-··-·    /
··--··   ?
--··--   !
-···-    BRK
········ ERR
·--·-·   @
··-·-    END

@Pascal2015 · 20.12.2015, 21:29 **[ТС]**

помогите понять в чем тут ошибка

Pascal

type PItem = ^Item;
      Item = record
          next : array['-'..'.'] of PItem;
          value : string[3];
      end;
 
      ParsedLine = record
          letter : string;
          combination : string;
      end;
 
 
function CreateItem() : PItem;
begin
    (CreateItem);
    CreateItem^.value := '';
    CreateItem^.next['.'] := NIL;
    CreateItem^.next['-'] := NIL;
end;
 
 
function Decode(rep : PItem; comb : string) : string;
var p : PItem;
     i : integer;
begin
    p := rep;
    for i := 1 to length(comb) do
        begin
            p := p^.next[comb[i]];
 
            if p = NIL then
                begin
                    Decode := ''; exit;
                end;
        end;
 
    Decode := p^.value;
 
    for i := 1 to length(Decode) do
        if Decode[i] in ['A'..'Z'] then Decode[i] := chr(ord(Decode[i]) - ord('A') + ord('a'));
end;
 
 
procedure AddToRepresentation(rep : PItem; parsed : ParsedLine);
var i : integer;
     p : PItem;
     prev : PItem;
begin
    p := rep;
    for i := 1 to length(parsed.combination) do
        begin
            if p^.next[parsed.combination[i]] = NIL then
               p^.next[parsed.combination[i]] := CreateItem();
 
            p := p^.next[parsed.combination[i]];
        end;
    p^.value := parsed.letter;
end;
 
 
function ParseLineRepresentation(line : string) : ParsedLine;
var i : integer = 1;
begin
    ParseLineRepresentation.letter := '';
    ParseLineRepresentation.combination := '';
 
    while line[i] in [' '] do inc(i);
    while line[i] in ['.','-'] do
        begin
            ParseLineRepresentation.combination := ParseLineRepresentation.combination + line[i];
            inc(i);
        end;
    while line[i] in [' '] do inc(i);
    while not (line[i] in [' ']) and (i <= length(line)) do
        begin
            ParseLineRepresentation.letter := ParseLineRepresentation.letter + line[i];
            inc(i);
        end;
    
end;
 
 
function ParseRepresentation(filename : string) : PItem;
    var f : Text;
         line : String;
         parsed : ParsedLine;
begin
    ParseRepresentation := CreateItem();
 
    Assign(f, filename);
    Reset(f);
 
    while not EOF(f) do
        begin
            ReadLn(f, line);
            parsed := ParseLineRepresentation(line);
            AddToRepresentation(ParseRepresentation, parsed);
        end;
 
    Close(f);
end;
 
 
procedure DecodeAndPrint(filename, output : string; representation : PItem);
var f : Text;
     o : Text;
     c : char;
     prev : char;
     token : string;
begin
    Assign(f, filename);
    Reset(f);
 
    Assign(o, output);
    Rewrite(o);
 
    token := '';
    prev := '*';
    while not EoF(f) do
        begin
            while not EoLn(f) do
                begin
                    prev := c;
                    Read(f, c);
                    if c in ['.','-'] then token := token + c
                    else { / }
                        begin
                            if length(token) > 0 then
                                begin
                                    Write(o, Decode(representation, token));
                                    token := '';
                                end;
 
                            if prev in ['/'] then Write(o, ' ');
                        end;
                end;
 
            Read(f, c); 
            WriteLn(o);
        end;
 
    Close(f);
    Close(o);
end;
 
 
begin
    DecodeAndPrint('vstup.txt', 'vystup.txt', ParseRepresentation('morse.txt'));
end.

@Pascal2015 1 / 1 / 1 Регистрация: 28.11.2015 Сообщений: 28
		1
	Программа декодирование азбуки Морзе 13.12.2015, 23:43. Показов 6531. Ответов 6 Метки нет (Все метки) Помогите пожалуйста написать программу на паскале для декодирования азбуки Морзе !!! Условие: Программа считывает из файла "morse.тхт" коды отдельных букв азбуки Морзе. Одна строка файла содержит запись для каждой буквы. На первой строке код буквами (последовательность точек и тире без пробелов или других символов), и затем разделены по меньшей мере одного пробела за которым следует строка, соответствующего кода (это может быть один или несколько символов, например, СН, максимально 3 буквы). В начале и в конце строки может быть любое количество пробелов. В файле input.тхт есть закодированый текст для декодирование. Отдельные буквы разделяются косой чертой. Две косые черты подрят указывают на пробел. Программа записывает полученные текст в файл Output.text малыми буквами и придерживается расстоянии введенного текста в файле, конец строки происходит в середине коду буквами. Если программа в входном файле получает символ который не может декодировать тогда программа пропускает его. (азбука только латинскими буквами) 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	14.12.2015, 20:23	3
	Один массив такой не бывает, нужно 2 массива, букв и Морзе. 0

Опции темы

Программа декодирование азбуки Морзе

Решение