Как определяется информационный вес символа алфавита с вероятностной точки зрения

Количество предаваемой информации в сообщении равно произведению числа символов в тексте (сообщении) на информационный вес одного символа (это степень числа 2, которая равна мощности алфавита, с которого написано это сообщение).

Одна цифра или буква или пробел это 1 бит

program n_9;

var x,a,b:real;

begin

writeln('определение принадлежности точки отрезку');

 writeln('введите a');

 readln(a);

writeln('введите b');

readln(b);

writeln('введите x');

readln(x);

if ((x>=a) and (x<=b)) then writeln('точка принадлежит отрезку')

else writeln('точка не принадлежит отрезку');

end.

Объяснение:

нужна была тчк с запятой после действия в else, в этом была ошибка. (еще ни разу не видела, чтобы переменные в паскале вводили через запятую, так что не рискуй.)

а это советы на будущее:

нормальные скобки в условиях.

a=2  и b=3

Объяснение:

Смотрим, наблюдаем.

Что происходит в коде?

// - это означает комментарий, который никак не читается компилятором

Program pl; // Называем программу "pl"

Var a,b:integer; // Объявляем переменные. То есть, например,  a -это место в памяти компа, мы присвоили ей тип интеджер, что дает нам права присваивать этой переменной исклчительно целочисленные значения, например, 2, -8

procedure fl (x,y:integer); // Создаем процедуру под названием fl. Что такое процедура? Набор действий, которые позже можно выполнить из этой процедуры.

begin

y:=2*x+3;

end;

procedure f2 (var x, y:integer);

begin

x:=3*y+1;

end;

begin

fl(b,a); Мы вызвали эту процедуру (fl) x присваиваем значение b, у значение а. Но так как к данному моменту а и b пусты, ничего не происходит...

end;

a:=2; b:=3;

writeln (‘а=,a,’ b=’,b) // Так как ваш препод не смог грамотно построить задачу, а, по-прежнему, равно 2, а б, по-прежнему, равно 3.

end.