лабораторная работа / Текст лабы 3

Program lab_3.1;
Const h=0.2;a=20.3;
Var x,y,xo,xk,d:real;
n,i:byte;
Begin
Writeln ('Введите xo,xk');
Read (xo,xk);
Writeln ('Таблица функции y(x)');
Writeln (' x y(x) ');
d:=(xk-xo)/h;
n:=trunc (d)+1;
x:=xo;
For i:=1 to n do
Begin
if x>1 then y:=0.4343*Ln(x+1)
else if x<=1 then y:=Sqr (sin(sqrt (abs (a*x))));
Writeln(x:6:3,' ',y:6:3);
x:=x+h;
end;
End.

Ответы:

x=0.5, y(x)=2

x y(x)
0.500 0.002
0.700 0.345
0.900 0.820
1.100 0.322
1.300 0.362
1.500 0.398
1.700 0.431
1.900 0.462