Решите , максимальное кол-во : 3 1) вычислите какое количество информации приходится на одно сообщение длиной 3, 4, 5 и 6 символов, составленное из а) двоичного, б) троичного алфавита? 2) а) чему равна максимальная энтропия системы, состоящей из двух элементов, каждый из которых может быть в двух состояниях? б) чему равна энтропия системы, состоящей из трех элементов, каждый из которых может быть в четырех состояниях? ; в) чему равна энтропия системы, состоящей из четырех элементов, каждый из которых может быть в трех состояниях? 3) дан алфавит мощностью 5. определить количество информации на символ сообщения, составленного из этого алфавита: а) если символы алфавита встречаются с равными вероятно- стями; б) если символы алфавита встречаются в сообщении с веро- ятностями p1= 0, 8; p2 = 0, 15; р3= 0, 03; р4 = 0, 015; р5 = 0, 005. 4) чему равна неопределенность предпочтения одного из четырех государственных языков жителем сингапура если китайский предпочитают 30% жителей, малайский - 20%, - 40%, тамильский - 10%.
Ответы
Немного теории.
Для того, чтобы избежать переполнения разрядной сетки, значение квадрата натурального числа не должно превышать максимального числа, представимого выбранным типом данных.
В языке Паскаль числа типа longint записываются в четырех байтах в дополнительном коде, т.е. максимальное значение числа не может превышать 2³¹-1. Тогда максимальное натуральное число, квадрат которого мы можем вычислить, равно целой части от величины:
//PascalABC.Net 3.0, сборка 1066
var
s:string;
i,n,lim,l:longint;
begin
lim:=Trunc(exp(15.5*ln(2)));
Write('Введите номер позиции: '); Read(n);
i:=0; l:=0;
while (l<n) and (i<=lim) do begin
Inc(i); Str(i*i,s); l:=l+Length(s);
end;
if i<=lim then Writeln('Искомая цифра- ',s[Length(s)-l+n])
else Writeln('Решения в типе данных longint невозможно')
end.
Тестовое решение:
Введите номер позиции: 4
Искомая цифра- 1
Введите номер позиции: 33
Искомая цифра- 5
Для того, чтобы избежать переполнения разрядной сетки, значение квадрата натурального числа не должно превышать максимального числа, представимого выбранным типом данных.
В языке Паскаль числа типа longint записываются в четырех байтах в дополнительном коде, т.е. максимальное значение числа не может превышать 2³¹-1. Тогда максимальное натуральное число, квадрат которого мы можем вычислить, равно целой части от величины:
//PascalABC.Net 3.0, сборка 1066
var
s:string;
i,n,lim,l:longint;
begin
lim:=Trunc(exp(15.5*ln(2)));
Write('Введите номер позиции: '); Read(n);
i:=0; l:=0;
while (l<n) and (i<=lim) do begin
Inc(i); Str(i*i,s); l:=l+Length(s);
end;
if i<=lim then Writeln('Искомая цифра- ',s[Length(s)-l+n])
else Writeln('Решения в типе данных longint невозможно')
end.
Тестовое решение:
Введите номер позиции: 4
Искомая цифра- 1
Введите номер позиции: 33
Искомая цифра- 5
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
"язык концентрирует в себе информация и хранит её" объясните своими словами
Автор: Fedorova_79166180822
Слово зонтик может быть сохранено в файле размером (. ) битов
Автор: olofinskayae
Построить треугольник паскаля. с его вычислить 2^k c++
Автор: Владислав893
Напишите наибольшее целое х, для которого истинно высказывание: не (х меньше=9)и не(х больше 17)
Автор: missbuhgalter2013
Укажите условия правельно зиписанные на языке паскаль x> 0 5> y c=< 5
Автор: katar050419735
Что является расширением файлаDOC-UM TXT
Автор: anatolevich1931
поэтому угол можно в градусах посчитать.
DIM a, b, c, cs, cst, ang, PI
INPUT " a = ", a
INPUT " b = ", b
INPUT " c = ", c
PRINT
PI = 3.141593
cs = (b * b + c * c - a * a) / (2 * b * c)
cst = cs
IF cs < 0 THEN cst = SQR(1 - cs * cs)
ang = ATN(SQR(1 - cst * cst) / cst) * 360 / (2 * PI)
IF cs < 0 THEN ang = ang + 90
PRINT "угол A = ",
PRINT USING "###.##"; ang
cs = (a * a + c * c - b * b) / (2 * a * c)
cst = cs
IF cs < 0 THEN cst = SQR(1 - cs * cs)
ang = ATN(SQR(1 - cst * cst) / cst) * 360 / (2 * PI)
IF cs < 0 THEN ang = ang + 90
PRINT "угол B = ",
PRINT USING "###.##"; ang
cs = (a * a + b * b - c * c) / (2 * a * b)
cst = cs
IF cs < 0 THEN cst = SQR(1 - cs * cs)
ang = ATN(SQR(1 - cst * cst) / cst) * 360 / (2 * PI)
IF cs < 0 THEN ang = ang + 90
PRINT "угол C = ",
PRINT USING "###.##"; ang
PRINT "Выход - любая клавиша ... "
DO
LOOP WHILE INKEY$ = ""