Вычислить значение выражения

@Kursant_999 · Регистрация: 18.03.2012

Студворк — интернет-сервис помощи студентам

помогите решить очень надо!
нужно записать через процедуру или функцию

@Puporev · 03.05.2012, 19:32

Pascal

uses crt;
{функция числа сочетаний}
function C(n,k:integer):real;
begin
if (k=0)or(k=n) then C:=1
else C:=C(n-1,k-1)+C(n-1,k);
end;
{функция натуральной степени вещественного числа}
function Pow(x:real;n:integer):real;
begin
if n=0 then Pow:=1
else Pow:=Pow(x,n-1)*x;
end;
const a=1.581;
      b=0.875;
var j:integer;
    u:real;
begin
u:=0;
for j:=1 to 8 do
u:=u+C(9,j)*Pow(a,9-j)*Pow(b,j);
write('u=',u);
end.

@Kursant_999 1 / 1 / 2 Регистрация: 18.03.2012 Сообщений: 28
		1
	Вычислить значение выражения 03.05.2012, 19:20. Показов 1033. Ответов 1 Метки нет (Все метки) помогите решить очень надо! нужно записать через процедуру или функцию Миниатюры 0

	03.05.2012, 19:32

Опции темы

Вычислить значение выражения

Решение