Помогите пожалуйсто решить задачу

[Dialon]

Составить программу для вычисления значения выражения с использованием оператора цикла For.

[r9m]

Не ясно что здесь "П" но предположу что вот так:

for i:=0 down to -1.2 do
 begin
   x:= exp (4*ln(i) - pi*(tg(5));
   {вывод x}
 end

[Dialon]

большое спасибо

[puporev]

Не ясно что здесь "П"

Это произведение членов ряда при i от -1,2 до 0. Но здесь не указан шаг, с которым надо считать, а так как написали, работать не будет, ибо счетчиком цикла могут быть только переменные порядкового типа, например integer, byte, но никак не real. Кроме того при заданных значениях i, ln(i) не определен.

А решение при известном шаге такое:

y:=1;i:=-1.2; h:=0.1;
while i<=0 do
  begin
    y:=y*((i*i*i*i-pi)*(sin(5)/cos(5)));
     i:=i+0.1;
  end;
write('y=',y:0:5);

[Dialon]

Примного благодарен Вам