home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / CYKLUS.IPS < prev    next >
Encoding:
Text File  |  1998-03-25  |  616 b   |  32 lines
  1. VAR
  2.    x : real
  3. ENDVAR
  4.  
  5. PROCEDURE main
  6.    ConsoleClear;
  7.    ConsoleShow;
  8.    FOR x := 1 to 3 step 0.5
  9.       WRITELN(x:10:1);
  10.    ENDFOR
  11.    WRITELN('*** konec cyklu FOR nahoru ***');
  12.  
  13.    FOR x := 5 downto 1
  14.       WRITELN(x:10);
  15.    ENDFOR
  16.    WRITELN('*** konec cyklu FOR dol∙ ***');
  17.  
  18.    x := 1;
  19.    WHILE x < 5  {dokud je v²raz pravdiv²}
  20.       WRITELN(x*3:10);
  21.       x := x+1;
  22.    ENDWHILE
  23.    WRITELN('*** konec cyklu WHILE ***');
  24.  
  25.    x := 1;
  26.    REPEAT
  27.       WRITELN(x/(x+1):10:3);
  28.       x := x+1;
  29.    UNTIL x = 5  {dokud nenφ v²raz pravdiv²}
  30.    WRITELN('*** konec cyklu REPEAT ***');
  31. ENDPROC
  32.