1в текстовом режиме экран монитора компьютера обычно разбивается на 25 строк по 80 символов в строке. определите объем текста, занимающего весь экран монитора, в кодировке unicode. 2 сообщение занимает 6 страниц по 40 строк, в каждой строке записано по 60 символов. информационный объем всего сообщения равен 28 800 байтам. сколько двоичных разрядов было использовано для кодирования одного символа? 3 сообщение, информационный объем которого равен 5кбайт, занимает 4 страницы по 32 строки, в каждой из которых записано по 40 символов. сколько символов в алфавите языка, на котором записано сообщение?
Ответы
Const
n = 10;
var
a: array[1..n] of integer;
i, j, t: integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := Random(16)-10;
Write(a[i]:4)
end;
Writeln;
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
Writeln('Отсортированный по возрастанию массив');
for i := 1 to n do Write(a[i]:4);
Writeln
end.
Тестовое решение:
Исходный массив
-10 -9 2 -3 -6 -10 -2 5 4 0
Отсортированный по возрастанию массив
-10 -10 -9 -6 -3 -2 0 2 4 5
n = 10;
var
a: array[1..n] of integer;
i, j, t: integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := Random(16)-10;
Write(a[i]:4)
end;
Writeln;
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
Writeln('Отсортированный по возрастанию массив');
for i := 1 to n do Write(a[i]:4);
Writeln
end.
Тестовое решение:
Исходный массив
-10 -9 2 -3 -6 -10 -2 5 4 0
Отсортированный по возрастанию массив
-10 -10 -9 -6 -3 -2 0 2 4 5
Const
m = 3;
n = 4;
var
a: array[1..m, 1..n] of integer;
b: array[1..m] of real;
i, j, k: integer;
min:real;
begin
Writeln('Введите оценки студентов');
for i := 1 to m do
begin
b[i]:=0;
for j := 1 to n do
begin Read(a[i,j]); b[i]:=b[i]+a[i,j] end;
b[i]:=b[i]/n
end;
k:=1; min:=b[1];
for i:=2 to 3 do
if min>b[i] then begin min:=b[i]; k:=i end;
Writeln('Студент номер ',k,' имеет минимальный cредний ',min:5:2)
end.
Тестовое решение:
Введите оценки студентов
5 4 4 3
3 5 3 4
4 5 4 5
Студент номер 2 имеет минимальный cредний 3.75
m = 3;
n = 4;
var
a: array[1..m, 1..n] of integer;
b: array[1..m] of real;
i, j, k: integer;
min:real;
begin
Writeln('Введите оценки студентов');
for i := 1 to m do
begin
b[i]:=0;
for j := 1 to n do
begin Read(a[i,j]); b[i]:=b[i]+a[i,j] end;
b[i]:=b[i]/n
end;
k:=1; min:=b[1];
for i:=2 to 3 do
if min>b[i] then begin min:=b[i]; k:=i end;
Writeln('Студент номер ',k,' имеет минимальный cредний ',min:5:2)
end.
Тестовое решение:
Введите оценки студентов
5 4 4 3
3 5 3 4
4 5 4 5
Студент номер 2 имеет минимальный cредний 3.75
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Команды которые может выполнять робот
Автор: viktoritut
Гроза метель радуга как можно назвать одним словом
Автор: Васильевич Валерьевна
Переведите в двоичные числа 10110101110(2) 1111111111(2) 1010110(2)
Автор: moskwa999
ответ: 4000 байт
2.Сообщение состоит из 6 • 40 • 20 = 14400 символов. Поскольку объем этого текста составляет 28800 байт, то на один символ отводилось 2 байта, т.е. 16-разрядный двоичный код. Текст записан в кодировке Unicode.
ответ: 16 разрядов)
3.I = 5 Кбайт
K = 4 • 32 • 40
N = ?N = 2i; I = K • i
i = I/K, i = (5 • 210 • 23)/(22 • 25 • 23 • 5), i = 23 = 8
N = 28 = 256
ответ: 256 символов в алфавите)