Соответствие согласно структуре алгоритмов: 1) Линейный алгоритм A) Алгоритм, в котором последовательность шагов зависит от определенных условий 2) Алгоритм ветвления B) Алгоритм, показывающий последовательность команд, повторяемых до тех пор, пока не будет выполнено начальное условие 3) Циклический алгоритм В) без ветвлений и итераций Алгоритм последовательно выполняется один за другим Многострочный текст.
12288/3072 = 4 бита - на один символЗначит N=2^4 = 16 символов в алфавите.
2) 1 символ = 8 бит = 1 байт
150*40*60=360000 (символов/байт)
это ответ и есть, но можно для удобства перевести в килобайты
1 килобайт = 1024 байт
360000/1024=351,5625
ответ: 360000 байт или 351,5625 килобайт
3) посмотрим сколько же всего символом на двух страницах:256*2 = 512 сиволов.Теперь посмотрим сколько байт они занимают:1 килобайт (по старым нормам) = 1024 байта (по новым уже нет :( )1024/16 = 64 байта. в одном байте 8 бит, значит 64 байта это 64*8 = 512 бит информации.разделим: 512/512 = 1 бит информации на символ. Мощность алфавита = 2 в степени количества информации на символ, то есть 2 в первой, или просто 2.ответ: мощность алфавита равна двум.
procedure CalcArray (const Ax: array of Integer; var S: Integer; var M: Real); // var в параметрах означает, что переменная используется для возврата значения
var
i, c: Integer;
begin
S := 0;
c := 0;
for i := 0 to High (Ax) do begin
S := S + Ax [i]; // здесь накапливаем сумму элементов
c := c + 1;
end;
M := S / c; // когда найдена сумму, рассчитываем среднеарифметическое
end;
var
A: array [0..4] of Integer; // размерность массивов можно делать любой, но начинаться с 0
B: array [0..14] of Integer;
C: array [0..9] of Integer;
i, s: Integer;
m: Real;
begin
SetConsoleCP (1251);
SetConsoleOutputCP (1251);
Randomize; // инициализация датчика случайных чисел
WriteLn ('Массив 1:');
for i := Low (A) to High (A) do begin
A [i] := Random (10); // заполняем элементы массива случайными значениями
Write (IntToStr (A [i]) + ' '); // выводим их для просмотра
end;
CalcArray (A, s, m); // вызов процедуры
WriteLn; // показываем возвращаемые из функции переменные
WriteLn ('Сумма элементов = ' + IntToStr (s));
WriteLn ('Среднеарифметическое = ' + FloatToStr (m));
WriteLn; // аналогично поступаем с другими массивами
WriteLn ('Массив 2:');
for i := Low (B) to High (B) do begin
B [i] := Random (10);
Write (IntToStr (B [i]) + ' ');
end;
CalcArray (B, s, m);
WriteLn;
WriteLn ('Сумма элементов = ' + IntToStr (s));
WriteLn ('Среднеарифметическое = ' + FloatToStr (m));
WriteLn;
WriteLn ('Массив 3:');
for i := Low (C) to High (C) do begin
C [i] := Random (10);
Write (IntToStr (C [i]) + ' ');
end;
CalcArray (C, s, m);
WriteLn;
WriteLn ('Сумма элементов = ' + IntToStr (s));
WriteLn ('Среднеарифметическое = ' + FloatToStr (m));
end.