Поменяй функцию и все. Просто я не понял что за x2. типа скр(х) или х*2. Дал тебе свой пример, сам себе писал, работал.
program Tabul; Uses crt; var x,x1,h,y:real; begin clrscr; writeln(' x y '); x:=-1; x1:=1; h:=0.1; while x<=x1 do begin y:=(sqrt(sqr(x)+3))/(2-x); writeln(x:6:1, y:9:2); x:=x+h; end; Readkey; end.
Дал тебе свой пример, сам себе писал, работал.
program Tabul;
Uses crt;
var x,x1,h,y:real;
begin
clrscr;
writeln(' x y ');
x:=-1;
x1:=1;
h:=0.1;
while x<=x1 do
begin
y:=(sqrt(sqr(x)+3))/(2-x);
writeln(x:6:1, y:9:2);
x:=x+h;
end;
Readkey;
end.