Bapiaнт 1
1. Вкажіть помилкові записи оператора WHILE:
a) while i<4 do i:=i+l;;
б) while a+b в) waile d>5 do d:=d–l;;
г) while a<>'A' do Read(a) ; ;
д) while c<15 do; с:=c+25;;
e) while d>20 do Dec(d);.
2. Вкажіть помилку, якщо така є у фрагменті програми, за яким на екран виводяться в рядок парні числа з проміжку [0;20].
i:=0;
while i<=20 do
write(i, ' ');
end;
a) логічний вираз має бути таким i<20;
б) зайве ключове слово end;;
в) оператор i:=i+2; повинен передувати оператору write(i, ` `);;
г) після слова do має бути слово begin;
д) немає помилки.
3. Вкажіть помилку, якщо така є, у фрагменті програми, за яким на екран виводяться в рядок непарні числа з проміжку [1;19].
i:=l;
while i<=19 do
begin
write(i, ' ');
i:=i+2;
end;
a) логічний вираз має бути таким i<19;
б) початкове значення змінної i має бути 0;
в) після слова do пропущено знак «крапка з комою»;
г) не потрібно використовувати операторні дужки begin … end;
д) немає помилки.
4. Вкажіть результат виконання операторів:
S:=0; i:=l;
while i<11 do
begin
S:=S+i;
i:=i+1;
end;
a) обчислено суму перших 11 натуральних чисел;
б) обчислено суму перших 10 натуральних чисел;
в) обчислено суму перших 12 натуральних чисел;
г) неможливо визначити.
5. Яке значення матиме змінна k після виконання операторів:
k:=5;
while k<50 do
begin
if (k mod 10)+(k div 10)=7 then Write(k,' ');
k:=k+1;
end;
a) 5;
б) 7;
в) 50;
г) 51;
д) 49;
e) неможливо визначити.
6. За допомогою логічного виразу потрібно сформувати оператор While для виведення на екран перших 10 натуральних парних чисел:
i:=2;
while ? do
begin
Write(i, ` `);
i:=i+2;
end;
а) i<10;
б) i<11;
в) і<20;
г) i<21;
д) i<22;
е) неможливо визначити.
7. Вкажіть результат виконання внутрішнього оператора присвоєння:
і:=1;
while i<100 do
begin
j:=2; f:=True;
while (j begin
f:=i Mod j<>0;
Inc(j);
end;
if f:=True then Write(i,* ');
Inc(i);
end;
а) збільшує значення змінної і на 1;
б) результатом є значення змінної j;
в) результатом є значення змінної f;
г) кількість дільників числа і;
д) визначення, чи є число і простим;
е) визначення, чи є число j простим;
є) неможливо визначити.
8. Скільки разів відбуватимуться повторення виконання операторів тіла циклу:
i:=12;
while i<24 do
begin
if i mod 10+i div 10<8 then Write(i*i:3);
Inc(i);
end;
a) 11;
б) 12;
в) 13;
г) 14;
д) жодного разу;
e) неможливо визначити.
9. Вкажіть логічний вираз для оператора While, якщо результатом його виконання є знаходження суми цифр натурального числа р:
S:=0;
while ? do
begin
S:=S+p mod 10;
p:=p div 10;
end;
a) S=0; ;
б) S<>0; ;
в) p=0; ;
г) p<>0;;
д) неможливо визначити.
10. Який оператор впливає на значення логічного виразу оператора While:
write('a='); readln(a);
k:=1; s:=0;
while a<>0 do
begin
s:=s+a;
write('a=');
readln(a)
k:=k+l;
end;
a) write ('a='); {розміщений до While};
б) readln (a); {розміщений до While};
в) s:=s+a; ;
г) write('a=') ; {розміщений у тілі циклу};
д) readln(a); {розміщений в тілі циклу};
e) k:=k+l;.
11. Скільки разів відбудеться повторення виконання операторів тіла циклу:
і:=13;
while i>100 do
begin
if i Mod 7=0 then writeln(i);
Inc(i);
end;
a) 13;
б) 100;
в) 88;
г) 86;
д) жодного разу;
e) невідомо.
12. Як змінюється значення змінної i у тілі циклу:
while i<100 do
begin
if i Mod 7=0 then writeln(i);
Inc(i);
end;
a) збільшується на 1;
б) зменшується на 1;
в) збільшується на 10;
г) зменшується на 10;
д) не змінюється;
е) невідомо. Варіант 2
1. Вкажіть помилкові записи оператора WHILE:
a) while i б) while i<5 and j<5 do a:=a+i; ;
в) while j+1>i do Dec(j); ;
г) while i<10 i:=i+1; ;
д) while i+j<25 do і:=і+1; ;
e) while j>i do Dec(j); .
2. Вкажіть помилку, якщо така є у фрагменті програми, за яким на екран виводиться у стовпчик таблиця квадратів чисел [1; 20].
і:=1;
while i<=20 do
writeln(i, '-' ,i*і);
і:=і+1;
a) оператор i:=i+1; повинен передувати оператору writeln(i, '-' ,i*i);
б) початкове значення змінної і має бути 0;
в) до операторів writeln (i, '-' ,i*i); i i:=i +1; потрібно застосувати оператор об’єднання;
г) відсутні операторні дужки begin…end; ;
д) немає помилки.
3. Вкажіть помилку, якщо така є, у фрагменті програми, за яким на екран виводиться результат табуляції функції sin (x) на проміжку з кроком x:= .
x:= –Pi;
WriteLn('x sin(x)') ;
begin
while x<=Pi do
WriteLn(x:4:2, sin(x):4:2) ;
x:=x+Pi/6;
end;
a) логічний вираз має бути таким x б) слово begin слід розмістити після слова do;
в) оператор x:=x+Pi/6; слід розмістити одразу після слова do;
д) не потрібно використовувати операторні дужки begin…end; ;
е) немає помилки.
4. Вкажіть результат виконання операторів:
i:=2;
while i<20 do
begin
Write(i, ' ');
i:=i+2;
end;
a) на екрані виведено непарні числа з проміжку [1;20];
б) на екрані виведено перші 20 непарних чисел;
в) на екрані виведено пані числа з проміжку [2;20];
г) на екрані виведено непарні числа з проміжку [1;21];
д) на екрані виведено парні числа з проміжку [2;18];
e) неможливо визначити.
5. Яке значення матиме змінна p після виконання операторів:
i:=10; p:=0;
while i<31 do
begin
if (i Mod 10)+(i Div 10)=2 then p:=p+1;
i:=i+1;
end;
a) 0;
б) 20;
в) 1;
г) 2;
д) 21;
е) неможливо визначити;
6. За допомогою якого логічного виразу потрібно сформувати оператор While для знаходження найбільшого тризначного числа, сума крайніх цифр якого дорівнює квадрату середньої цифри:
i:=999;
while ? do
i:=i–1;
a) (i>100) And (i Mod 10+i Div 10<>Sqr (i Div 10)); ;
б) i Mod 10+i Div 100<>Sqr(i Div 10 Mod 10); ;
в) (i>100) And (i Mod 10+i Div 100=Sqr(i Div 10 Mod 10)); ;
г) неможливо визначити.
7. Вкажіть результат виконання внутрішнього оператора повторення:
i:=1;
while i<9 do
begin
while j<9 do
begin
Write(i*j:3);
Inc(j);
end;
WriteLn;
Inc(i);
end;
a) збільшує значення змінної i на 1;
б) виведення добутку числа i на число j;
в) виведення на екран у рядок добутків чисел від 1 до 9 на число i;
г) виведення на екран у рядок добутків чисел від 1 до 9 на число j;
д) виведення на екран у стовпчик добутків чисел від 1 до 9 на число j;
e) неможливо знайти.
8. Скільки разів відбуватимуться повторення виконання операторів тіла циклу:
i:=27;
while i>7 do
begin
Write (i);
if і mod 2=0 then Writeln(`+`) else Writeln (`–`);
Inc (i);
end;
а) 20;
б) 21;
в) 19;
г) 18;
д) 27;
е) 7;
є) жодного разу;
ж) неможливо визначити.
9. Вкажіть логічний вираз для оператора While, якщо результатом його виконання є з’ясування, чи є число простим:
f:=false; k:=1;
while ? do
begin
Inc(k);
f:=(k=p div 2) Or (p Mod k=0);
end;
a) f;
б) Not f;
в) k=p;
г) k<>p;
д) p Mod k = 0; ;
е) неможливо визначити.
10. Який оператор впливає на значення логічного виразу оператора While:
X2:=x Div 2; d:=2; i:=0;
while d<=x2 do
begin
if x Mod d = 0 then
begin
Inc(i);
write (i, 'x-дільник' ,d) ;
end;
Inc (d);
end;
11. Скільки разів відбудеться повторення виконання операторів тіла циклу:
write('a='); readln(a);
k:=1; s:=0;
while a<>0 do
begin
s:=s+a;
write('a='); readln(a);
k:=k+1;
end;
а) 1;
б) 2;
в) 10;
г) 11;
д) жодного разу;
е) не відомо.
12. Як змінюється значення змінної d y тілі циклу:
d:=100; d:=d–d Mod 3;
while d>1 do
begin
write(d:3,' ');
Dec(d,3);
end;
a) Збільшується на 1;
б) зменшується на 1;
в) збільшується на 3;
г) зменшується на 3;
д) не змінюється;
е) не відомо.
|