Технический форум - PascalABC: char, string, декодирование

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - PascalABC: char, string, декодирование (http://www.tehnari.ru/f41/t92415/)

PascalABC: char, string, декодирование

Есть строчка s с кодом слова (например "236 224 236 224" - мама)
Помогите декодировать ее, то есть вывести слово "мама".

Цитата:

Сообщение от Drosha (Сообщение 970852)

Есть строчка s с кодом слова (например "236 224 236 224" - мама)
Помогите декодировать ее, то есть вывести слово "мама".

Всё, чем могу помочь - это нарисовать программу для обычного нормального Паскаля (Free, Turbo). Если не запустится в этом богомерзком АВС - пишите, попробуем довести до ума.

Код:

Var

 S,C:String;

 D,n,Code,i,L:Integer;

 

Begin

 Writeln('Enter the string:');

 Readln(S);

 L:=Length(S);

 i:=0;

 Repeat

  D:=0;

  repeat

   Inc(i);

   if (i<L+1) and (S[i]<>' ') then

    begin

     C:=S[i];

     Val(C,n,Code);

     D:=D*10+n;

    end;

  until (i=L+1) or (S[i]=' ');

  Write(Chr(D));

 Until i=L+1;

 Readln

End.

Благодарю, сударь! Это именно то, что мне было нужно=)

Цитата:

Сообщение от Drosha (Сообщение 971045)

Благодарю, сударь! Это именно то, что мне было нужно=)

"Всегда к услугам Вашим..."