1. Какую систему кодирования использует человек? 1. Числовую
2. Буквенную
3. Звуковую
4. Пиктографическую
2. За наименьшую единицу измерения информации принят...
1. 1 файл
2. 1 бит
3. 1 байт
4. 1 Кбайт
3. Для человека – буква, для компьютера - ………
1. Картинка
2. Тоже буква
3. Число
4. Последовательность нолей и единиц
5. Цифра
4. Какой объем занимает в памяти компьютера символ с кодом 097
1. 3 байта
2. 1 бит
3. 1 байт
4. 1 Кбайт
5. Наименьшим элементом поверхности экрана, для которого могут быть заданы адрес, цвет и интенсивность, является:
1. точка
2. дюйм
3. пиксель
4. сантиметр
E. растр
6. За наименьшую единицу измерения текстовой информации принят...
1. 1 файл
2. 1 бит
3. 1 байт
4. 1 Кбайт
7. Пиксель на экране монитора представляет собой:
1. минимальный участок изображения, которому независимым образом можно задать цвет
2. двоичный код графической информации
3. электронный луч
4. совокупность 16 зерен люминофора
8. Для хранения 256-цветного изображения на кодирование одного пикселя выделяется:
1. 2 байта
2. 4 бит
3. 8 бит
4. 4 байта
5. 1 Кбайт
6. 1 байт
9. Базовые цвета палитры RGB:
1. красный, синий и зеленый
2. синий, желтый, зеленый
3. красный, желтый и зеленый
4. голубой, желтый и пурпурный
5. палитра цветов формируется путем установки значений оттенка цвета, насыщенности и яркости
10. Перевод звукового сигнала из аналоговой формы в дискретную называется…
1. дискретизация
2. формализация
3. переадресация
4. дискредитация
uses GraphABC, Crt;
Var
x,y,t,v1,v2:integer;
C:word;
Begin
Write('Введите время работы светофора: ');
ReadLn(t);
Write('Введите скорость зелёной машины: ');
ReadLn(v1);
Write('Введите скорость красной машины: ');
ReadLn(v2);
LockDrawing;
Repeat
ClearWindow;
Case (C div t) mod 3 of
0:SetBrushColor(clGreen);
1:SetBrushColor(clYellow);
2:SetBrushColor(clRed);
End;
Circle(-30+(WindowWidth div 2),-40+(WindowHeight div 2),10);
Case (C div t) mod 3 of
2:SetBrushColor(clGreen);
1:SetBrushColor(clYellow);
0:SetBrushColor(clRed);
End;
Circle(-40+(WindowWidth div 2),30+(WindowHeight div 2),10);
if C<65535 then C:=C+1
else C:=0;
SetBrushColor(clMedGray);
FillRect(0,20+(WindowHeight div 2),WindowWidth,-20+(WindowHeight div 2));
FillRect(20+(WindowWidth div 2),0,-20+(WindowWidth div 2),WindowHeight);
SetBrushColor(clGreen);
FillRect(-13+(WindowWidth div 2),-40+y,13+(WindowWidth div 2),y);
if ((x+v1<=(WindowWidth div 2)-20)or(x-40>=(WindowWidth div 2)+20)) then x:=x+v1
else
Begin
if ((y-40>=20+(WindowHeight div 2))or(y<=(WindowHeight div 2)-20)) then
Begin
if ((C div t) mod 3 = 2)or(x>(WindowWidth div 2)-20) then x:=x+v1
End
End;
if x>=WindowWidth+40 then x:=0;
SetBrushColor(clRed);
FillRect(-40+x,13+(WindowHeight div 2),x,-13+(WindowHeight div 2));
if (y+v2<=(WindowHeight div 2)-20)or(y-40>=(WindowHeight div 2)+20) then y:=y+v2
else
Begin
if (x-40>=20+(WindowWidth div 2))or(x<=(WindowWidth div 2)-20) then
Begin
if ((C div t) mod 3 = 0)or(y>(WindowHeight div 2)-20) then y:=y+v2
End
End;
if y>=WindowHeight+40 then y:=0;
Redraw
Until false;
End.