7.3.. Napisati program za ispis osobina zadanog kvadranta, prema slijedećoj tabeli:

Listing programa:

PROGRAM Kvadrant;
USES
  WinCrt;
VAR
  a : 1..4;
BEGIN
  Writeln('Kvadrant');
  Write('Broj kvadranta ');
  Readln(a);
  CASE a OF
    1 : Writeln(' x>0  i   y>0');
    2 : Writeln(' x<0  i   y>0');
    3 : Writeln(' x<0  i   y<0');
    4 : Writeln(' x>0  i   y<0');
  END;
END.

Ispis na ekranu:

Index