Циклы
Алгоритм называется циклическим, если в нем ...
Реализуется многократно повторяемая последовательность действий.
Используются повторяющиеся параметры.
Многократно повторяется одно и то же вычисление.
Используется команда выбора.
Определите, сколько раз будет выполняться тело цикла при вычислении: y = 2x+5 на промежутке [-6; 6] с шагом 3.
6
4
5
не выполниться ни разу.
Определите результат выполнения следующего фрагмента программы:
x:=1;
while x<= 10 do
begin
y:=x*x+4;
x:= x+2;
end;
write('x=', x, 'y=', y);
x = 9 y = 53
x = 11 y = 85
x = 9 y = 85
x = 125 y = 13
Определите вариант правильно составленной программы вычисления произведения нечетных чисел на промежутке
[1. 7].
x:=1; p:= 1; while x >= 7 begin p:=p*x; x:=x +2; end; writeln('p=', p);
x:=1; p:= 1; while x <= 7 begin p:=p*x; x:=x +2; end; writeln('p=', p);
x:=1; p:= 1; while x <= 7 begin p:=p*x end; writeln('p=', p);
x:=0; p:= 0; while x <= 7 begin p:=p*x; x:=x +2; end; writeln('p=', p);
Определите вариант правильно составленной программы:
for x:=60 to 260 do circle(x,80,20);
x:=60;
while x <= 260 do
begin
circle(x,80,20); x:=x+100;
end;
x:=40;
while x <= 260 do
begin
circle(x,80,40); x:=x+80;
end;
Нет правильного варианта
Определите сколько раз исполниться цикл:
for i:=0 to 8 do write(i);
Цикл будет бесконечным.
Вообще не исполниться.
8 раз.
9 раз.
Определите сколько раз исполниться цикл:
for i:=-10 downto 0 do write(i);
Цикл будет бесконечным.
Вообще не исполниться.
10 раз.
11 раз.
В результате выполнения программы:
var n, x: integer;
begin
for n:=1 to 5 do
begin
x:= x*2-1;
writeln('n=',n,'x=', x);
end;
readln;
end.
на экране появиться:
n=1 x=1
n=2 x=3
n=3 x=5
n=4 x=7
n=5 x=9
n=1 x=1
n=2 x=2
n=3 x=3
n=4 x=4
n=5 x=5
n=1 x=1*2-1
n=2 x=2*2-1
n=3 x=3*2-1
n=4 x=4*2-1
n=5 x=5*2-1
'n='1 'x='1
'n='2 'x='3
'n='3 'x='5
'n='4 'x='7
'n='5 'x='9
Для построения фрагмента программы вычисления суммы
N
положительных чисел, вводимых с клавиатуры, нужно записать блоки в следующем порядке:
А for i:=1
Ж do
Б read(x);
З then
В begin
И s:=s+x;
Г to N
К end;
Д x>0
Л wtite(s);
Е if
М s:=0;
М А Г Ж В Б Е Д З И К Л
А Г Ж В Б Е Д З И К Л М
Б М А Г Ж В Е Д З И К Л
А Г Ж М Е Д З В Б И К Л
Для заливки замкнутого контура используется процедура:
FloodFill
SetColor
SetFillStyle
Fill
Здесь будет выведен результат