Контрольные вопросы 1. Для чего необходимы устройства ввода информации?
2. Какие устройства позиционирования вы знаете?
3. Какие типы клавиатур существуют?
4. Какие разновидности контактных клавиатур?
5. Какие интерфейсы используются для подключения клави
6. Какие типы манипуляторов "Мышь" вы знаете?
7. Какие отличия между оптическим и лазерным манипулят
8. Какие
характерные черты
свойственны Инду
гироскопическим манипуляторам "Мышь"?
9. Какие интерфейсы используются для подключения мани
10. Что такое световое перо и дигитайзер?
11. Где применяются графические планшеты?
var
i,a,b:integer;
ar:array[1..10] of integer;
procedure oddDec(var a,b:integer); //подпрограмме переданы аргументы a и b
//процедура для вычитания в нечётном элементе
begin;
a:=a-b;
end;
procedure NotoddInc(var a,b:integer); //подпрограмме переданы аргументы a и b
//процедура для сложения в чётном элементе
begin;
a:=a+b;
end;
begin
randomize;
readln(a); //ввод a
readln(b); //ввод b
writeln('Array:');
for i:=1 to 10 do //весь массив
begin;
ar[i]:=random(-20,80); //случайные числа от -20 до 80 включительно
write(ar[i]:4); //вывод
if odd(i) then oddDec(ar[i],b) else NotoddInc(ar[i],a);
{если нечётное, то первая процедура, иначе вторая. Обращаю внимания на то, что элементы меняются сразу после вывода}
end;
writeln;
writeln('Final array:'); //вывод получившегося массива
for i:=1 to 10 do
write(ar[i]:4);
end.
Пример ввода:
20
10
Пример вывода:
Array:
10 16 0 60 23 4 22 -20 4 55
Final array:
0 36 -10 80 13 24 12 0 -6 75