лаба №6 / Новая папка / Лаба 4
.docПермский Государственный Технический Университет
Кафедра ИТАС
Лабораторная работа №4
Выполнил: Дементьев Д.А
Группа: АТ-07-1
Проверил: Лясин В.Н
Пермь.2007
Program lab4;
var a,b,x,y:real;
begin
writeln ('x,y');
readln (x,y);
a:=sqr(x+14.5)+sqr(Y+9);
b:=sqr(x-1)/1225+sqr(y-10)/400;
if (a<=841) and (x<=0) and (y>=0) and (y>=0.85*x-35.7)
then writeln ('prinadlegit A');
else;
if (b<=1) and (a>=841) and (x>0) and (y>0)
then writeln ('prinadlegit B')
else writeln ('ne prinadlegit');
Readln;
end.