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

Drosha · 17.11.2013, 23:15

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

Vladimir_S · 18.11.2013, 10:10

Цитата:

Сообщение от Drosha

Есть строчка 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 · 18.11.2013, 19:44

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

Vladimir_S · 18.11.2013, 19:45

Цитата:

Сообщение от Drosha

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

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

17.11.2013, 23:15	#1 (permalink)
Drosha Новичок Регистрация: 17.11.2013 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	PascalABC: char, string, декодирование Есть строчка s с кодом слова (например "236 224 236 224" - мама) Помогите декодировать ее, то есть вывести слово "мама".

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

17.11.2013, 23:15
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Обратите внимание на схожие темы - это должно вам помочь Нужно сравнить два массива указателей типа char Паскаль. String Две задачи на PascalABC Использование библиотечных функций string.h PascalABC: File1,16,31,46. PascalABC, графика

18.11.2013, 19:44	#3 (permalink)
Drosha Новичок Регистрация: 17.11.2013 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Благодарю, сударь! Это именно то, что мне было нужно=)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070