programujeme v pascale
Program.P.szm.sk programujeme v pascale... nioho sa nebojte ...

Program.P.szm.sk

programujeme v pascale...

ničoho sa nebojte zvládne to každý

 
 

Programovanie v Pascale

HOME  PRÍKLAD  KOD   LINKS  CONTACT

 

Program v jazyku Pascal

Zadanie: 

Vytvorte program na aritmetický priemer z ľubovoľného počtu čísel zadaných z klávesnice.

Premenné:
Vstupné premenné: počet, A
Výstupné premenné: súčet, priemer
Pomocná premenná: I

 Program:

program priem;
uses wincrt;
var priemer,sucet,A:real;
var pocet,I:integer;
begin
clrscr;
pocet:=0;
sucet:=0;
priemer:=0;
writeln (`Zadaj pocet cisel:`);
readln (pocet);
for I:=1 to pocet do begin
write (`Zadaj`,I,`.cislo`);
readln (A);
sucet:= sucet+A;
end;
writeln;
priemer:=sucet/pocet;
writeln (`Priemer je: `,priemer:10:3);
end. 

 

:: program :: programujeme v pascale :: počítač :: vývojový diagram :: štruktúrogram :: C-éčko :: Cplusplus :: MatLAB :: zdrojový kód :: PC ::