Цикл- это команда исполнителю многократно повторить указанную последователь- ность команд.
да
нет
Последовательность
команд
Условие
Обратите внимание
Цикл заканчивается, когда условие становится ложным.
Если условие с самого начала ложно, то оператор не выполняется ни разу.
WHILE- ПОКА
DO – ВЫПОЛНИТЬ
Вывести на экран все значения функции y=sin x в интервале
[-30°; 30°] с шагом 5°
Обратите внимание
Оператор между repeat и until выполняется хотя бы один раз.
Цикл заканчивается когда, условие становится истинным.
REPEAT- ПОВТОРЯТЬ
UNTIL – ДО
(ДО ТЕХ ПОР, ПОКА)
После каждого выполнения тела цикла происходит увеличение на единицу параметра цикла; условие выхода из цикла - превышение параметром конечного значения.
for i:=i1 to i2 do
begin <оператор 1>
<оператор 2>
end;
оператор 2
FOR – для
TO – до
DO - выполнить
program fakt;
var n,I,f : integer ;
begin
write (‘введите число n’);
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
writeln (n,‘!=‘,f);
end.
Вспомним из математики, что факториал числа n равен произведению чисел от 1 до N
Вычислить произведение чисел от 1 до 5 используя различные варианты цикла.
Математическая модель:
Р= 1· 2· 3· 4· 5=120
Program Pr2;
Var i: integer;
Begin
P:=1;
i:=1;
Repeat P:=P*i;
i:=i+1;
until i>5;
Write (‘ P=’, P);
end.
Program Pr3;
Var i: integer;
Begin
P:=1;
For i:=1 to 5 do
P:=P*i;
Write (‘P=’, P);
end.
«Пока»
«ДО»
« ДЛЯ»
Если число повторений тела цикла известно, то лучше воспользоваться оператором ; в остальных случаях используются операторы
и .
for
while
repeat
Математическая модель:
a) 1 2 3 4 5
b) 5 4 3 2 1
Задача
в прямом порядке
в обратном порядке
Написать программу выводящую на экран все двузначные
числа сумма цифр которых равна 10.
Program pr3;
Uses Crt;
var x,y,dx:real;
begin
ClrScr;
x:= -1;
dx:=0.1;
repeat
y:= 3*sin(x) + cos(2*x);
writeln ('x= ',x:7:5,' y= ',y:7:5);
x:=x+dx;
until (x>1);
end.
i,a,b,h
А) цикл с параметром
Б) цикл –Пока
В) цикл- До
Условие
Серия команд
да
нет
И так мы рассмотрели следующие вопросы:
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть