1. Заполните таблицу в соответствии с теоретическим материалом
Таблица Разъемы подключения
Разъем
Питание системного блока
Питание монитора
Параллельный порт
Последовательный порт
Mouse
Keyboard
USB
LAN
1. Заполните таблицу.
Параллельный
последовательный интерфейс
Максимальная
Тип разъема
Характеристика
Примечания
COM-
порт
LPT-
порт
USB
IEEE1394
IrDA
Bluetooth
HJIH
пропускная
Подключаемые устройства
Количество
одновременно
подключаемых устройств
Проводной или беспроводный
интерфейс
Ответы на вопрос:
uses crt; const mn1: array[1..5] of byte =(5,6,1,2,3); {объявляем наши наборы}const mn2: array[1..5] of byte =(5,8,6,0,3); {объявляем наши наборы} var i,c,n: integer; begin clrscr; write('набор1 до обработки: '); for i: =1 to 5 do write(mn1[i]: 3); {выводим на экран набор 1} writeln; writeln; write(' набор2 до обработки: : '); for i: =1 to 5 do write(mn2[i]: 3); {выводим на экран набор 2} writeln; writeln; n: =1; c: =0; while (n< =5) do {в цикле сравниваем n-й элемент набора1 с} begin {каждым элемент набора2 } for i: =1 to 5 do begin if (mn1[n]=mn2[i]) then begin c: =c+1; {если нашли совпадение до увеличиваем кол-во пар чисел} mn1[n]: =0; {и записываем на их место нули} mn2[i]: =0;
break; {переходим к след элементу набора1} end; end;
inc(n); end;
{выводим результаты обработки}
write('количество пар чисел: ',c);
writeln; write(' набор1 после обработки : '); for i: =1 to 5 do write(mn1[i]: 3); writeln; writeln; write(' набор2 после обработки : '); for i: =1 to 5 do write(mn2[i]: 3); readkey; {пауза до нажатия на любую клавишу} end.
Популярно: Информатика
-
хочузнать201820.05.2022 01:10
-
daria20020525.03.2020 05:48
-
elyakhina197623.05.2023 15:33
-
hbgggb28.06.2023 12:29
-
omelyanovichni27.04.2023 03:16
-
nekrasovlesha116.10.2022 07:07
-
ketgalyschko16.06.2022 17:10
-
taysonrelect25.11.2022 16:42
-
anastaswiip01dya06.06.2021 10:15
-
delsinroujob30.09.2022 06:28