лаба №6 / лаба вариант 5

function F1(x1:Real):Real;
begin
F1:=Sqrt((1-sqr(x1-1)/1225)/400)+10;
end;
function F2(x2:Real):Real;
begin
F2:=sqrt(841-sqr(x2+14.5))-9;
end;
function F3(x3:Real):Real;
begin
F3:=(sqrt(841-sqr(x3+14.5))-9)-(-0.85*x3-12.325);
end;
var a,s,b1,b2,b3,y1,y2,y3,s1,s2,s3,h1,h2,h3,x1,x2,x3:real;
n,i:integer;
begin
n:=100;
s1:=0;
s2:=0;
s3:=0;
a:=0;
b1:=36;
b2:=14;
b3:=-37;
h1:=(b1-a)/n;
h2:=(b2-a)/n;
h3:=(b3-a)/n;
begin
for i:=0 to n do
x1:=a+h1*i;
y1:=F1(x1);
S1:=s1+x1*y1;
end;
begin
for i:=0 to n do
x2:=a+h2*i;
y2:=F2(x2);
S2:=s2+x2*y2;
end;
begin
for i:=0 to n do
x3:=a+h3*i;
y3:=F3(x3);
S3:=s3+x3*y3;
writeln('Ї«®й ¤м ®Ў« бвЁ A =',s3:0:5);
readln;
end;
s:=s1-s2;
writeln('Ї«®й ¤м ®Ў« бвЁ B =',s:0:5);
readln;
end.