Тема «Цикл с пост условием» (урок 8 класс, информатика)

Тело цикла while может do Серия Циклический алгоритм begin и end while нет Условие да Серия Повторяющееся действие (или  несколько действий) Не выполниться ни разу Цикл с повторяющейся частью пока делай Блок­схема циклического  алгоритма с условием в начале Операторные скобки

Общий вид оператора: Repeat Серия Блок­схема циклического алгоритма с условием в конце нет Условие <оператор 1>; <оператор 2>; … <оператор n>; Until <условие>; да

Пример: найти сумму чисел S=1+1,5+2+2,5+…+5. При  Операторы, заключенные между repeat и until,  использовании оператора цикла repeat...until... условие примет вид  n>5. Как только это условие выполнится, произойдёт выход их  цикла. Программа примет вид: являются телом цикла. Uses crt; Var s,n:real; Begin Clrscr; N:=1; s:=0; Repeat S:=s+n; N:=n+0.5;   Until n>5; Writeln(‘summa=’, s:2:2); Readkey; End.

program mysqrt; {Вычисление квадратного корня числа по формуле Герона}  {х=(х+а/х)/2} uses crt; const eps=0.0001; var a: integer; x, xl: real; Begin clrscr; write (‘Введите число a='); readln(a);  x:=a/2; {начальное значение корня}  repeat xl:=x; {запоминаем предыдущее приближение корня} х:=(х+а/х)/2; {вычисляем (i+l)­e приближение корня}  until abs(x­xl)

Важно знать: Оператор repeat используют в тех случаях,  когда заранее неизвестно число повторений  тела цикла или шаг отличен от 1. Тело цикла с постусловием обязательно  ложно. выполняется хотя бы один раз. Цикл будет выполнятся пока условие цикла

Домашнее задание:

Вычислить сумму последовательности  1+1/2+1/3+1/4+…+1/100. Решение: Var s:real;         i:integer; Begin I:=1; s:=0; Repeat S:=s+1/I; I:=i+1 Until i>100; Writeln(‘сумма=’,s:5:3); End.

x 15 y 1 Y=y*x 15 Var x,y: integer; Begin Writeln(‘y=‘,y); End. y:=1; x:=15; repeat y:=y*x; x:=x­3 until x<5;

Спасибо за урок!