Задача Delphi

[Hacker19_90]

procedure TForm1.btn1Click(Sender: TObject);
var a,b,c: Integer;
begin
a:=strtoint(edt1.text);
b:=StrToInt(edt2.text);
if (a>0) and (b>0) then c := 1;
if (a>0) and (b<0) then c := 4;
if (a<0) and (b<0) then c := 3;
if (a<0) and (b>0) then c := 2;
edt3.text:=IntToStr(c);

end;

Единственное в чём минус, так это в том что в представленном коде Mad_Cat нет проверки на нулевые координаты

[Slimluma]

Все тему можно закрывать . все спс за помощ . Все как всегда элементарно и просто =)

[Slimluma]

кстати там в условии сказано что оба числа не равны нулю то есть это и не надо. Все равно спасибо.

[Slimluma]

Кстати только когда начал писать благодарности увидел ваше сообщение =) . Эх гдеж ты раньше был . Зато я хоть мозг напряг.

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

procedure TForm1.btn1Click(Sender: TObject);
var a,b,c: Integer;
begin
a:=strtoint(edt1.text);
b:=StrToInt(edt2.text);
if (a>0) and (b>0) then c := 1;
if (a>0) and (b<0) then c := 4;
if (a<0) and (b<0) then c := 3;
if (a<0) and (b>0) then c := 2;
edt3.text:=IntToStr(c);

end;

Единственное в чём минус, так это в том что в представленном коде Mad_Cat нет проверки на нулевые координаты