Определение четверти, в которой находится точка на Pascal
Определение четверти, в которой находится точка...
var
x,y: integer; // Координаты точки
Quater: integer; // Номер четверти
begin
write('Введите координаты точки: ');
readln(x,y);
if x>0 then
if y>0 then
Quater := 1
else Quater := 4
else
if y>0 then
Quater := 2
else Quater := 3;
writeln('Номер четверти = ',Quater);
end.
10.02.2015, 09:00 -
Категория: Статьи » Программирование » Pascal
