[Pasca] Bład w rownaniu?

[Smash]

Zad.Napisz program obliczający wartość funkcji f(x) dla dowolnego x i n=1

 

program funkcja;

uses WinCrt ;

var

x,y1,y2:real;

begin

writeln('Program oblicza wartosc podanej funkcji f(x) dla n=1');

write('Podaj wartosc x:');

readln(x);

if

(1>=x) and (x>0) then begin

y1:=3.14/2*(1+x);

writeln('Wartosc funkcji wynosi:',y1:0:0);

end;

if

(x>1) then

begin

y2:=3.14/2*sqr(x)*(1+x);

writeln('Wartosc fukncji wynosi:',y2:0:0);

end;

if

(x<0) then

begin

writeln('Funkcja jest nieokreslona');

 

readln;

end;

end.

 

Gdzie popełniłem błąd? Program podaje jakieś dziwne wyniki:|

[yasin]

y1:=3.14/2*(1+x);

 

y2:=3.14/2*sqr(x)*(1+x);

 

Gdzie popełniłem błąd? Program podaje jakieś dziwne wyniki:|

y1:= 3.14/2*1/(1+x);

 

y2:=3.14/2*1/(sqr(x)*(1+x));

[Smash]

faktycznie, przeoczyłem:)

dzieki