Var ab,h,s:real;
begin
write('a+b = '); readln(ab);
write('h = '); readln(h);
s:=ab/2*h;
writeln('S = ',s);
end.
Пример:
a+b = 10
h = 6
S = 30
В качестве примера равномерного кода можно назвать ASCII-таблицу, где каждому из 256 символов сопоставлено двоичное значение от 00000000 до 11111111. Независимо от вероятности появления символа на его представление отводится 1 байт, или 8 бит. Как известно, национальные языки обладают большой избыточностью, то есть разницей между энтропией источника и максимально возможной энтропией, обусловленной равной вероятностью появления любого символа из алфавита. Например, избыточность русского языка составляет 70%, а английского – 50%. Это в частности означает, что некоторые буквы появляются в тексте гораздо чаще других и поэтому использовать равномерное кодирование нерационально.
<span>При неравномерном кодировании часто встречающимся символам сопоставляются более короткие кодовые последовательности, редко встречающимся – более длинные. За счет этого удается значительно сократить объем файла без потерь информации. Существует несколько методов неравномерного кодирования, важнейших из которых является метод Шеннона-Фано.
как-то так
</span>
Как сделать - что? перевести в двоичную сис-му счисления, или куда-то в другую?
46А (16)=1001010 (2)=112(8)
155(8)=6D (16)=1101101(2)
2.
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5)
then writeln('Да')
else writeln('Нет')
end.
Пример:
<span>x = 4
y = 1
Да
7.
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x>=-6)and
((y<=7)and(y>=2)and(x<=-1)or(y<=2)and(y>=-3)and(x<=-3))
then writeln('Да')
else writeln('Нет')
end.
Пример:
<span>x = -2
y = 1
Нет
6.
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and((x<=0)or(x>=0)and(y<=0))
then writeln('Да')
else writeln('Нет')
end.
Пример:
<span>x = 3
y = -3
Да</span></span></span>