Задача Delphi

[Slimluma]

Прошу помоч с решением такой задачки :
Даны вещественные числа a и b (a и b не равны нулю ).
Определить в какую координатную четверть попадает точка с координатами А( а,b ).

Я только приступаю к осваиванию delphi , поэтому это пока что для меня дремучий лес. Но как я понял решением этой задачки будет являться программа в которой я должен забивать значение а она будет определять в какую координатную четверть попадает искомая точка. Увы сам пока что я ее не могу написать , прошу помоч.

[Mad_Cat]

if_22 боту из подписи

var x,y:integer;
begin
clrscr;
writeln('Введите x');
readln(x);
writeln('Введите y');
readln(y);
if (x>0) and (y>0) then writeln(1);
if (x>0) and (y<0) then writeln(4);
if (x<0) and (y<0) then writeln(3);
if (x<0) and (y>0) then writeln(2);
end.

[Hacker19_90]

Так а чем помоч-то?
Литературы по делфи навалом!
Или нужен алгоритм?
пожалуйста

если а > 0 то
    если б > 0 то первая четверть
    если б < 0 то четвёртая
    если б = 0 то лежит на оси х
и так для всех вохможных а:
 меньше 0 и равно 0

[Hacker19_90]

if (x<0) and (y>0) then writeln(4);

Бред! вообщето это вторая

if (x>0) and (y<0) then writeln(2);

А это четвёртая

[Xenm]

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

Прошу помоч с решением такой задачки :
Даны вещественные числа a и b (a и b не равны нулю ).
Определить в какую координатную четверть попадает точка с координатами А( а,b ).

Я только приступаю к осваиванию delphi , поэтому это пока что для меня дремучий лес. Но как я понял решением этой задачки будет являться программа в которой я должен забивать значение а она будет определять в какую координатную четверть попадает искомая точка. Увы сам пока что я ее не могу написать , прошу помоч.

Да тут дело не в языке программирования, главное понимать принцип решения, сам подумай первая четверть (x > 0 и y > 0) вторая - (x < 0 и y > 0) ну и т.п.

[Slimluma]

Просто я с подобными вещами встречался на 2ом курсе , в паскале а тут делфи надо в интерфейсе разобраться и так далее. Как всегда вышло все на последний день оставил. Так то принцип ясен но как это изложить я не знаю пока что .

[Slimluma]

Все еще требуеться помощ. Я вот приступил к програмированию этой задачки и столкнулся с проблемой. Как мне сделать так что бы вводимые мной данные например в окно а я ввожу 1 в б я ввожу 2 . програма написала в какой четверти находиться точка . Пересмотрел видиоуроки не могу найти нужную команду.

[Hacker19_90]

в окно а я ввожу 1 в б я ввожу 2

Так во первых!
У вас программа с интерфейсом или консольная?
Если с интерфейсом вводите в Edit'ы свои значения
На какой-нибудь батон киньте обработчик
А выводить можно хоть на капшене формы
Ну или ShowMessage

[Slimluma]

delphi 7 с интерфейсом . я сделал батн и 3 ячейки 2 для ввода а и б и 3 для вывода четверти но проблема я не знаю как сделать чтобы програма по тому < или > нуля числа смогла вывести значение от 1ого до 4ех ( четверти) вот даже как я написал

procedure TForm1.btn1Click(Sender: TObject);
var a,b,c: Integer;
begin
a:=strtoint(edt1.text);
b:=StrToInt(edt2.text);
c:=
edt3.text:=IntToStr(c);

end;

[Slimluma]

но что писать там где c:= я не знаю