8b - Устройства ввода и вывода
1. Отметьте в этом списке все устройства ввода.
клавиатура
сканер
мышь
принтер
флэш-накопитель
2. Отметьте все правильные утверждения о беспроводных мышах.
им нужны батарейки или аккумуляторы
для обмена данными они используют радиоволны
они должны быть соединены кабелем с компьютером
для обмена данными они используют звуким не нужны дополнительные источники питания
3. Как называется устройство для ввода в компьютер графической информации? ответ:
4. Что означает английское сокращение OCR?
оптическое распозначание символов
сканирование фотографий
обработку изображений
редактирование текста
художественную фотографию
5. Как называется устройство, измеряющее какую-либо физическую величину и преобразующее её в электрические сигналы?
ответ:
6. Отметьте в списке все устройства для ввода изображений.
сканер
графический планшет
принтер
монитор
веб-камера
7. Отметьте в списке все устройства вывода.
сканер
принтер
монитор
флэш-накопитель
звуковые колонки
8. Как строится цветное изображение на мониторе?
из точек красного, зелёного и синего цветов
из точек голубого, фиолетового и жёлтого цветов
элементы экрана могут принимать любой цвет
все мониторы - чёрно-белыеиз точек красного, синего и жёлтого цветов
9. В каких единицах измеряется качестве печати принтеров?
точки на дюйм (dpi)
пиксели на дюйм (ppi)
точки на сантиметр (dpc)
пиксели на сантиметр (ppc)
точки на миллиметр (dpm)
10. Как называют устройство для печати больших изображений?
принтер
сканер
графопостроитель
плоттер
3D-принтер
11. Как называют устройство для печати объёмных тел?
принтер
сканер
графопостроитель
плоттер
3D-принтер
12. Отметьте в списке все устройства для вывода звука.
микрофон
звуковые колонки
наушники
принтер
сканер
13. Отметьте в списке все устройства для вывода изображений.
монитор
плоттер
наушники
принтер
сканер
const
n=5;
var
a:array[1..n,1..n] of integer;
x:array[1..n] of double;
i,j,k:byte;
begin
Randomize;
Writeln('*** Исходный массив ***');
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(51)-25;
Write(a[i,j]:4)
end;
Writeln
end;
Writeln('*** Массив x ***');
for j:=1 to n do begin
x[j]:=0; k:=0;
for i:=1 to n do
if a[i,j] mod 2=0 then begin
x[j]:=x[j]+a[i,j]; Inc(k)
end;
if k>0 then x[j]:=x[j]/k;
Write(x[j]:0:5,' ')
end;
Writeln
end.
Тестовое решение:
*** Исходный массив ***
-10 18 -8 -15 5
-21 -18 6 -2 9
-7 22 -4 3 14
21 16 -10 -18 -9
17 3 -14 -18 12
*** Массив x ***
-10.00000 9.50000 -6.00000 -12.66667 13.00000
// PascalABC.Net 3.0, сборка 1066
procedure CheckString(var s:string; var n:integer);
var
i:integer;
begin
i:=Length(s);
while i>0 do begin
if not(s[i] in ['a'..'z']) then Delete(s,i,1);
Dec(i)
end;
n:=Length(s)
end;
var
s1,s2:string;
i,p,n1,n2:integer;
begin
Write('Введите первую строку: '); Readln(s1);
CheckString(s1,n1);
if n1=0 then Writeln('Введенная строка не содержит допустимых символов')
else begin
Write('Введите вторую строку: '); Readln(s2);
CheckString(s2,n2);
if n2=0 then Writeln('Введенная строка не содержит допустимых символов')
else
{ теперь обе строки содержат только маленькие латинские буквы }
if n1=n2 then begin
for i:=1 to n1 do begin
p:=Pos(s1[i],s2);
if p=0 then Break
else Delete(s2,p,1)
end;
if Length(s2)=0 then Writeln('Решение имеется')
else Writeln('Решения нет')
end
else
Writeln('Решения нет');
end
end.
Тестовое решение:
Введите первую строку: this is my own deal!
Введите вторую строку: Тест: *is now=l2ead my sthi?
Решение имеется
Также имеется современное решение, которому пока что в школах не учат:
// PascalABC.Net 3.0, сборка 1066
begin
var s1:=ReadString('Введите первую строку: ').Where(x->x in ['a'..'z']);
if s1.Count=0 then
Writeln('Введенная строка не содержит допустимых символов')
else begin
var s2:=ReadString('Введите вторую строку: ').Where(x->x in ['a'..'z']);
if s2.Count=0 then
Writeln('Введенная строка не содержит допустимых символов')
else
if s1.Except(s2).Count>0 then Writeln('Решения нет')
else Writeln('Решение имеется')
end
end.