1. Якщо значення елементів масиву визначені до початку роботи програми, тобто відомі на етапі формулювання завдання на програмування, то можна використовувати наступний спосіб:
CONST A: ARRAY [1..10] OF REAL = (0.1, -15.3, 7, 0, -11.89, 4, -78,11.2, 1,0.01);
Приклад 29. У результаті вимірювання випадкового параметра сформований масив з N дійсних чисел. Обчислити емпіричну середню
і середнє відхилення
Позначимо М = і S =. тоді алгоритм програми буде мати вигляд.
Як ми тільки що обговорювали, введення масиву - це інструкція, що містить кілька операторів, в тому числі оператор циклу FOR. Але тут і у всіх наступних прикладах ми не будемо уточнювати спосіб введення одновимірного масиву, залишаючи вибір за програмістом.
PROGRAM PR29;
CONST N = 10;
VAR
X: ARRAY [1. N] OF REAL;
I: INTEGER;
S, M: REAL;
BEGIN
WRITELN ( 'Введіть масив X, з', N: 2, 'дійсних чисел');
FOR I: = 1 TO N DO READ (X [I]);
M: = 0;
S: = 0;
FOR I: = 1 TO N DO M: = M + X [I];
M: = M / N;
FOR I: = 1 TO 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.
Відображення на екрані значень одновимірного масиву.
- Тоді перший спосіб виведення елементів масиву в рядок буде мати інструкцію:
WRITELN ( 'Елементи масиву А мають значення:');
FOR I: = М ТО N DO WRITE (A [I]: З: D, '');
WRITELN;
У цій інструкції перший оператор WRITELN повідомляє оператору, яку інформацію він побачить на екрані. Другий оператор сформує ланцюжок дійсних чисел, розділених пробілами в форматі: З: D. Третій оператор WRITELN переведе курсор на новий рядок.
- Другий спосіб забезпечує висновок значень елементів масиву в стовпець, причому кожен з елементів буде ідентифікований:
FOR I: = М ТО N DO WRITELN ( 'A [', I: 2, '] -', А [I]: З: D);