Составление таблицы функции y=a³/(a²+x2) для x , принадлежащих отрезку [-1;1] с шагом 0.1. Так как пример цикла типа for должен быть целочисленным , удобнее использовать цикл while, в котором значение x можно изменять при каждом шаге на Dx=0.1

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