Определить, в какой четверти находится точка с координатами x, y, и вывести ** печать...

0 голосов
89 просмотров

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


Информатика (52 баллов) | 89 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Var
x,y: real;

begin
write ('x = '); read (x);
write ('y = '); readln (y);

write ('Номер четверти координатной плоскости: ');
if (x > 0) and (y > 0) then
writeln ('I')
else
if (x < 0) and (y > 0) then
writeln ('II')
else
if (x < 0) and (y < 0) then
writeln ('III')
else
if (x > 0) and (y < 0) then
writeln ('IV')
else
writeln ('-. Точка лежит на оси.');

readln
end

Наверное вот так

(140 баллов)
0

Или более короткий вариант:

0

Function Oktava(x,y : Integer) : Byte;
Begin
If (x=0) or (y=0) then Oktava:=0 else
If x>0 then
If y>0 then Oktava:=1 else Oktava:=4
else
If y>0 then Oktava:=2 else Oktava:=3;
End;