Inicializálása egy egydimenziós tömb
1. Ha az értékek a tömb elem meghatározása megkezdése előtt a program, hogy ismert szakaszában megfogalmazása a feladat a programozás, akkor a következő módszert:
CONST A: array [1..10] REAL = (0,1, -15,3, 7, 0, -11,89, 4, -78,11.2, 1,0.01);
29. példa Ennek eredményeként a mérési véletlenszerű paraméter tömb van kialakítva N valós számok. Számoljuk ki a tapasztalati átlag
és a szórás
Legyen M = és S =. akkor az algoritmus a program fog kinézni.
Ahogy most tárgyalt, a tömb bemenet - egy utasítást, amely több szereplője, köztük az üzemeltető a ciklus. De itt és az alábbi példákat, akkor nem adja meg a módszer megadásával egydimenziós tömböt, így a választás a programozó.
PROGRAM PR29;
CONST N = 10;
VAR
X: array [1. N] REAL;
I: integer;
S, M: REAL;
BEGIN
WriteLn ( 'Enter tömb X, a', N: 2 'valós számok');
Az I: = 1-től n-DO READ (X [I]);
M: = 0;
S: = 0;
Az I: = 1-től n-DO M: = M + x [i];
M: = M / N;
Az I: = 1-től n-DO S: = S + (X [I] - M) * (X [I] - M);
S: = SQRT (S / (N - 1));
WriteLn ( 'M -', M: 10: 6, 'S =', S: 9: 6);
END.
A képernyőn megjelenő egydimenziós tömb értékeit.
- Aztán az első eljárás keretében felmerülő tömb elemeit egy string lesz a nyilatkozatot:
WriteLn ( 'Elements of tömb A jelentése:');
Az I: = m-n DO write (A [I]: C: D, '');
writeln;
Ebben a kézikönyvben az első operátor WriteLn mondja az üzemeltető milyen információ lát a képernyőn. A második állítás lesz láncot alkotnak a valós számok, szóközzel elválasztva a következő formában: C: D. A harmadik állítás WriteLn a kurzort egy új sort.
- A második módszer egy kimenete a tömbelem értékek egy oszlopban, az egyes elemek lesz azonosítva:
Az I: = m-n DO WriteLn ( 'A [', I: 2 '] -', A [I]: C: D);