Выполнить сжатие информации методом RLE
Выполнить вручную кодирование сообщения методом RLE. В качестве исходной фразы взять текст из табл. 3.1. С таблицы CP-1251 (см. Приложение 1) перевести символы заданной фразы в десятичные числа, а затем десятичные числа перевести в двоичные. Выполнить сжатие информации, вычислить контрольные суммы и коэффициент сжатия.
ТЕКСТ ЗАДАНИЯ: "
Ау заблудились"

"солнце" - круг с точкой в центре

"идти" - две ноги

"хлеб" - полукруг

"рот" - сильно вытянутый   полуовал

решение для 4-байтного представления

запишем двоичное число в форме нормализованного двоичного числа с плавающей точкой

0,110010001*10^1000

10- основание (2дес=10дв)

1000-порядок(8дес=1000дв)

определим машинный порядок:

мп = 1000 + 1000000 = 1001000

запишем число

01001000 0000000 00000001 10010001

порядок          ман                тис                  са

var

x: real;

begin

readln(x);

writeln(round(x));

end.

программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠0 и у≠0

  program 198;

var x,y: real;

begin;

readln (x; y);

if x> 0 and y> 0 then

writeln (1 chetvert);

end;

if x< 0 and  y> 0 then

writeln (2 chetvert);

end;

if x< 0 and  y< 0 then

writeln (3 chetvert);

end;

if x> 0 and  y< 0 then

writeln (4 chetvert);

end;

end.