1. Какими будут значения переменных j, k после выполнения условного оператора:
if j>k Then j = k-2 Else k=k-2;
если исходные значения переменных равны: j=5, k=3?
1) j=3, k=3.
2) j=1, k=3.
3) j=3, k=5.
2. Определить значение переменной S после выполнения следующих операторов:
s:=0;
n:=4;
For i:=2 То n Do
s:=s+100 Div i;
1) S = 64.
2) S = 128.
3) S = 108.
4) S = 256.
3. Какие из приведенных операторов неправильные?
а) For i:=12 To 15 Do s:=s+i;
б) For a:=30 To 20 Do
if a Mod 3=0 Then d:=d+1;
в) For i:=40 downto 15 Do s:=s+i;
1) В.
2) А.
3) Б.
4. Дана последовательность операторов:
а:=1; b:=1;
while a+b<8 do Begin
а:=а+1;
b:=b+2;
End;
s:=a+b;
Сколько раз будет повторен цикл и какими будут значения переменных а, b, и s после завершения этой последовательности операторов?
1) 3 раза, s=6 a=3, b=5.
2) 2 раза, s=8, a=3, b=5.
3) 1 раз, s=8, a=3, b=7.
5. Оператор для организации повторения действий в языках программирования – это…
1) оператор организации диалога с пользователем;
2) условный оператор;
3) оператор цикла?
6. Этап, на котором устраняются синтаксические ошибки в программе, – это…
1) отладка программы;
2) ввод программы;
3) тестирование программы?
7. Оператор цикла, тело которого выполняется как минимум один раз независимо от значения параметра цикла, – это оператор цикла:
1) с предусловием (WHILE);
2) с заданным числом повторений (FOR);
3) с постусловием (REPEAT)?
8. Что называется алгоритмом?
1) Алгоритм – описание последовательности действий (план), строгое исполнение которых приводит к решению поставленной задачи за конечное число шагов;
2) Алгоритм – описание последовательности действий (план), для решения задачи;
3) Алгоритм – примерный план для решения задачи.
9. Имеется условный оператор:
If D<>10 Then writeln (‘Ура’) Else writeln (‘Плохо…’);
Каким оператором его можно заменить?
1) If D<>10 Then writeln (‘Плохо…’) Else writeln (‘Ура’);
2) If Not(D=10) Then writeln (‘Плохо…’) Else writeln (‘Ура’);
3) If Not(D<>10) Then writeln (‘Плохо…’) Else writeln (‘Ура’).
10. В результате выполнения фрагмента программы:
a:=3,14;
writeln (frac(a));
на печать будет выведено:
1) 3,14, 2) 3.14, 3) 3, 4) 14.
11. Составьте программу, которая из трех введенных с клавиатуры чисел возводит в квадрат положительные, а отрицательные оставляет без изменения.
12.Найти сумму отрицательных элементов массива, размерности 15, заполненного с случайных чисел из промежутка (-15;23).
13.Найти количество четных элементов массива целых чисел, заполненного с клавиатуры, размерность массива 9.
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer;
i, j, k,n,r,t: integer;
begin
Writeln('Введите размер матрицы n');Read(n);
for i := 1 to n do begin
for j := 1 to n do begin
Read(k);x[i, j] := k; end;end;
Writeln('Исходный массив');
for i := 1 to n do begin
for j := 1 to n do begin
Write(x[i, j]:4);
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;
end;
Writeln; end;
Writeln;Writeln('Одномерный массив');
for j := 1 to t do
Write(z[j]:4);
end.
begin
var n:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(n,-50,50);
a.Println(',');
Writeln('Четные элементы: ');
var i:=1;
while i<n do begin Write(a[i],' '); Inc(i,2) end;
Writeln;
Writeln('Нечетные элементы: ');
i:=0;
while i<n-1 do begin Write(a[i],' '); Inc(i,2) end;
Writeln
end.
Тестовое решение:
Количество элементов в массиве: 10
15,-18,-29,-25,46,21,-8,-17,-9,15
Четные элементы:
-18 -25 21 -17 15
Нечетные элементы:
15 -29 46 -8 -9