Технический форум - Программирование алгоритмов итерационной циклической структуры

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Программирование алгоритмов итерационной циклической структуры (http://www.tehnari.ru/f41/t87556/)

Днище

17.04.2013 17:36

Программирование алгоритмов итерационной циклической структуры

Вложений: 1

решите пожалуйста задание. в паскали.

interacia

17.04.2013 19:37

В роде бы так но лучше если проверите (на matlab matcad Excel и т.д).

Код:

Program IF1;

var

Fx:real;

x:real;

fac:real;

step:real;

proiz:real;

Hlenriada:real;

i:integer;

begin

i:=1;

X:=-2.2;

Hlenriada:=1;

Fx:=1;

fac:=1;

step:=1;

proiz:=1;

while abs(Hlenriada)>=0.0000000001 do

begin

proiz:=proiz*i;

inc(i,3);

fac:=fac*(i-1)*(i-2)*(i-3);

step:=step*x*x*x;

Hlenriada:=(proiz/fac)*step;

Fx:=Fx+Hlenriada;

end;

Writeln('Ответ F(x):=',Fx);

end.

Днище

17.04.2013 19:55

снова спасибо)

Часовой пояс GMT +4, время: 01:29.