У=корень из 10-cosпх,х€[-1; 1],h=0.1

В PascalABC.Net
var
  x:real;
begin
  Writeln('  x      y');
  x:=-1;
  while x<=1 do
  begin Writeln(x:4:1,10-cos(Pi*x):10:5); x:=x+0.1 end
end.

Результат выполнения программы:
  x      y
-1.0  11.00000
-0.9  10.95106
-0.8  10.80902
-0.7  10.58779
-0.6  10.30902
-0.5  10.00000
-0.4   9.69098
-0.3   9.41221
-0.2   9.19098
-0.1   9.04894
 0.0   9.00000
 0.1   9.04894
 0.2   9.19098
 0.3   9.41221
 0.4   9.69098
 0.5  10.00000
 0.6  10.30902
 0.7  10.58779
 0.8  10.80902
 0.9  10.95106
 1.0  11.00000

Замечание: В PascalABC константа Pi предопределена. В других версиях, если транслятор напишет сообщение о том, что переменная Pi не описана, в начале программы добавьте const Pi=3.14159265;