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