• 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).

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

Ответы 2

  • А остальные задачи?
  • а) 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.
    • Автор:

      devonl74p
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years