Описать функцию Quarter(x, y) целого типа, определяющую номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами (x, y). С помощью этой функции найти номера координатных четвертей для трех точек с данными ненулевыми координатами — Pascal(Паскаль)

function Quarter(x,y:real):byte;
begin
if(x>0)and(y>0) then Quarter:=1
else if(x<0)and(y>0) then Quarter:=2
else if(x<0)and(y<0) then Quarter:=3
else if(x>0)and(y>0) then Quarter:=4;
end;

Похожие записи/страницы:

Leave a Comment

+ 88 = 91