Вычисление функциn

[Valik93]

Проверьте пожалуйста, не правильно выводит y.
Протабулировать функцию на интервале 0,1 <=x <=1,25 c шагом h = 0,1:
Y=8x^2+3x+2/ln(sin(Пx))

program pr;
const
  Xn=0.1;
  Xk=1.25;
  h=0.1;
var
  x,y,Q,p:real;
begin
x:=Xn;
 while x<=Xk do
begin
 
 Q:=8*sqr(x)+3*x+2;
 p:=ln(sin(Pi*x));
 if Q=0 then 
 begin
  writeln('x=', x:4:1 ,',y ne shysh');
end
else
begin
 y:=Q/p;
 writeln('x=', x:4:1, ',y=' , y:4:1 );
 x:=x+h;
 end;
 end;
readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

а так?

program pr;
const
  Xn = 0.1;
  Xk = 1.25;
  h = 0.1;
var
  x, y, Q, p1, p2 : real;
begin
  x := Xn;
  while x <= Xk do
  begin
    Q := 8 * sqr(x) + 3 * x + 2;
    p1 := sin(Pi * x);
    p2 := 0;
    if p1>0 then p2 := ln( p1);
    if p2 = 0 then
      writeln('x=', x:4:2, ', y ne shysh')
    else
    begin
      y := Q / p2;
      writeln('x=', x:4:2, ', y=', y:4:2);
    end;
    x := x + h;
  end;
  readln;
end.

[Stilet]

Может:

 while x<=Xk do begin
 Q:=8*sqr(x)+3*x+2;
 p:=sin(Pi*x);
 if (p=1)or(p<0) then     begin
  writeln('x=', x:4:1 ,',y ne shysh');
 end else begin
  writeln('x=', x:4:1, ',y=' , (Q/ln(p)):4:1 );
 end;
x:=x+h;
end;

[Serge_Bliznykov]

да хрен редьки не слаще! Можно и так!

[Stilet]

да хрен редьки не слаще!

Когда я свой хрен сеял, твоя редька еще не взошла
Так что накладочка и вышла.