с информатикой! Паскаль Составьте и протестируйте программу: вычислить значение функции y = sin³ x для -2П

72 Кб

Объяснение:

1) Определим сколькими битами кодируется отдельный символ, т.е. найдем информационный вес символа.

По формуле  , где N - мощность алфавита, i - информационный вес символа алфавита.

(бит)

2) Информационный объем или количество информации находят по формуле , где K - количество символов, i - информационный вес символов.

K = 16*16*256 (симв.) - умножили количество символов на количество строк и получаем количество символов на одной странице, тогда чтобы найти количество символов в книге нужно домножить на количество страниц.

I = 16*16*256*9 = = (бит)

3) Переведем биты в килобайты, Кб.

1 байт = 8 бит

1 Кб = 1024 байт

1 Кб = 1024 байт = 1024*8 бит = (бит)

Тогда для перевода нужно I =   разделить на :

(Кб)

Program pr9;
type mas = array[-10..10] of integer;
const n = 5;
var s, i:integer;
a:mas;
begin
     randomize;
     writeln('Номера четных отрицательных элементов:');
     s := 0;
     for i := 1 to n do
     begin
          a[i] := random(1000) - 500;{Числа рандомизируются от -500 до 500}
     end;
     for i:=1 to n do
     begin
          write(a[i], ' ');
     end;
     for i:=1 to n do
     begin
          if (a[i] < 0) and (a[i] mod 2 = 0)
          then
          begin
               write(i, ' ');
               s := s + a[i];
          end;
     end;
     writeln;
     writeln('Их сумма = ', s);
end.