6. Устройство, которое используется для передачи инфор- 1. Как называется объект, который передает информацию? 5. Секретный параметр, используемый криптографиче- А) Источник информации. B) Информационный канал. С) Приемник информации. D) Средство для передачи звука. E) Техническое средство. 2. Аппарат, который используется для передачи и приема звука (речи человека). A) Монитор. В) Сканер. C) Телеграф. D) Телефон. E) Мышь. 3. Биологический информационный канал. A) Телефон. B) Телевизор. C) Орган зрения. D) Компьютер. Е) Принтер. 4. Устройство, которое используется для беспроводной пере дачи информации. А) Мышь. В) Радио. C) Сканер. D) Принтер. E) Клавиатура. ским при шифровании/расшифровании алгоритмом сообщений. А) Ключ. B) Криптография. C) Криптоанализ. D) Шифр. E) Кодовое слово. мации по буквам. A) Телефон. В) Радио.
Var a: array[0..99] of integer; begin //заполняем массив случайными числами Randomize(); for var i:=0 to 99 do a[i]:=random(-100,100);
//а теперь заменяем все отрицательные элементы на ноль for var i:=0 to 99 do if (a[i]<0) then a[i]:=0; end.
Вот второй вариант программы, со вводом с клавиатуры и со сдвигом нулевых элементов в хвост массива program pr_1;constn = 6;varA: array [1..n] of integer; n1: integer; beginWrite('введите ');for i := 1 to n doread(A[i]); n1:=n; for var i:=n downto 1 do{в цикле просматриваем элементы массива} begin if A[i] < 0 then {проверяем, нужно ли удалять i-ый элемент} begin{если нужно – удаляем i-ый элемент} for var j := i to n1 - 1 do A[j] := A[j + 1]; {сдвигаем} A[n1]:=0; Dec(n1); {уменьшаем количество элементов} end; end; for var i:=1 to n1 do write(A[i], ' ');end.
Тест по теме «Алгоритмы в языке Паскаль»
Вариант 1
1. Алгоритм, в котором команда или серия команд повторяется, называется
А) циклическим;
2. Укажите процесс, который демонстрирует работу циклического алгоритма:
A) движение часовой стрелки;
3. Какой цикл называют циклом с предусловием?
B) While;
5. Требуется подсчитать сумму натуральных чисел от 5 до 125. Какое условие нужно использовать в цикле While?
C) i<=125.
6. Сколько раз будет выполняться цикл For i:=7 to 12 do…;
B) 6 раз;
7. Сколько раз исполнится цикл:
i:=4;
while i<10 do i:=i+3;
A) 2 раза;
8. Сколько раз исполнится следующий цикл:
i:=21;
Repeat
i:=i-5
Until i<21;
A) 1
9. Чему будет равна переменная sum после выполнения фрагмента программы:
sum:=0;
for i:=7 to 9 do
sum:=sum+i;
B) 24;.
10 . Чему равна переменная с после выполнения алгоритма:
а:=2
b:=3
а:=а*b=6
b:=a+b=9
c:=3-2*a+b=0
c:=c-b=-9
C) -9
Тест по теме «Алгоритмы в языке Паскаль»
Вариант 2
1.Алгоритм, в котором команда или серия команд повторяется называется
A) циклическим;
2.Укажите процесс, который демонстрирует работу циклического алгоритма:
C) движение Земли вокруг своей оси.
3.Какой цикл называют циклом с постусловием?
A) Repeat;
5.Требуется подсчитать сумму натуральных чисел от 2 до 22. Какое условие нужно использовать в цикле While?
A) i<23;
6.Сколько раз будет выполняться цикл For i:=4 to 8 do…;
A)5 раз;
7.Сколько раз исполнится цикл:
i:=6;
while i<18 do i:=i+3;
C)4 раза.
8. Сколько раз исполнится следующий цикл:
i:=12;
Repeat
i:=i-2
Until i<4;
B)5;
9.Чему будет равна переменная sum после выполнения фрагмента программы:
sum:=0;
for i:=5 to 8 do
sum:=sum+i;
C)26.
10. Чему равна переменная с после выполнения алгоритма:
а:=4
b:=1
b:=b-a=-3
b:=b*a=-12
a:=a-2*b=28
c:=a+b=16
B) 16
a: array[0..99] of integer;
begin
//заполняем массив случайными числами
Randomize();
for var i:=0 to 99 do a[i]:=random(-100,100);
//а теперь заменяем все отрицательные элементы на ноль
for var i:=0 to 99 do
if (a[i]<0) then a[i]:=0;
end.
Вот второй вариант программы, со вводом с клавиатуры и со сдвигом нулевых элементов в хвост массива
program pr_1;constn = 6;varA: array [1..n] of integer; n1: integer;
beginWrite('введите ');for i := 1 to n doread(A[i]); n1:=n; for var i:=n downto 1 do{в цикле просматриваем элементы массива} begin if A[i] < 0 then {проверяем, нужно ли удалять i-ый элемент} begin{если нужно – удаляем i-ый элемент} for var j := i to n1 - 1 do A[j] := A[j + 1]; {сдвигаем} A[n1]:=0; Dec(n1); {уменьшаем количество элементов} end; end; for var i:=1 to n1 do write(A[i], ' ');end.