помогите исправит ошибку в программе паскаль

Question

вот как я решил var x,y,h,pi :real; begin pi:=3.14; h:=pi*(-2); x:=h; while x <= 2*Pi do begin x :=x+h; if x<=2*Pi then y := sin(x/4) else if (x>Pi/2) and (x<=Pi) then y:= cos(3*x-pi/4)/sin(3*x-pi/4) else y:= cos(2*x); writeln('X = ',x:2:2,' Y = ',y:2:3); h:=h+Pi/12; end; end. Кто нибудь пожалуйста решите ее по своему! ! Или исправьте мою Буду очень благодарен.

Валерия Боровикова · Accepted Answer

В первом иф у вас перепутано умножение и деление. 2 пи не равно пи пополам.

Оксана · Answer

У вас неправильно в начале программы. Пытаюсь вставить кусок кода: 
h:=h+Pi/12; 
x:=pi*(-2); 
while x <= 2*Pi do 
begin 
if x<=2*Pi then y := sin(x/4) else 
if (x>Pi/2) and (x<=Pi) then y:= cos(3*x-pi/4)/sin(3*x-pi/4) 
else y:= cos(2*x); 
writeln('X = ',x:2:2,' Y = ',y:2:3); 
x :=x+h; 
end;