9.6. Разветвляющийся алгоритм

Пример 13.

Дана точка А (x,y) с координатамиx,y, не равными нулю.

Найти четверть, в которой находится эта точка. Написать программу.

Решение.

ProgramPr13;

Var

x,y: integer;

Begin

writeln(‘ввести координаты т. А: x,y’);

Readln (x,y);

IF (x>0 ) and (y>0) then writeln (‘т. Aнаходится в 1 четверти’)

else

IF (x>0) and (y<0) then writeln (‘т. А в 4 четверти’)

else

IF y>0 then writeln (т. А во 2 четверти’)

else writeln (‘ т. А в 3 четверти’);

End.

Каждому ELSE соответствует предыдущее свободное then.