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,-1...
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).
Применить функцию пользователя.
Гость
Ответ(ы) на вопрос:
Гостьа) 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.
Не нашли ответ?
Похожие вопросы