Информатика / Лаба 4 по информатике

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

Отчет по информатике на тему:

Нахождение площади

плоских фигур

Работу выполнил студент

группы АТ-06-2

Старцев Александр.

Проверил: Кычкин А. В.

Пермь 2006.

Цель работы: Написать программу в Pascal для решения задачи нахождения площади плоских фигур

Вариант №25

Program lab4;

Var x10,y10,y8,x8,x9,y9,dx5,dx6,s1,s2,s3,s5,s6,s4,sa,sb,x3,y,y1,y5,y6,y4,x4:real;

i1,n,i2,i3:integer;

Const d=0.01; x2=0; x5=0; x6=0; y3=0 ;x1=0; y2=17;

Begin x4:=0;

repeat x4:=x4+d ; y:=(-0.36*x4+9.5);

y4:=-2-sqrt(32*32-sqr(x4-13.5));

until y-y4<d; y1:=9.5; x3:=(9.5-y3)/0.36;

y5:=-4.5-sqrt((1-sqr(x5+7)/sqr(33))*22*22);

y6:=-2-sqrt(32*32-sqr(x6-13.5));

s1:=y1*x3/2; n:=20; dx5:=x3/n; x8:=0 ; s5:=0;

For i1:= 1 to n do begin x8:=x8+dx5;

y8:=-4.5+sqrt((1-sqr(x8+6)/sqr(33))*22*22);

s5:= s5+y8*dx5;

end;

sa:=s5-s1;

writeln ('sa=',sa:2:2);

x9:=0; s2:=0;

For i2:= 1 to n do begin x9:=x9+dx5;

y9:=-1*(-4.5-sqrt((1-sqr(x9+6)/sqr(33))*22*22));

s2:= s2+y9*dx5;

end;

s3:=(x4-x3)*-1*y4/2;

x10:=0;s6:=0; dx6:=x4/n;

For i3:= 1 to n do begin x10:=x10+dx6;

y10:=-1*(-2-sqrt(32*32-sqr(x10-13.5)));

s6:= s6+y10*dx6; end;

sb:=s6-s2-s3;

writeln ('sb=',sb:2:2);

readln;

end.

Результаты работы программы: