Program zabezpečí výpočet aritmetického priemeru a odchýlky od priemeru postupnosti N nameraných hodnôt zadaných na vstupe a vypíše ich vo forme tabuľky

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategória: Začiatočníci

Autor: Danciwo
Program: Priemery3.pas
Súbor exe: Priemery3.exe

Program zabezpečí výpočet aritmetického priemeru a odchýlky od priemeru postupnosti N nameraných hodnôt zadaných na vstupe a vypíše ich vo forme tabuľky.
{ PRIEMERY3.PAS                               Copyright (c) Danciwo }
{ Programovo zabezpecte vypocet aritmetickeho priemeru a odchylok   }
{ od aritmetickeho priemeru postupnosti N realnych nameranych       }
{ hodnot zadanych na vstupe. Vysledky (s presnostou na dve desatinne}
{ miesta) vypiste ich vo forme tabulky s hlavickou:                 }
{ poradove cislo    hodnota     odchylka                            }
{                                                                   }
{ Author: Danciwo                                                   }
{ Date  : 15.02.2008                           http://www.trsek.com }
 
program priemery3;
uses crt;
 
var N: array[1..5] of real;
    priemer: real;
    odchylka: real;
    i:integer;
 
begin
 writeln('Vypocet aritmetickeho priemeru a odchylok od aritmetickeho priemeru');
 writeln('postupnosti N realnych nameranych hodnot.');
 
 writeln('Zadaj namerane hodnoty : ');
 for i:=1 to 5 do
   readln(n[i]);
 
 priemer:=(n[1]+n[2]+n[3]+n[4]+n[5])/5;
 writeln('poradove cislo     hodnota     odchylka');
 
 for i:=1 to 5 do begin
   odchylka:=priemer-n[i];
   writeln(i:5, N[i]:20:2, odchylka:12:2);
 end;
 readln;
end.