1.Пиксель – это А.одна точка графической сетки Б. буква греческого алфавита В. название созданного изображения Г. имя графического файла 2. Сетка из горизонтальных и вертикальных столбцов, которую на экране образуют пиксели, называется А. видеопамять Б. видеоадаптер В. растр Г. дисплейный процессор 3. Размер монитора характеризуется А. длиной Б. шириной В. диагональю Г. периметром 4. Что собой представляет пиксель на цветном экране? Записать развернутый ответ. 5.Какой цвет в палитре RGB лишний? А. красный Б. зеленый В. синий Г. белый 6.Отметьте лишний пункт А. ЭЛТ-монитор Б. ЖК-монитор В. цветной монитор 7. Перечислить достоинства ЖК – монитора. Записать развернутый ответ. 8.Какое устройство не относится к техническим средствам компьютерной графики? А. монитор Б. сканер В. видеопамять Г. графический редактор 9. На дисплейный процессор информация попадает непосредственно из А. видеопамяти Б. информационной магистрали В. центрального процессора Г. оперативной памяти 10. Видеопамять - это … А. электронное устройство для хранения двоичного кода изображения, выводимого на экран Б. программа, распределяющая ресурсы ПК при обработке изображения В. устройство, управляющее работой графического дисплея Г. часть оперативного запоминающего устройства 11. Из каких частей состоит в идеоадаптер? Записать развернутый ответ. 12. Каково назначение дисплейного процессора? Записать развернутый ответ. 13. Какие два устройства имею доступ к видеопамяти? Каково их назначение? Записать развернутый ответ. 14. Какие устройства используются для ввода изображения в компьютер? Записать развернутый ответ. 15. Работа сканера как бы противоположна работе видеоадаптера и монитора. Объясните почему. Записать развернутый ответ.
Ответы
Пишу на Delphi (ObjectPascal):
function Summa(a,b:integer):string;
var a1,b1:integer;
begin //находим сумму первого числа
a1:=(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10);
//находим сумму второго числа
b1:=(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10);
//выясняем что больше
if a1>b1 then
Result:='Сумма цифр левого числа больше. Оно равно: '+IntToStr(a1)
else
Result:='Сумма цифр правого числа больше. Оно равно: '+IntToStr(b1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin //Выполнение и вывод результата функции через нажатие кнопки
Label1.Caption:=Summa(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
end;
function Summa(a,b:integer):string;
var a1,b1:integer;
begin //находим сумму первого числа
a1:=(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10);
//находим сумму второго числа
b1:=(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10);
//выясняем что больше
if a1>b1 then
Result:='Сумма цифр левого числа больше. Оно равно: '+IntToStr(a1)
else
Result:='Сумма цифр правого числа больше. Оно равно: '+IntToStr(b1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin //Выполнение и вывод результата функции через нажатие кнопки
Label1.Caption:=Summa(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
end;
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Вэлектронных устройствах информация непрерывно связана с чем?
Автор: zabrodin
Используя оператор repeat until ввчислить сумму s=1+6/7/1 6/7+6/7/2 5/7++6/7/n
Автор: irinasolodova3
Чем отличается компьютерная модель от формальной модели?
Автор: Dmitrii836
1) varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(A)else writeln(B);end.2)varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(B)else writeln(A);end.3)varA, B: integer;beginreadln(A);readln(B);if (A>B) then beginwriteln (A, ' - максимальное число');writeln (B, ' - минимальное число');end;if (B>A) then beginwriteln (B, ' - максимальное число');writeln (A, ' - минимальное число');end;end.4)varA, B, c, d: integer;beginreadln(A);readln(B);c:= A+2*B;d:= 3*A-B;if (c>d) then writeln ('A+2B > 3A-B')else writeln ('3A-B > A+2B');end.
Воот))