Задача Паскаля

[MoLoDoI]

Не могу понять,почему когда вводишь положительные числа, то не правильно вычисляет. Заранее спасибо



var
a,b,h,y,x:real;
S1,S2,S3:string;
P1,P2,P3:integer;
begin
write ('Vvedite a:=');
readln(S1);
write ('Vvedite b:=');
readln(S2);
write (' Vvedite h:=');
readln(S3);
val(S1,a,P1);
val(S2,b,P2);
val(S3,h,P3);
if (P1 + P2 + P3 = 0) and (a<=b)
then
begin
x:=a;
while (x<=b) do begin
if (x>0) and (sqrt(sqrt(x)+1)<>0) and (sqrt(sqrt(x)+1)<0) and (sqr(x)+1>=0)
then begin
y:=(sqrt(sqrt(x)+1))/ln(x);
writeln ('x:=', x:10:3,' ' ,'y:=', y:10:3);
end
else
writeln ('x:=', x:10:3, 'y NO');
x:=x+h
end
end
else
writeln ('nekor. vvod dannih');
readln;
end.


_______________
Код программы неоформлен
Название темы не отражает суть задачи
Условие задачи (что делает программа) - отсутствует

поэтому тема закрыта!

Модератор