Использование значений массивов, ввод и вывод значений массивов
Var
A,D : array[l..4] of real;
В : array[1..10,1..15] of integer;
I, J, К : integer;
S : real;
Инициализация (присваивание начальных значений) массива заключается в присваивании каждому элементу массива одного и того же значения, соответствующего базовому типу. Наиболее эффективно эта операция выполняется с помощью оператора for, например:
Инициализация элементов одномерного массива А:
for I := 1 to 4 do A[I] := 0;
Для инициализации двумерного массива обычно используется вложенный оператор for, например:
Инициализация двумерного массива В:
for I := I to 10 do
for J := 1 to 15 do B[I,J]:= 0;
Для ссылки на отдельные элементы массива используется переменная с индексом: Имя массива[индекс].Чтобы получить доступ к конкретному элементу массива, в качестве индекса можно использовать не только целое число, соответствующее порядковому номеру этого элемента в массиве, но и выражение, значение которого равно упомянутому целому числу.
Например, при обращении к элементам некоторого массива "A: Array[1..100] of Real", в качестве индекса можно использовать любое арифметическое выражение, значением которого будет целое число из диапазона 1..100:
A[56]; A[i+7]; A[i div j] .
Можно ввести и значения отдельных элементов, а не всего массива. Так, операторами:
Read(A[3]); { ввод значение третьего элемента вектора А }
Read(B[6,9]);{ ввод значение элемента, расположенного в шестой строке девятого столбца матрицы В }
Оба значения набираются на одной строке экрана, начиная с текущей позиции расположения курсора.
Вводить и выводить значения из массивов целесообразно поэлементно, используя в цикле операторы Readln, Write, Writeln и оператор присваивания.
Program Vvod_Vivod; | |
Var i:integer; | |
A:Array[1..20] of Real; | |
B:Char; | |
Begin | |
Writeln('Введите числа в массив: '); | |
FOR i:=1 TO 20 DO | |
begin Write('A[',i,']= '); Readln(A[i]) end; | |
Writeln('Массив заполнен, будете выводить'); | |
Write('значения на экран? ("Y"-да, "N"-нет)=>'); | |
Readln(B); | |
IF UpCase(B)="Y" THEN | {если прописной вариант введенной} |
FOR i:=1 TO 20 DO Writeln('A[',i,']=',A[i]:6:2); | {буквы является "Y", то} |
Readln | |
End. |