Народ решить. Заранее Что такое информация?
2. Информацию, изложенную на доступном для получателя языке
называют:
а) полной; б) актуальной; в) полезной; г) достоверной; д) понятной.
3.Информацию, отражающую истинное положение вещей, называют:
а) достоверной; б) полезной; в) понятной; г) актуальной; д) полной;
4. В какой из последовательностей единицы измерения указаны в порядке
возрастания?
а) мегабайт, килобайт, байт, гигабайт б) байт, килобайт, мегабайт,
гигабайт
в) гигабайт, мегабайт, килобайт, байт г) гигабайт, килобайт, мегабайт,
байт
5. Перевод текста с английского языка на русский можно назвать:
а) процесс получения информации; б) процесс защиты информации;
в) процесс хранения информации; г) процесс передачи информации;
д) процесс обработки информации.
6. Выразите в байтах и битах 3 Кб.
7. Выразите в кило- и мегабайтах 8388608 бит.
8. К формальным языкам можно отнести:
а) китайский; б) английский; в) русский; г) химические элементы;
д) язык программирования; е) математические формулы.
9. Допишите предложения: «Иконические знаки . . . Примерами
иконических знаков являются . . .»
10. При угадывании целого числа в диапазоне от 1 до N было получено 7
бит информации? Чему равно N?
11. В коробке 32 шара. Какое количество информации несёт сообщение,
что достали один шар?
12. Допишите фразу: «Чтобы найти количество информации в сообщении
с точки зрения алфавитного подхода, нужно знать . . . и . . .»
13. Какое количество информации несёт один знак русского алфавита?
Как это можно посчитать?
14. Какое количество информации несёт код 10001000111?
15. Какое количество информации содержится скороговорка: «На дворе
трава, на траве дрова.»? (Используется компьютерный алфавит)
16. Племя Мульти имеет 32-символьный алфавит. Вождь этого племени
написал послание вождю племени Пульти. Это послание содержало 70
символов. Какой объём информации содержался в послании?
var
a,b:array[1..n] of integer;
i,j,k,m,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:5);
end;
writeln;
j:=0;
for i:=1 to n do
if a[i]<0 then begin j:=j+1; b[j]:=a[i]; end;
m:=j;
for k := 1 to m-1 do
for i := 1 to m-k do
if (b[i]<b[i+1]) then
begin
c:=b[i]; b[i]:=b[i+1]; b[i+1]:=c;
end;
writeln('Вс массив:');
for i:=1 to m do write(b[i]:5);
writeln;
j:=0;
for i:=1 to n do
if a[i]<0 then begin j:=j+1; a[i]:=b[j]; end;
writeln('Полученный массив:');
for i:=1 to n do write(a[i]:5);
writeln;
end.
Пример:
Исходный массив:
-15 -8 -6 -13 15 24 5 -2 14 -1 19 -2 -7 -8 -23 20 -2 7 -2 -10
Вс массив:
-1 -2 -2 -2 -2 -6 -7 -8 -8 -10 -13 -15 -23
Полученный массив:
-1 -2 -2 -2 15 24 5 -2 14 -6 19 -7 -8 -8 -10 20 -13 7 -15 -23
const n=20;
var
a:array[1..n] of integer;
i,k,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(51)-25;
Write(a[i]:4)
end;
writeln;
write('K = '); readln(k);
s:=0;
for i:=1 to n do
if a[i] mod k = 0 then s:=s+a[i];
Writeln('s = ',s);
end.
Пример:
Исходный массив:
18 -24 -4 -21 15 19 18 -16 -1 -8 7 -21 21 22 -24 -4 18 -16 24 4
K = 3
s = 24
2.
const n=10;
var
a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(11);
Write(a[i]:4)
end;
writeln;
writeln('Выбранные элементы:');
for i:=1 to n do
if a[i]<=i then Write(a[i]:4) else write(' ':4);
Writeln;
end.
Пример:
Исходный массив:
9 1 2 8 2 7 1 10 8 3
Выбранные элементы:
1 2 2 1 8 3