.: Ing. Petr Stránský - Závěrečná práce RSI :.

04.04 Aritmetický průměr každého třetího čísla

Zadání:
Sestavte program, který vypočte aritmetický průměr z každého třetího čísla 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.
Ke zjištění, zda je číslo třetí, použijeme řídící proměnnou cyklu FOR i.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var cislo,n,i,soucet:integer;
    ap:real;

begin

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

   soucet:=0;

   for i:=1 to n do
   begin
      write('Zadejte ',i,'.cislo: ');
      readln(cislo);
      if i mod 3=0 then  soucet:=soucet+cislo;
   end;

   ap:=soucet/(n div 3);
   writeln('Aritmeticky prumer=',ap: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.

Navigace: Hlavní stránka -> PASCAL -> 04 Cykly -> 04.04 Aritmetický průměr každého třetího čísla

MENU

04.04 Aritmetický průměr každého třetího čísla