home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / SWITCH.IPS < prev    next >
Text File  |  1998-03-25  |  362b  |  21 lines
  1. VAR
  2.    x : integer
  3. ENDVAR
  4.  
  5. PROCEDURE main
  6.    ConsoleClear; ConsoleShow;
  7.    FOR x := 1 to 10;
  8.       SWITCH x OF
  9.          CASE 1: 
  10.             WRITELN("Φφslo jedna");
  11.          ENDCASE
  12.          CASE 5:
  13.             WRITELN("Φφslo p∞t");
  14.          ENDCASE
  15.          ELSE
  16.             WRITELN(x:10);
  17.          ENDCASE
  18.       ENDSWITCH
  19.    ENDFOR
  20. ENDPROC
  21.