Question

A) составить процедуру вычисления чисел фиббоначчи для i=1,, если : 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.