--> Archiwum Forum
InterPOL [ Majster ]
Program
Witam. Czy wie ktoś może gdzie moge znaleźć programy napisane w Pascalu? Potrzebuje (w formie tekstowej) który oblicza średnią z tylu liczb ile się wprowadzi na początku. Nie znam się na programowaniu ale jest mi to potrzebne więc jakby ktoś wiedział gdzie takie coś znajde, ew. mógł napisać to byłbym wdzięczny.
InterPOL [ Majster ]
UP
InterPOL [ Majster ]
Up
Heretyk [ Generaďż˝ ]
W google znalazłem coś takiego (nie podaje linka bo nie wiem czy nie podpadło by to pod łamanie regulaminu):
program srednia;
Uses CRT;
const
suma : real = 0;
var
liczba, i : byte;
wartosc : real;
BEGIN
clrscr;
writeln('Z ilu liczb chcesz obliczyć średnią?');
readln(liczba);
begin
for i:= 1 to liczba do
begin
write ('Podaj liczbę ', i, ': ');
readln(wartosc);
suma:= suma + wartosc;
end;
writeln('Średnia podanych ', liczba, ' liczb to: ', suma/liczba:0:4);
end;
readln;
end.