Kuadran dari koordinatitik

Buat program dengan masukan koordinat sebuah titik (x,y) dalam sebuah system koordinat kartesian, kemudian ditentukan di kuadran mana titik tersebut.

Contoh Masukan :

Koordinat titik (x,y) : 10 -20

Contoh keluaran:

Titik 10,-20 berada pada kuadran 4

Jawab:

uses crt;

VAR

        ix, iy: Integer;

BEGIN

clrscr;

        writeln('Masukkan x:');

        readln(ix);

        writeln('Masukkan y:');

        readln(iy);

               

IF      (ix >= 0) THEN

        IF (iy >= 0) THEN

                writeln('Bilangan merupakkan kuadran I')

         ELSE

                writeln('Bilangan merupakkan kuadran IV')

   ELSE

                IF (iy >= 0) THEN

                writeln('Bilangan merupakkan kuadran II')

                ELSE

                writeln('Bilangan merupakkan kuadran III');

                readln;

end.