| П Р О Г Р А М М А
program vur;
var z,a,b,c: real;
function max (x.y:real):real;
begin
if x > y
then max:=x
else max:=y
end;
{головная программа}
begin
writeln (' ввести a,b,c');
readln (a,b,c);
Z:=(max(a,b+c) + max(a+b,c*c))/(1+ max(a+b*c,12));
writeln ('Z=',Z)
end.
ПРИМЕР 2: Найти N число последовательности Фибоначчи. Использовать рекурсивную функцию. Числа Фибоначчи образуют последовательность, у которой каждый очередной член равен сумме двух предыдущих: 0 1 1 2 3 5 8 13 . . . Обозначив N-й член ряда Фибоначчи посредством символа F(N), можно записать следующую рекурсивную зависимость:
F(N)=F(N-1)+F(N-2), n >= 3,
F(1)=1 и F(2)=1
П Р О Г Р А М М А
program FIBON;
var N: integer;
fuction F(k: integer): integer;
begin
if (k=1) or (k=2)
then F:=1
else F:=F(k-1)+F(k-2)
end;
{головная программа}
begin
writeln ('N=');
readln (N);
writeln ('число =', F(N))
end.
Порядок работы
1. Составить алгоритм и программу с использованием подпрограммы-функции (табл.17).
2. Составить алгоритм и программу, включающую рекусивную функцию (табл.18).
Достарыңызбен бөлісу: |
