Не могу решить.

[Дима22]

Помогите решить задачу на Delphi. Блок схему попробую сам составить. Заранее спасибо.

[Stilet]

var i,n,x:double;
...
x:=0.15; n:=11;
i:=foo(n,x);
while n<13 do begin i:=i*foo(n,x) n:=n+1;end;
...

Где

function foo(x,n:diuble):Double;
begin
 resutl:=(n*n*n+3*x+1)/sqrt(n+7*n+9);
end;

Подходит идея?

[ViktorR]

Stilet

while n<13 do begin i:=i*foo(n,x) n:=n+1;end;

Так понимаю, что имелось ввиду:

while n<13 do begin  n:=n+1; i:=i*foo(n,x)end;

Или это для того, что бы немного по соображать?


Вроде так ...

[BDA]

ViktorR, имхо, у Вас у обоих не хватает
У Вас n=11, у Stiletа - n=13.

[Аватар]

а просто так нельзя что-ли

x:=0.15; i:=1;
for n:=11 to 13 do i:=i*foo(n,x);

[Stilet]

BDA

А, я равно провтыкал?
Бывает...

просто так нельзя что-ли

Космосс запретил

[ViktorR]

BDA

ViktorR, имхо, у Вас у обоих не хватает
У Вас n=11, у Stiletа - n=13.

Так понимаю, что цикл с n=11 до n =13.

пример у Stilet содержит строки

x:=0.15; n:=11;
i:=foo(n,x);

Мной поправлен порядок операторов в теле цикла так:

while n<13 do begin  n:=n+1; i:=i*foo(n,x)end;

n = 11 до начала цикла.
В тело цикла входим, получаем n = 12 и вычисляем произведение
foo(11,x)*f(12,x).
Следующий шаг: n = 13.
получаем произведение: foo(11,x)*f(12,x)*foo(13,x).
С n = 13 вываливаемся из цикла.

И что тут я не улавливаю?


Вроде так ...

[BDA]

ViktorR, Вы правы - я ошибся.