a) Составить процедуру вычисления чисел Фиббоначчи для i=1,2,..,n, если :...

Question

a) Составить процедуру
вычисления чисел Фиббоначчи для i=1,2,..,n, если : F[1]=F[2]=1;F[i-2]+F[i-2],т.е F[3]=F[1]+F[2],F[4]=F[3]+F[2] и т.д . Использовать
процедуру для n=10,n=15.





b) б)Даны три массива:

A={17.2,9.3,14.5,-11.7,4.3,5.9,-11.9,12.3,-14.1,-15.3}

B={-1.2,4.2,5.9,-18.1,21.2,-3.1,-5.3,-12.2,21.4,-4.5,8.2,9.4}

C={3.5,8.4,-3.2,4.5,-8.4,-9.5,1.5,9.3}

Для каждого из массивов найти суммы
положительных элементов.

Использовать подпрограмму.





c)
в) Вычислить φ(x+2;3,4;y-1)+2φ(x-1;2y;1,5) при каждом значение х∈[2;8], изменяющимся с шагом h[x]=0,5 и заданном значении y=5,68, где φ(a,b,c)=sin((a+b)/4)- (√(a+c+10))*(IaI-bc).

Применить функцию пользователя.

Answer 1

А) Procedure Fibbonachi(Const n: Integer);
Var i, a, b, t: Integer;
begin
    a := 1;
    b := 1;
    for i:=1 to n-1 do
        if i = 1 then Write(a, ', ')
        else if i = 2 then Write(b, ', ')
        else begin
            Write(a+b, ', ');
            t := a+b;
            a := b;
            b := t;
        end;
    WriteLn(a+b);
end;

begin
    Fibbonachi(15);
end.