Добавил:
bagiwow
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Вадик / лаба№1 Вадик / лаба1
.PAS program lab1;
var a,b,x,y:real;
begin
writeln('x,y');
readln(x,y);
a:=sqr(x-4.9)/225+sqr(y-3)/1089;
b:=sqr(x-8)+(y-7.4);
if (y>=31/28*x+17)and(b<=576)and(a<=1)and(x<=0)and(y>=0)
then writeln('ЇаЁ ¤«Ґ¦Ёв ®Ў« бвЁ Ђ')
else if (y>=0)and(a>=1)and(b<=576)and(x>=0)
then writeln('ЇаЁ ¤«Ґ¦Ёв ®Ў« бвЁ B')
else writeln('Ґ ЇаЁ ¤«Ґ¦Ёв Ё ®¤®© Ё§ ®Ў« б⥩');
readln;
end.
var a,b,x,y:real;
begin
writeln('x,y');
readln(x,y);
a:=sqr(x-4.9)/225+sqr(y-3)/1089;
b:=sqr(x-8)+(y-7.4);
if (y>=31/28*x+17)and(b<=576)and(a<=1)and(x<=0)and(y>=0)
then writeln('ЇаЁ ¤«Ґ¦Ёв ®Ў« бвЁ Ђ')
else if (y>=0)and(a>=1)and(b<=576)and(x>=0)
then writeln('ЇаЁ ¤«Ґ¦Ёв ®Ў« бвЁ B')
else writeln('Ґ ЇаЁ ¤«Ґ¦Ёв Ё ®¤®© Ё§ ®Ў« б⥩');
readln;
end.