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 :: |