program raf105;
var
A: real;
x: integer;
begin
write('Введите число в битах: ');
readln(A);
writeln('1. Байт');
writeln('2. Килобайт');
writeln('3. Магабайт');
writeln('4. Гигабайт');
write('Введите номер единицы, в которую нужно перевести: ');
readln(x);
if x=1 then writeln(A/8,' байт')
else if x=2 then writeln(A/8000,' кб.')
else if x=3 then writeln(A/8000000,' мб.')
else if x=4 then writeln(A/8000000000,' гб.')
else writeln('Ошибка');
end.
<h3><u>PascalABC 3.4.2</u></h3>
<span>Первый тип — <em>линейный </em>алгоритм; такой, в котором все действия выполняются в строгом порядке, последовательно, одно за другим.</span>
<span> Второй тип — <em>разветвляющийся </em>алгоритм; такой, в котором выполняются те </span><span>или иные действия в зависимости от выполнения или невыполнения некоего условия. </span>
<span> Третий тип — <em>циклический </em>алгоритм; такой, в котором присутству</span><span>ют повторяющиеся действия с какой-либо изменяющейся величиной, так<span>называемым <em>параметром.</em></span></span>
Пример в Excel 2003
Ярлычки листов соответствуют № задания
Запишем разложение числа 57 в записи системы счисления с основанием N:
2N² + 1N¹ + 2N° = 57
2N² + N + 2 = 57
Решаем квадратное уравнение:
2N² + N + 2 - 57 = 0
2N² + N + - 55 = 0
D= 1+4*2*55 = 441
N₁ = (-1+21)/4 = 5
N₂ = (-1-21)/4 = -5.5
Второе значение не подходит (отрицательное), значит N = 5
Ответ: <span>основание системы счисления равно 5</span>
Дано: K(окуней)=12500;
K(пескарей)=25000;
K(карасей)=К(щук)=6250
Найти: lo,lп,lк,lщ,
Решение:
1 Надо найти общее кол-во рыбы : N=Ko+Kп+Kк+Kщ
2 Найти вероятность ловли каждого вида рыбы: pо<span>= Ко/</span>N<span>; </span>pп<span>= Кп/</span>N<span>; </span>pк=pщ<span>= Кк/</span>N.Найдем количество информации о ловле рыбы каждого вида: Iо<span>= </span>log2( 1/pо<span>); </span>Iп=log2<span> (1/</span>pп<span> ); </span>Iк<span>= </span>Iщ<span>= </span>log2<span> (1/</span>pк<span> )</span>Найдем количество информации о ловле рыбы любого вида: I=pо∙log2pо<span>+ </span>pп∙log2pп<span> +</span>pк∙log2pк<span> +</span>pщ∙log2p<span>щ</span>