|
Turbo Pascal Twoje źródło wiedzy o Turbo Pascalu. |
|
|
|
|
|
 |
Pią 20:38, 17 Lut 2006 |
 |
Autor |
Wiadomość |
klakier
Początkujący
Dołączył: 17 Lut 2006
Posty: 11
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
|
Temat postu: Obliczanie średniej |
|
|
Mam mały problem... Jak obliczyć średnią liczb? Z góry dzięki! 8)
Post został pochwalony 0 razy
|
|
|
|
|
|
|
 |
 |
Pią 20:47, 17 Lut 2006 |
 |
Autor |
Wiadomość |
rafael
Administrator
Dołączył: 07 Lut 2006
Posty: 72
Przeczytał: 0 tematów
Ostrzeżeń: 0/3 Skąd: Pszczyna
|
Temat postu: |
|
|
Kod: | program srednia;
uses
crt;
var
liczba, suma, i, ilosc_liczb: integer;
begin
clrscr;
writeln ('Podaj ilość liczb całkowitych wprowadzanych z klawiatury');
readln (ilosc_liczb);
writeln;
suma := 0;
i := 0;
if ilosc_liczb > 0 then
begin
repeat
writeln ('Podaj ',i+1, ' liczbę');
readln (liczba);
suma := suma + liczba;
i := i+1;
until (i=ilosc_liczb);
writeln ('Średnia z ',ilosc_liczb, ' liczb wynosi = ', suma/i:6:2);
end
else
writeln ('Brak liczb do policzenia średniej');
readln;
end. |
O to chodzilo? :mrgreen:
Post został pochwalony 0 razy
|
|
|
|
|
 |
Pią 20:49, 17 Lut 2006 |
 |
Autor |
Wiadomość |
klakier
Początkujący
Dołączył: 17 Lut 2006
Posty: 11
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
|
Temat postu: |
|
|
Tak o to 8) Dzięki za pomoc...
Post został pochwalony 0 razy
|
|
|
|
|
Nie możesz pisać nowych tematów Nie możesz odpowiadać w tematach Nie możesz zmieniać swoich postów Nie możesz usuwać swoich postów Nie możesz głosować w ankietach
|
|
|
|
|
|
|
fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2002 phpBB Group
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|