Персональный сайт

П`ятниця, 26.04.2024, 00:31

Cайт вчителя інформатики Герасимович Л.Й.
"Щоб з користю учити інших, потрібно перш за все вчитися
самому, учитися до глибокої старості " Є.О.Патон
перехід на http://teachinfo.edukit.dn.ua/

Головна

Реєстрація

Вхід

Вітаю Вас, Гість · RSS

Меню сайту

Фізкультхвилинка

С праздником

Наше опитування

Статистика

Онлайн всього: 1

Гостей: 1

Користувачів: 0

Форма входу

Цикли_в1

Вариант 1

1. Виберіть значення виразу-умови в циклі While, що дозволяє закінчити виконання тіла циклу:

True

False

2.Виберіть зі списку оператори, що відповідають наведеним:for i:=1 to 5 do

a:=a+i;

i:=1;

while i<=5 do a:=a+i;

i:=1;

while i<=5 do begin

a:=a+i; i:=i+1; end;

I:=1; repeat a:=a+i; until i>5;

i:=1;
repeat
a:=a+i;i:=i+1;
until i<=5;

3. Виберіть значення,якого набуде змінна після виконання наведених операторів:

S:=0; for i:=1 to 2 do S:=S+i;

0;

1;

2;

3.

4.Виберіть опис блок-схеми:

А. i:=1;
if i<=n then begin while умова then K1;K2
i:=i+крок; end;

Б. i:=1;
While i<=n do begin
while умова do
K1;K2;
i:=i+крок;end;

В.i:=1;
if i<=n then if умова then k1 else k2;
i:=i+крок;;

Г. i:=1;
while i<=n do begin
if умова then k1; k2 I:=i+крок; end;

5.Виберіть оператори, що містять помилки:

for a:=1 to 10 do

for a:=10 to 1 do

for a:=1 to 1 do

for a:=10 downto 1 do

6. Виберіть значення, якого набуде змінна y після виконання наведених команд:

Y:=0; j:=5;

for i:=3 downto 1 to

begin

y;=y+j; j:=j-2;
end;

9

8

3

1

В завданні 7- виберіть декілька правильних відповідей

7. Виберіть зі списку оператори циклів, у яких тіло циклу буде виконуватися 5 разів:

i:=2;
while i<=10 do begin

... i:=i+2; end;

i:=2;
repeat

... i:=i+2; until i>10;;

for i:=1 to 5 do ...;

i:=1;
while i<=5 do
a:=a+i;

8.Наведена програма складена для обчислення значення виразу:

Виберіть пропущений рядок:

var m,I:integer; y:real;

begin

Readln(m); y:=0;

for i:=1 to m do

y:=y+________________

writeln(y:6:3);

end.

2m-1/2m;

(2*m-1)/(2*m)

(2*i-1)/(2*i);

(2*i-1)/2*i;

9.Наведені програми розвязують одну й ту саму задачу. Виберіть пропущений рядок для другої програми:

I.

Var I,n:integer;

r:real;

begin

readln(n); r:=1;

for i:=1 to n do

if i mod 2<>0 then r:=r*i;

writeln(r); end.

II.

var i,n:integer;

r:real;

begin

readln(n);

r:=1; i:=1;

repeat

r:=r*i;

__________

until i>n;

writeln(r);end.

i:=i+1;

if i mod 2<>0 then

i:=i+2;

if i mod 2=2 then

Пошук

ЗНО 2019

Календар

Видео

Категорії розділу

Мої сайти

Мой сайт

ON-ляндія

Погода

Краматорськ

вологість:

тиск:

вітер:

Погода на 10 днів від sinoptik.ua