1: Тема: Операторы организации циклов Цель: Познакомить с форматом и алгоритмом работы операторов цикла с предусловием и постусловием.
2: Оператор повторения с предусловием while Формат: while условие do begin тело цикла end;
3: Блок-схема while . . . . . . . . While Bl do begin P1; P2; . . Pn; end; . . . . . . . .
4: Работа оператора while проверяется условие; если оно истинно, то выполняется тело цикла; вновь проверяется условие и т. д. , как только на очередном шаге окажется, что условие ложно, то выполнение цикла прекратится Если условие сразу ложно, то тело цикла не выполнится ни разу.
5: Пример1 While x
6: Задача:Составить программу подсчета S
7: Вычислить сумму квадратов целых чисел в диапазоне от m до n:; если n
8: задание Написать программу для решения задачи. Дано натуральное число n. Определить количество и сумму цифр числа. Сумма в 10 000 у. е. положена в банк. При этом прирост составляет 3 в год и считается непрерывным. Через какой срок сумма вклада увеличится в x раз.
9: Оператор повторения с постусловием repeat Формат:repeat тело цикла until условие; Работа оператора: Тело цикла выполняется пока условие ложно. Выполнение прекращается, если условие истинно. Цикл repeat обязательно выполняется хотя бы один раз, а цикл while может не выполниться ни разу.
10: блок-схема Repeat
11: Пример2 Repeat x:x-1 until x0; Сначала выполняется оператор x:x-1; затем проверяется условие x0. если , то оператор еще раз выполнится. Если x0, то управление передается на оператор, следующий за until.
12: Задача:Составить программу подсчета S Program sRepeat; Var s:real; n,i:integer; Begin readln(n); s:0; i:1; repeat S:s1/i; i:i1; until in; writeln(s); End.
13: задание Написать программу для решения задач используя команду Repeat: Дано натуральное число n. Определить сумму четных цифр числа. Сумма в 10 000 у. е. положена в банк. При этом прирост составляет 3 в год и считается непрерывным. Через какой срок сумма вклада увеличится в x раз.
14: Program Schet; Program Schet; Uvelichenie summ vkladaLavruhina Var NS:longint; P,X,KS:real; K:byte; Begin WriteLn(Vvedite nachalnuy summu); Read(NS); WriteLn(Vvedite procent); Read(P); WriteLn(Vvedite uvelichenie vklada); Read(X); K:0; KS:NS; repeat K:K1; KS:KSP/100KS; UNTIL KS(NSX); WriteLn(Konechnaja summa,KS:4:2); WriteLn(Cherez let,K:4); End.
