Проверьте задачу

[Dialon]

Составить программу для вычисления значения выражения с использованием оператора For.
Program Task_4;
var y,i,h: Real;
y:=1;i:=-12; 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);
readln;
end.
Пишет ошибка. error 4: duplicate identifier (y)

[pomoshnic]

А где у вас первый begin?

[DM_bite]

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

а причем тут for? Используется цикл while...

Program Task_4;
var y,i,h: Real;
begin
y:=1;i:=-12; 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);
readln;
end.

[Dialon]

все равно не работает error 205: Floating point overflow
эту строчку показывает y:=y*((i*i*i*i-pi)*(sin(5)/cos(5)));

[Dialon]

А с for это так да
Program Task_4;
var y,i,h: Real;
begin
y:=1;i:=-12; h:=0.1;
for i<=0 do
y:=y*((i*i*i*i-pi)*(sin(5)/cos(5)));
i:=i+0.1;
end;
write('y=',y:0:5);
readln;
end.

[capta1n]

потому что у вас "y" выходит за диапозон точности типа real, для "y" надо использовать тип extended, предварительно написав перед программой директиву подключения математического сопроцессора {$N+} - ваш "y" даже тип double не поддерживает с его двойной точностью , поэтому только тип extended

[capta1n]

c for у вас не получится, потому что приращение счетчика i идет не целое ( не на 1, а for работает только с целочисленными значениями в языке паскаль ), а приращение идет дробное на 0.1 - да и думаю что вот тут

i:=i+0.1;

написать надо

i:=i+h;

либо убрать неиспользующуюся переменную h и оставить все как есть
вот исправленная ваша программа

{$N+}
Program Task_4;
var
 i,h: Real;
 y : extended;
begin
  y:=1;i:=-12; h:=0.1;
  while i<=0 do
  begin
    y:=y*((i*i*i*i-pi)*(sin(5)/cos(5)));
    i:=i+h;
  end;
  write('y=',y:0:5);
  readln;
end.

[Dialon]

Cпасибо! Но нужно делать с for!, а будет правильно!
Program Task_4;
var P,i,: Real;
begin
P:=1
for i:=-12 to 0 do
P:=P*((i*i*i*i-pi)*(sin(5)/cos(5)));
end;
write('y=',y:0:5);
readln;
end.

[DM_bite]

А с for это так да
Program Task_4;
var y,i,h: Real;
begin
y:=1;i:=-12; h:=0.1;
for i<=0 do
y:=y*((i*i*i*i-pi)*(sin(5)/cos(5)));
i:=i+0.1;
end;
write('y=',y:0:5);
readln;
end.

Мде... Полистайте учебник по Паскалю... Если вы этот код "скопипастили", даже не надейтесь на то, чтобы у вас что-то заработало)
И, как уже сказали, изменение i идет только целочисленно...
Ну и наконец:

var i: integer;
begin
for i:= выражение-1 to выражение-2 do
  цикл
end;

 while условие do
 цикл

Опять

Program Task_4;
var P,i,: Real;// Запятая ни к чему
begin
P:=1; // Нет ;
for i:=-12 to 0 do // Бред, i: real!
P:=P*((i*i*i*i-pi)*(sin(5)/cos(5)));
end; //Лишнее
write('y=',y:0:5);
readln;
end.

[Dialon]

Не могу понять почему теперь ошибку выдает
Program Task_4;
var P,i: Integer;
begin
P:=1
for i:=-12 to 0 do // error 85:';' expected
P:=P*((i*i*i*i-pi)*(sin(5)/cos(5)));
write('y=',y:0:5);
readln;
end.