Найти значение функции y=√ (x-1) / (sin 1/x) в промежутке [1.2; 2] с шагом 0.1

Const a=1.2; b=2; h=0.1;

var x, y:real; n, i:integer;

begin

x:=a-h;

n:=round ((b-a) / h) + 1;

writeln (' № x y') ;

for i:=1 to n do

begin

x:=x+h;

y:=sqrt ((x-1) / sin (1/x)) ;

writeln (i:2,' ', x:3:1,' ', y:8:4) ;

end;

end.

Результат:

№ x y

1 1.2 0.5198

2 1.3 0.6567

3 1.4 0.7814

4 1.5 0.8992

5 1.6 1.0127

6 1.7 1.1232

7 1.8 1.2316

8 1.9 1.3385

9 2.0 1.4442