home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / ozogan / SWITCH.IPS < prev    next >
Text File  |  1997-08-14  |  349b  |  21 lines
  1. VAR
  2.    x : integer
  3. ENDVAR
  4.  
  5. PROCEDURE main
  6.    ConsoleClear;
  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.