home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / PRUMER.IPS < prev    next >
Encoding:
Text File  |  1998-03-25  |  601 b   |  20 lines
  1. FUNCTION prumer(cislo : array of real) : real;
  2.    VAR
  3.       x      : integer;
  4.       soucet : real
  5.    ENDVAR
  6.    soucet := 0;                          {nulovßnφ souΦtu}
  7.    FOR x := low(cislo) to high(cislo)    {rozsah pomocφ indexu}
  8.        WRITELN(x:2, ':', cislo[x]:10:3); {v²pis hodnoty}
  9.        soucet := soucet + cislo[x];
  10.    ENDFOR
  11.    WRITELN('-------------');
  12.    WRITELN('SouΦet:',soucet:6:2);
  13.    WRITELN('Pr∙m∞r:',soucet/(high(cislo)-low(cislo)):6:2);
  14. ENDFUNC
  15.  
  16. PROCEDURE main
  17.    ConsoleClear; ConsoleShow;
  18.    Prumer([13, 3, 5, 1]); {zkuste vlastnφ hodnoty, r∙zn² poΦet}
  19. ENDPROC
  20.