лаба №6 / лаба №6

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.

Пермский Государственный Технический Университет

Кафедра ИТАС

Контрольная работа №6

Выполнил: Никулин М.С

Группа: АТ-07-1

Проверил: Лясин В.Н

Пермь.2007