
Тема 5
.pdf
Тема: Циклические структуры
Циклом называется многократно
повторяемый участок вычислений.
Вычислительный процесс, содержащий
один или несколько циклов, называется
циклическим.
1

1. Оператор цикла с параметром
For пар-р цикла:=мл. знач. to ст. знач. do For пар-р цикла:=ст. нач. downto мл.знач. do
нц для i от i1 до i2
тело цикла
кц
2

2. Оператор цикла с постусловием.
Repeat
тело цикла Until условие;
+ |
условие |
– |
|
|
3

3. Оператор цикла с предусловием.
While условие Do
тело цикла;
нц пока условие
тело цикла |
– |
|
|
+ |
|
кц |
условие |
|
|||
|
|
|
|||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Запомните! При решении задач на
циклические структуры первоначальное
значение суммы S=0, а произведения P=1.
4

Задание. Найти значение n! факториала.
входные данные: n: integer промежуточные переменные: i: integer –
параметр цикла, изменяется на промежутке
[1;n] с шагом 1.
результат: Р: real
5

-Label1 – Caption – Введите n
-Label2 – Caption – Значение факториала
-Button1 – Caption – С параметром
-Edit1 – Text – пусто
-Edit2 – Text – пусто
6

7

procedure TForm1.Button1Click(); var i,n:integer;
P:real; begin
n:=strtoint(edit1.text);
P:=1;
for i:=1 to n do
P:=P*i;
edit2.text:=floattostr(P); end;
8

9

Задание. Найти значение функции
на отрезке [a, b] с шагом h.
y e |
x |
e |
x |
2 |
|
|
входные данные: a, b, h: real промежуточные переменные: x: real результат: y: real
10