Для кодирования некоторой последовательности, состоящей из шести букв: а, б, в, г, д, е — решили использовать неравномерный двоичный код, удовлетворяющий условию фано. для буквы а использовали кодовое слово 10; для буквы б — кодовое сло во 001. какова наименьшая возможная сумма длин всех шести кодовых слов?
Объяснение:
Есть ошибки. Не будет компилироваться. Будет ошибка выполнения в первой программе для отрицательных значений x.
Жирным выделены строчки, где есть ошибки.
1) Описание переменных следует писать так
Var x, y: real;
2) Пропущена точка с запятой
y:= sqrt(x);
3) Корень с отрицательного числа
y:= sqrt(x)
4) Во второй программе в объявлении переменных
Var x, y: real;
5) Пропущены знаки операций
y :=3 * x / (8 - x)
6) во второй программе, если знаменатель == 0, то после вывода - решений нет, следует вывод не инициализированного значения у.
Вывод значения y надо перенести выше, после вычисления y.
Program nl;
Var: x,y; real;
Begin
Readln (x);
if x >= 0 then
y:= x*x
Else
y:= sqrt(x)
Writeln(y);
End.
Program nl;
Var: x,y;real;
Begin
Readln(x);
if (8-x)<>0 then
y:=3x/8-x
Else
Writeln('решений нет');
Writeln(y);
End.
Так лучше будет (по возможности исправлено)
{ Тело первой программы }
Var x, y: real;
Begin
Write ('Input x: ');
Readln(x);
if x >= 0 then
y := x * x
Else
y := sqrt(abs(x));
Writeln('y: ', y: 10: 3);
Readln(); // удерживаем консоль
End.
{ Тело второй программы }
Var x, y: real;
Begin
Write ('Input x: ');
Readln(x);
if (8-x) <> 0 then
bеgin
y:=3*x/(8-x);
Writeln(' y=', y: 10: 2);
end
Else
Writeln('решений нет');
Readln(); // удерживаем консоль
End.
Здравствуйте. Увы вынужден расстроить :
Скорее всего вы писали сайт в блокноте и сохранили файл в кодировке, которая не поддерживает русские или другие написанные вами символы - в таком случае воскресить код не получится - придётся полностью переписывать весь "кракозябрин" текст ( имею ввиду строчки со сломанным текстом ) и сохранять в юникоде. Если это не , то придётся перерыть все кодировки и выбрать ту, при которой текст сохраняется в нужном виде.
Ещё хочу отметить что не во всех редакторах придётся рыскать " в поисках ". Некоторые же имеют функцию автоматического определения кодировки, при которой от вас ничего не потребуется. Но пока-что определяют они так себе ( например тот же notepad++ - у него с этим явные проблемы ).