Письменно выполните тест на закрепление знаний, ответы (фото тетради) вышлите мне почтой ЭЖ: 1)Аналоговым представления информации является:
А) картина художника
Б) цифровое фото
В) фото, распечатанное на принтере
Г) рисунок, созданный в Paint
Д) отсканированное изображение
Е) рисунок ребенка
2) Какое количество цветов в палитре, при глубине цвета равном 3 бита
А) 4 цвета
Б) 6 цветов
В) 8 цветов
Г) 16 цветов
3) Перечислите минусы векторной графики
а) не изменяется при масштабировании
б) изменяется при масштабировании
в) небольшой информационный объем
г) большой информационный объем
д) реалистичность изображения
е) не реалистичность изображения
4) Количество информации, которое необходимо для кодирования дискретных уровней громкости цифрового звука это…
А) глубина цвета
Б) глубина кодирования звука
В) частота дискретизации
Г) количество уровней громкости
5) Выберите форматы растровых графических файлов
А) bmp
Б) tiff
В) wmf
Г) gif
Д) mp3
Е) odg
Ж) jpeg
З) wav
И) png
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293
var
x, y, a, b, k: integer;
begin
k:=10000;
repeat
x:=k;
a := 0; b := 0; y := 1;
while x > 0 do
begin
if (x mod 10) mod 2 = 0
then
a := a * 10 + x mod 10
else begin
y := y * 10;
b := b * 10 + x mod 10
end;
x := x div 10
end;
a := a * y + b;
k := k + 1;
until a = 26391;
writeln(a:8, k-1:8);
end.
begin
var a:=MatrixRandom(7,7,0,9);
var k:=0;
for var i:=0 to 6 do begin
for var j:=0 to 6 do begin
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Тестовое решение:
2 1 7 3 3 2 7
9 2 9 2 0 5 5
4 2 6 9 4 6 0
1 0 3 5 4 5 9
6 3 6 0 2 0 8
0 8 4 3 2 1 8
6 0 4 4 5 4 0
Кол-во элементов на [1,5]: 27
Вариант "совсем для школы"
const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.