Вадик / лаба№5 Вадик / Лаба №5

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

Кафедра ИТАС

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

Выполнил: Чунжин В.Р.

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

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

Пермь.2007

program laba5_metodi_scan_iteracii;

var x,y,p:real;

begin

writeln('p');

readln(p);

x:=0;

repeat

y:=sqrt(576-sqr(x-8))+7.4;

x:=x-p;

until (sqr(x-4.9)/225+sqr(y-3)/1089)>=1;

writeln('***********************************');

writeln('* koordinati A *',' ','x=',x:1:1,' *',' y=',y:1:1,' *');

repeat

y:=31/28*x+17;

x:=x-p;

until sqr(x-4.9)/225+sqr(y-3)/1089>=1;

writeln('***********************************');

writeln('* koordinati B *',' ','x=',x:1:1,'* ','y=',y:1:1,' *');

repeat

x:=x+p;

y:=0;

until sqr(x-4.9)/225+sqr(y-3)/1089>=1;

writeln('***********************************');

writeln('* koordinati E *',' ','x=',x:1:1,' *',' y=',y:1:1,' *');

repeat

x:=x+p;

y:=0;

until sqr(x-8)+sqr(y-7.4)>=576;

writeln('***********************************');

writeln('* koordinati D *',' ','x=',x:1:1,' *',' y=',y:1:1,' *');

repeat

y:=sqrt(576-sqr(x-8))+7.4;

x:=x+p;

until sqr(x-4.9)/225+sqr(y-3)/1089>=1;

writeln('***********************************');

writeln('* koordinati C *' ,' ','x=',x:1:1,' *',' y=',y:1:1,' *');

writeln('***********************************');

readln;

end.