Вывод элементов массивов, сортировка массивов

program 1аЬ4; uses crt; const е=0.0010; d=l.Зе-7; var
a, b, г, s, х, fa, fг, n, с : real; begin
write('введите айв: '); read(a,b);
fa:=sin(a)/cos(a)+2*sqr(a)-4; repeat r:=(b+a)/2; fr:=sin(r)/cos(r)+2*sqr(a)-4; if ((fa)*(fr))<0 then begin
a:=r; fa:=fr; end else b:=r;
until (a-b)<e; writeln (’f(r) = *,fr:4 :4 , ' r=',r:4:4); s :=1; n:=0; x:=r;
while x>d do begin s:=s+x;
с:=exp((3)*ln((l+2*n+l)/(sqr(n)+l)))*(2*r/(2*n+2)*(2*n+3)); x:=x*c; n:=n+l; end;
writeln('s=’, s, 'n', n); end.

Program рг5; uses crt; const h=0.1; yl=0.2; yO=i; a0=0.1; al=0.1; var
a, y, f, r:real; k,i, с:integer; begin
writelnC.
смысл в том что бы в таблице были подсчитанные числа]
do
_*)
Г)
_*)
writelnC | 1
writeln(*_
for i:=0 to 4 begin
a:=aO-i*al; for i:=0 to 3 do begin
y:=yO-i*yl; for k:=l to 8 do f:=exp((k/3)*ln(y-a)); end;
writelnC |' ,y:6:1,' |, f :11:3,' |
wr i tel n('_I_')
end;
end.

uses crt;
const
а=-3.2;
b=pi/8;
с=3;
d=0.1;
м=10;
var
k,n,i,3: integer; f: array[l..m,1..m] of real; xk.Yn.x.Y.fxy.w.min: Real; begin for k:=l to м do begin
x:=a+b*k;
y:=c+d*n;
fxy:=sin(4*x)*(30*1n(y)-5*exp(y)+ln(3))/30+1; xk:=fxy; end;
for k:=l to м do begin
tor n:=l to м do write (xk:6:3);
writeln(’x[',k,'] элемент массива»',min:6:3); end;
write С’введите w=’); readln(w); for k:=l to m do begin
if abs(xk+min)<w then begin xk:=a+b*k; write!n(’xk=', xk,' end; end; end.