Navigace: Hlavní stránka -> PASCAL -> 04 Cykly -> 04.02 Aritmetický průměr řady čísel

MENU

04.02 Aritmetický průměr řady čísel

Zadání:
Sestavte program, který vypočte aritmetický průměr ze zadaného počtu čísel.
Řešení:
Zadání vyřešíme použitím cyklu FOR, který bude načítat čísla tolikrát, jakou hodnotu zadáme do proměnné pocet. 
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var cislo,prumer,soucet: real;
    pocet,i:integer;

begin

   write('Zadejte pocet cisel: ');
   readln(pocet);

   soucet:=0;

   for i:=1 to pocet do
   begin
      write('Zadejte ',i,'.cislo: ');
      readln(cislo);
      soucet:=soucet+cislo;
   end;

   prumer:=soucet/pocet;

   writeln('Aritmeticky prumer=',prumer:0:3);

   readln;

end.
program ke stažení
Pro studenty:
Pozor, nesmíte vynechat sekci inicializace proměnných. Do proměnné soucet MUSÍTE vložit hodnotu O (nula), jinak by program dosadil své počáteční hodnoty.

Pro učitele:
Doporučuji ukázat a vysvětlit studentům, jak program zareaguje na nulovou hodnotu v proměnné pocet a na záporné hodnoty v proměnné pocet.