Тест по теме «Программное управление работой компьютера».
1. Укажите условие выбора чисел, кратных 3 или не кратных 4
А) (x mod 3 = 0)
Б) (x mod 3 = 0) or (x mod 4 <>0)
В) (x mod 3 = 0) and (x mod 4 <>0)
2. Какое значение примет переменная С в результате выполнения программы:
var A,B,C: integer;
begin
A:=4; B:=A*4-6;
if B<2*A then A:=2;
if B>2*A then A:=5;
C:=A*B+A;
write(`C=`,C);
end.
А) 14
Б) 22
В) 55
Г) 28
3. Какой оператор позволяет вычислить квадрат числа?
А) SQRT
Б) ABS
В) SQR
4. Как записать оператор вывода?
А) writeln()
Б) readkey()
В) readln()
5. Как записывается оператор ввода?
А) writeln()
Б) readkey()
В) readln()
6. Операторы для организации диалога с пользователем в языке программирования - это...
А) оператор ввода и оператор вывода
Б) условный оператор
В) оператор цикла
7. Назначение циклической структуры:
А) повторение идущих подряд одинаковых команд некоторое число раз
Б) повторение одной команды не более 10 раз
В) проверка условия в тексте
8. Как записывается оператор присваивания?
А) а=:1
Б) а=1
В) а:=1
9. Укажите правильное описание массива:
А. Var a: array[1..1000] of integer;
Б. Var A,B,C: array[1...50, 1...50] of real;
B. Var a: array[1..50] of integer;
А) A,Б
Б) Б,В
В) А,В
10. Какая строка из перечисленных описывает символьную переменную на языке Паскаль?
А) var x: integer
Б) var x: Boolean
В) var x: real
Г) var x: char
11. Оператор цикла с предусловием в Паскале имеет следующий формат:
А) write <выражение> do <оператор>
Б) writeln <выражение> go <оператор>
В) while <выражение> do <оператор>
12. Формат неполной формы ветвления следующий:
А) if <условие> else <оператор 2>
Б) if <условие> then <оператор 1> else <оператор 2>
В) if <условие> then <оператор 1>
13. Что производит следующий фрагмент программы?
FOR I:=1 TO N DO
WRITE(A[I],` `);
А) Ввод элементов массива из файла
Б) Вывод элементов массива в файл
В) Ввод элементов массива с клавиатуры
Г) Вывод элементов массива на экран монитора
14. Что производит следующий фрагмент программы?
K:=0;
FOR I:=1 TO N DO
IF A[I]<0 THEN K:=K+1;
WRITELN(K=`,K);
А) Находит максимальный элемент и печатает на экране
Б) Находит минимальный элемент и печатает на экране
В) Находит сумму отрицательных элементов и печатает на экране
Г) Находит количество отрицательных элементов и печатает на экране
15. При каком значении X на экран выводится "ДА"?
if X MOD 2=0 then writeln (`ДА`) else writeln(`НЕТ`)
А) 12
Б) 15
В) 17
Г) 19
16. Дана последовательность операторов, сколько раз будет повторен цикл?
А:=1; B:=1;
WHILE A+B < 8 DO
BEGIN А:=А+1; B:=B+2;
END;
А) 2 раза
Б) 3раза
В) 4 раза
Г) 5 раз
var a:array[1..n]of integer;
i,b,k,c,f,g,h:integer;
begin
for i:=1 to n do a[i]:=Random(70)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do begin
if (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i]=50) then begin
b:=i;
for b:=i to (n-1) do
a[i]:=a[i+1];
end; end;
for i:=1 to n do
write(a[i],' ');
write('введите к ');
read(k);
for i:=1 to n do begin
if a[i] mod i = 0 then begin
c:=i;
for i:=n downto c+1 do begin
a[i]:=a[i-1];
a[c+1]:=k;
end;end;end;
for i:=1 to n do
write(a[i],' ');
writeln;
f:=0; g:=0;
for i:=n downto 1 do begin
if (a[i]>0) then f:=i;
end;
if a[f]=0 then write('нет положительных ');
for i:=n downto 1 do begin
if (a[i]<0) then g:=i;
end;
if (a[g]=0) then write('нет отрицательных ');
if (a[f]<>0) and (a[g]<>0) then begin
h:=a[f]; a[f]:=a[g]; a[g]:=h; end;
for i:=1 to n do
write(a[i],' ');
writeln;
end.
Только первых три
Задача 1:
var p: array[1..10] of integer;
i:integer;
count:integer;
begin
for i:=1 to 10 do read(p[i]);
write('Сколько цифр массива хотите видеть? -> ');
readln(count);
for i:=1 to count do write(p[i]:3);
end.
Задача 2:
var arr: array[1..10] of integer;
i:integer;
s:integer;
count:integer;
begin
for i:=1 to 10 do
begin
arr[i]:=Random(-10,10);
if(arr[i]<0) then
begin
writeln(arr[i]:4);
s:=s+arr[i];
count:=count+1;
end;
end;
writeln('Среднее значение = ', s/count);
end.
Задача 3:
var arr: array[1..10] of integer;
i:integer;
crat:integer;
id:integer;
begin
for i:=1 to 10 do
begin
read(arr[i]);
crat:=arr[i] mod 3;
if(crat = 0) then
begin
id:=arr[i];
if(arr[i] = id) then writeln('Id = ', i:2);
end;
end;
end.