Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Составьте программу которая определяет номер кординатной четверти в которой находяться точка с кординатой x,y числа x,y вводятся с клавиатуры

Ответ оставил Гость

Var x,y:real; 
begin 
writeln(Введите X); 
read(x); 
writeln(Введите Y); 
read(y);   
if ((x>0)and(y>0)) then writeln(Точка находится в I четверти);   
if ((x<0)and(y>0)) then writeln(Точка находится во II четверти);   
if ((x<0)and(y<0)) then writeln(Точка находится в III четверти);   
if ((x>0)and(y<0)) then writeln(Точка находится в IV четверти); 
end.