Bapiaнт 2
1. Під час виконання оператора повторення Repeat:
a) спочатку обчислюється логічний вираз i, залежно від результату, виконуються або не виконуються оператори тіла циклу;
б) спочатку виконуються оператори тіла циклу, потім обчислюється логічний вираз, результат якого впливає на повторення виконання операторів.
2. Вкажіть помилку, якщо така існує, у фрагменті програми, за яким на екран виводиться в стовпчик таблиця квадратів для чисел з проміжку [1;20]:
і:=1;
repeat
writeln(i,'—' ,i*i);
і:=і+1;
i>20 until;
a) змінити порядок запису операторів writeln(i,'-',i*i); та i:=i+1;;
б) початкове значення змінної i має бути 0;
в) логічний вираз i>20 має бути розміщений після слова until;
г) немає помилки.
3. Вкажіть помилку, якщо така існує, у фрагменті програми, за яким на екран виводиться результат табуляції функції sin (x) на проміжку з кроком .
x:=0;
WriteLn('x sin(x)');
repeat
WriteLn (x:4:2,sin(x):4:2);
х:=х+ ;
until x>Pi;
a) логічний вираз має бути таким x б) початкове значення аргументу має бути –Pi;
в) оператор x: =x+Pi/6; слід розмістити перед оператором WriteLn(x:4:2, sin(x):4:2);
г) не потрібно задавати початкове значення аргумента;
д) немає помилки.
4. Вкажіть результат виконання операторів:
i:=1;
repeat
Write(i, ' ');
і:=і+2;
until i>21;
a) на екрані виведено непарні числа з проміжку [1;19];
б) на екрані виведено перші 20 непарних чисел;
в) на екрані виведено парні числа з проміжку [2;20];
г) на екрані виведено непарні числа з проміжку [1;21];
д) на екрані виведено парні числа з проміжку [8;18];
e) неможливо визначити.
5. Яке значення матиме змінна p після виконання операторів:
i:=10;
repeat
if (i Mod 10)+(i Div 10)=10 then p:=p+1;
і:=і+1;
until i>31;
a) 0;
б) 10;
в) 1;
г) 2;
д) 31;
e) неможливо визначити.
6. Вкажіть фрагмент програми для знаходження найменшого тризначного числа, сума крайніх цифр якого дорівнює квадрату середньої цифри:
a)
i:=999;
repeat
i:=i –1;
until (i<100) Or (i Mod 10+i Div 100=Sqr(i Div 10 Mod 10));
б)
і:=99;
repeat
і:=і+2;
until (i=1000) Or (i Mod 10+i Div 100=Sqr(i Div 10 Mod 10));
7. Вкажіть результат виконання операторів:
i:=2;
repeat
j:=2; p:=i;
repeat
p:=p*i;
write (p:3); Inc(j);
until j>4;
writeln; Inc(i);
until i>9;
а) збільшує значення змінної i на 1;
б) виведення добутку числа i на число j;
в) виведення на екран у рядок степенів 2–4 порядку чисел від 2 до 9;
г) виведення на екран у рядок добутків чисел від 1 до 9 на число j;
д) виведення на екран у стовпчик добутків чисел від 1 до 9 на число j;
е) неможливо визначити.
8. Скільки разів відбуватимуться повторення виконання операторів тіла циклу:
i:=27;
repeat
write(i);
if i mod 2=0 then writeln('+') else writeln('-');
Dec(i);
until i>7;
а) 20;
б) 21;
в) 19;
г) 18;
д) 27;
е) 1;
є) жодного разу;
ж) неможливо визначити.
9. Вкажіть логічний вираз для оператора Repeat, якщо результатом його виконання є з’ясування, чи є число простим:
k:=1;
repeat
Inc(k);
until ? ;
a) p Mod k=0;
б) k>p Div 2;
в) (p Mod k=0) Or (k>p Div 2);
г) k<>p;;
д) p Mod k<>0;
е) неможливо визначити.
10. Вкажіть оператор, який впливає на значення логічного виразу:
k:=0;
repeat
c:=p Mod 10;
k:=k+c;
p:=p Div 10;
until p=0;
a) c:=p Mod 10;;
б) k:=k+c;;
в) p:=p Div 10;;
г) жоден;
е) неможливо визначити.
11. Вкажіть оператор, який впливає на значення логічного виразу:
x2:=x Div 2;
d:=2; i:=0;
repeat
if i Mod d =0
then begin
Inc(i);
write (i, ' – дільник=' , d) ;
end;
Inc(d);
until d>x2;
a) Inc(i);
б) Inc(d);
в) write (i, ' – дільник=',d);
г) x2:=x Div 2;
д) d:=2.