Результаты выполнения:

vvedite kolichestvo treugolnikov

2

Vvedite koordinati treugolnika #1

x1=32

y1=43

x2=2

y2=4

x3=-4

y3=6

Vvedite koordinati treugolnika #2

x1=-34

y1=54

x2=3

y2=4

x3=56

y3=6

Naibolshaya ploshad=1362.00 u treugolnika #2

vvedite kolichestvo treugolnikov

2

Vvedite koordinati treugolnika #1

x1=1

y1=2

x2=3

y2=4

x3=5

y3=6

Vvedite koordinati treugolnika #2

x1=-7

y1=5

x2=6

y2=9

x3=0

y3=4

Naibolshaya ploshad= 20.50 u treugolnika #2

Задание №5: Используя рекурсивную функцию, написать программу для вычисления произвольного числа Фибоначчи

С

Начало Начало хема алгоритма:

хема алгоритма:

n=0 или n=1 или n=2

Ввод a

f=1

нет

f=1

f=f(n-1)+f(n-2)

да

s=f(a-1)

Конец

Ввод s

Конец

Текст программы:

Program lab5_5;

Var

a,s:longint;

{Funkcia}

Function f(n:integer):longint;

Begin

if (n=0)or(n=1)or(n=2) then f:=1 else f:=f(n-1)+f(n-2);

end;

{programma}

Begin

Writeln('vvedite chislo');

Read(a);

s:=f(a-1);

Writeln(a,'-e chislo Fibonachi=',s)

End.

Результаты выполнения:

vvedite chislo

7

7-e chislo Fibonachi=8

vvedite chislo

4

4-e chislo Fibonachi=2