Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Программирование на Pascal / Delphi / Лекции по Turbo Pascal [22].pdf
Скачиваний:
82
Добавлен:
02.05.2014
Размер:
536.84 Кб
Скачать

Одесский колледж компьютерных технологий “СЕРВЕР”

S1;

If условие then rec;

S2;

End;

В примере с вычислением факториала используется рекурсия с выполнением действия после рекурсивного вызова.

Текущий уровень

Рекурсивный спуск

Рекурсивный воз-

рекурсии

 

врат

 

0

Ввод (N=5), Fact(5);

Вывод: N!=120;

1

I=5;

Fact(5)=5*4;

(120)

 

Fact(5):=5*Fact(4);

Fact(4)=4*3;

(12)

2

I=4;

 

Fact(4):=4*Fact(3);

Fact(3)=3*2;

(6)

3

I=3;

 

Fact(3):=3*Fact(2);

Fact(2)=2*1;

(2)

4

I=2;

 

Fact(2):=2*Fact(1);

Fact(1)=1*1;

(1)

5

I=1;

 

Fact(1):=1*Fact(0);

 

 

6

I=0; Fact(0):=1;

 

 

Новые графические процедуры и функции.

Arc (x,y,Stangle,Endangle, Radius) Рисует дугу радиу-

сом Radius Stangle к конечному Endangle, x,y – координаты цен-

тра.

DrawPoly (Numpionts,Polypoints) Построение ломаной

(в том числе многоугольника). Numpoints – это количество точек ломаной. В качестве параметра Polypoints задаётся переменная, тип её может быть произвольным. Она представляет собой набор пар переменных (координат x и y очередной точки).

Ellipse (x,y, Stangle,Endangle, Xradius,Yradius) По-

строение эллиптической дуги.

11