Výpočet priemeru známok
Delphi & Pascal (česká wiki)
Kategórie: Zadání z Pascalu
Autor: Juraj Pupák
Program: Average.pas
Soubor exe: Average.exe
Soubor ubuntu: Average
Autor: Juraj Pupák
Program: Average.pas
Soubor exe: Average.exe
Soubor ubuntu: Average
Výpočet priemeru známok. Zadávanie známok skončí zadaním nuly.
{ AVERAGE.PAS } { Vypocet priemeru znamok. } { } { Author: Juraj Pupak } { Date : 27.10.2006 http://www.trsek.com } program Average; uses crt; var sucet,pocet,i,znamka : integer; priemer : real; begin clrscr; Repeat write('Zadaj znamky (0-koniec): '); readln(znamka); sucet := sucet + znamka; pocet := pocet + 1; Until znamka = 0; priemer := sucet div (pocet - 1); writeln; writeln('Znamka je: ',priemer : 2 : 0); readln; end.