50 (319)

Do wartości zmiennej odwołujemy się poprzez jej nazwę i indeksy. Poprawne są na przykład instrukcje:

NazwyDniTygodnia [1] 'Poniedziałek';

NazwyDniTygodnia[7] 'Niedziela';

Writeln ('Pierwszym dniem tygodnia jest NazwyDniTygodnia [1]);

WzrostUczniow[5] := 170;

Writeln ('Piaty mierzony uczeń miał wzrost ',WzrostUczniow[5], ' cm');

Suma 0;

for I 1 to 25 do Suma Suma + WzrostUczniowCI];

Writeln ('Średni wzrost uczniów to ', Suma/25:3:0, ' cm');

ĆWICZENIE

4.1

Obliczenie wariancji

Napisz program, który wczytuje zadaną przez użytkownika liczbę liczb rzeczywistych i liczy ich wariancję.

Z wariancją nie jest już tak łatwo jak ze średnią. Podczas jej obliczania (ćwiczenie 3.35] nie pamiętaliśmy kolejnych wpisywanych liczb, a jedynie ich sumę — i to wystarczyło. W przypadku liczenia wariancji według standardowego wzoru musimy najpierw wczytać wszystkie liczby, aby policzyć ich średnią i dopiero wtedy możemy przystąpić do liczenia wariancji. Do pamiętania wszystkich wpisanych wartości wykorzystamy tablicę Próbki.

program cw4_01;

{ Program oblicza wariancje podanego ciągu liczb }

{ Katalog r4_01 : 4_01.pas    }

var

I, N : Byte;

Próbki : array [1..100] of Real;

Suma, Średnia : Real;

begin

Write ('Podaj liczbę próbek (1..100): '); Readln (N);

while ((N<1) or (N>100)) do

begin

Write ('Zla wartość. Podaj liczbę próbek (1..100): '); Readln (N); end;

Suma O;

for I 1 to N do

begin

Write ('Podaj wartość próbki nr ', I, ': '); Readln (Próbki [I]);

Suma Suma + Próbki [I]; end;

Średnia Suma/N; Suma 0; for I 1 to N do

Suma Suma + (Sqr (Próbki [I] - Średnia));

Writeln ('Wariancja podanego ciągu liczb wynosi: ', Suma/N:0:2);

Readln; end.

Istnieje metoda liczenia wariancji bez pamiętania wszystkich wpisanych danych. Dzięki prostemu przekształceniu wzoru na wariancję można stworzyć algorytm jej liczenia „na bieżąco” — podczas wpisywania danych. W ćwiczeniach dodatkowych będziesz miał możliwość napisania programu liczącego wariancję właśnie w ten sposób.