<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrReal(4);
Writeln('Max=',a.Max,', min',a.Min)
end.
<u>Пример:</u>
-45.4 18 0 4.17
Max=18, min-45.4
Выбираешь поле в котором будет значение, и в этом поле пишешь
=формула расчёта.
не забывай поставить адреса ячеек, которые участвуют в твоих расчётах
Var num : integer;
....
num := arr[0];
for i:=0 to n-1 do arr[i] := arr[i+1];
arr[n] := num;
1. Дано: Растровая сетка размером 600х350; К=8
Решение: По формуле К=2^b определим глубину цвета 8=2^3, глубина цвета b=3 бита. Количество пикселей равно 600х350=210000. Объем видеопамяти равен 210000*3=630000 бит.
Переведем полученный результат в Кбайты.
630000/8=78750 байт. 78750/1024=76,904 Кбайт.
Ответ: 76,904 Кбайт.
2. Дано: b=3 бита
Решение: Опять же по формуле K=2^b, K=2^3=8 цветов.
Ответ: 8 цветов.
Ответ А14
Разберёмся:
по А будет доходить 15 + 2 + 2^21/( 0,25 * 8) = 15+2+1 =18 с
по Б будет доходить 8 * (8/2) = 32 с