Регистрация
natusy2411
03.09.2021 16:45
Информатика
Есть ответ 👍

Кодирование трехсимвольных последовательностей. Вводятся три символа некоторого алфавита, вероятности их появления и составленная из них произвольная последовательность, длина которой кратна трем. Программа выполняет следующие функции: а) проверка и нормирование вероятностей появления символов;

б) проверка длины введенной последовательности на кратность трем и отбрасывание одного или двух последних символов в случае нарушения кратности;

в) генерация всех возможных различных трехсимвольных комбинаций и их экономное двоичное кодирование;

г) разбиение введенной последовательности на трехсимвольные комбинации, замена их на сгенерированные двоичные коды и формирование результирующей последовательности путем сцепления полученных двоичных кодов;

д) вывод результирующей последовательности на экран.

283
428
Посмотреть ответы 1

Ответы на вопрос:

malekovemir
malekovemir
4,5(32 оценок)
Пишу на delphi  (objectpascal): function summa(a,b: integer): string; var  a1,b1: integer; begin     //находим сумму первого числа a1: =(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10); //находим сумму второго числа b1: =(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10); //выясняем что больше if a1> b1 then              result: ='сумма цифр левого числа больше. оно равно: '+inttostr(a1)          else          result: ='сумма цифр правого числа больше. оно равно: '+inttostr(b1); end; procedure tform1.button1click(sender: tobject); begin //выполнение и вывод результата функции через  нажатие  кнопки label1.caption: =summa(strtoint(edit1.text),strtoint(edit2.text)); end;

Популярно: Информатика