Помогите решить задачу по развилкам

[JOHN1992]

1. Ввести с клавиатуры координаты точки А(х1, у1) и определить, в какой четверти координатной плоскости она находится, и выдать об этом сообщение. Если одна из координат равна нулю, выдать сообщение: «точка находится на оси».

нужно написать лог программы в паскале и блок схему. очень прошу вас

[LeBron]

Первый курс подкрался незаметно Сначала проверяйте, есть ли равная нулю координата, если нету - выводите сообщение, иначе двигаемся дальше. Если нету равной нулю координаты, то надо определить четверть. Четверть определяйте по знакам координат.

[JOHN1992]

Сообщение от LeBron

Первый курс подкрался незаметно Сначала проверяйте, есть ли равная нулю координата, если нету - выводите сообщение, иначе двигаемся дальше. Если нету равной нулю координаты, то надо определить четверть. Четверть определяйте по знакам координат.

пожалуйсто если можно напишите полный лог программы с началами концами и т.п я полный 0 в паскале и блок схему в идеале фотка или чтото типа ->...->...->...->...или както так. заранее спасибо

[LeBron]

Блок-схемы и прочую лабуду рисовать не умею. То что вы полный 0 - ваша личная проблема, разве что учебник вам выслать?

if (x>0) and (y>0) then chetvertq:=1;

вот вам пример условия того, что точка в первой четверти. Напишите аналогично для остальных четвертей. Или можно помощью case.

[Chudo4258]

вот самый простой вариант: перебор всевозможных случаев

program Project2;
var x,y:real;
begin
readln(x,y);
if (x=0) and (y=0)then writeln('в нач. координат');
if (x=0) and (y<>0)then writeln('на оси Y');
if (x<>0) and (y=0)then writeln('на оси X');
if (x>0) and (y>0)then writeln('в I четверти');
if (x>0) and (y<0)then writeln('в IV четверти');
if (x<0) and (y>0)then writeln('в II четверти');
if (x<0) and (y<0)then writeln('в III четверти');
readln;
end.

Можно конечно и использовать полную развилку,

if {условие} then {} else {}

но на мой взгляд там больше мороки только будет

[JOHN1992]

Сообщение от Chudo4258

вот самый простой вариант: перебор всевозможных случаев

program Project2;
var x,y:real;
begin
readln(x,y);
if (x=0) and (y=0)then writeln('в нач. координат');
if (x=0) and (y<>0)then writeln('на оси Y');
if (x<>0) and (y=0)then writeln('на оси X');
if (x>0) and (y>0)then writeln('в I четверти');
if (x>0) and (y<0)then writeln('в IV четверти');
if (x<0) and (y>0)then writeln('в II четверти');
if (x<0) and (y<0)then writeln('в III четверти');
readln;
end.

Можно конечно и использовать полную развилку,

if {условие} then {} else {}

но на мой взгляд там больше мороки только будет

спасибо большое