Операторы для записи циклов являются составными, так как в их состав входят другие операторы.
Для всех операторов цикла характерна следующая особенность:
Оператор цикла имеет вид:
FOR I:=m1 TO m2 DO
Begin
Операторы циклической части программы;
End;
m1 FOR - для I – параметр цикла,
TO - до
DO - выполнить
m1,m2 – начальное и конечное значения параметра цикла
Сумма чисел.Сумма чисел.pas
Форма записи оператора цикла с предусловием:
WHILE логическое выражение DO
Begin
операторы циклической части программы;
End;
WHILE - пока
DO - выполнить
Блок - схема
program bank; Банк.Банк.pas
var
s1,s2,p:real;
g:integer;
begin
write('Введите начальную сумму ’); readln(s1);
write(’Введите конечную сумму ’); readln(s2);
write(’Введите процентную ставку ’); readln(p);
g:=0;
while s1
s1:=s1 + s1 * p / 100;
g:=g + 1;
end;
writeln(’До накопления суммы пройдёт ’,g,’ лет’);
end.
a = 4
a := 1;
for i:=3 to 1 do a := a+1;
a = 1
a := 1;
for i:=1 downto 3 do a := a+1;
a = 1
a := 1;
for i:=3 downto 1 do a := a+1;
a = 4
2 раза
a = 6
a := 4; b := 6;
while a < b do a := a + b;
1 раз
a = 10
a := 4; b := 6;
while a > b do a := a + 1;
0 раз
a = 4
a := 4; b := 6;
while a < b do a := a - 1;
зацикливание
Оператор цикла с постусловием имеет вид:
REPEAT
Операторы циклической части программы
UNTIL логическое выражение;
REPEAT – повторить
UNTIL – до тех пор
Условием прекращения циклических вычислений является истинное значение логического выражения.
ИТАК, сначала выполняется
циклическая часть, а затем
проверяется условие.
3 раза
a = 7
a := 4; b := 6;
repeat a := a + b until a > b;
1 раз
a = 10
a := 4; b := 6;
repeat a := a + b until a < b;
зацикливание
a := 4; b := 6;
repeat b := a - b until a < b;
2 раза
b = 6
a := 4; b := 6;
repeat a := a + 2 until a < b;
зацикливание
program primer_1;
var a,b,c,n,i:integer;
begin
cls;
writeln(‘введите число n’);
readln(n);
a:=1; b:=1;
writeln (a,b);
i:=3;
repeat
c:=a+b;
writeln(c);
a:=b; b:=c;
i:=i+1
until i>n
end.
Числа Фибоначчи.pas
program prim_2;
var
x,y:integer;
begin
cls;
writeln('Введите x и y '); readln(x,y);
repeat
if x>y then x:=x mod y
else y:=y mod x
until (x=0) or (y=0);
writeln('НОД=',x+y);
end.
НОД.pas
обнулить счетчик цифр
ввод n
выполнять «до тех пор, пока не
n >= 0»
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть