Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
10
Добавлен:
10.12.2013
Размер:
24.58 Кб
Скачать

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

Кафедра ИТАС

Лабораторная работа №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.