Пример 2

X Y

Массив G - двухмерный, т.к. у него есть и строки (4), и столбцы (2) - больше одного.

Итак:

Имя массива X Y G

Размерность 1 1 2

(одномерный) (одномерный) (двухмерный)

Длина 4 4 8

Опишем эти три массива:

Var x,y: array [1..4] of real; g: array [1..4,1..2] of real;

Еще примеры описания (объявления) массивов:

Var

b,a: array [1..100] of real;

c,d: array [3..50,-5..5] of integer;

k: array [1..4,1..5] of real;

a,b - одномерные массивы (1 индекс), 100 элементов в каждом массиве:

a₁, a₂, a₃,..., a₉₉, a₁₀₀;

b₁, b₂, b₃,..., b₉₉, b₁₀₀

и элементы этих массивов могут принимать значения вещественного типа.

k - двухмерный массив-матрица (2 индекса):

Элементы этого массива могут принимать вещественные значения.

с,d - двухмерные массивы-матрицы (2 индекса), в каждом из которых 48 строк и 11 столбцов (первая строка будет иметь номер 3, последняя - 50; первый столбец будет иметь номер -5, последний - 5). Элементы этих массивов принимают целые значения.

Для записи отдельного элемента массива используется имя массива, за которым в квадратных скобках следуют значения индексов, разделенные запятыми.

Например, описанный выше массив Х состоит из четырех элементов: х₁, x₂, x₃, x₄. Запись их в программе будет выглядеть так:

x[1], x[2], x[3], x[4].

Элементы массивов могут использоваться при записи арифметических или логических выражений, в процедурах ввода-вывода. В качестве индексов элементов массива допустимы только целочисленные выражения или переменные, например: x[2*i], где i - переменная целого типа. Если, например, i будет равно 1, то получим элемент x[2]. Значение индексного выражения не должно быть меньше нижней границы и не должно превышать верхнюю границу области изменения данного индекса.

Написать программу для вычисления значений корней системы уравнений

по формулам

Решение

У нас в задаче два массива: A - двухмерный (2 индекса) - две строки и два столбца - 4 элемента;

B - одномерный - 2 элемента: b₁ и b₂.

Var

B: array [1..2] of real;

A: array [1..2,1..2] of real;

D,x,y: real;

Begin

{Элементов в этих массивах мало, поэтому введем их пока без цикла}

Read(B[1],B[2],A[1,1],A[1,2],A[2,1],A[2,2]);

{В выражениях для вычисления величин x и y знаменатели в дробях одинаковые, поэтому эти знаменатели можно вычислить один раз. Для сохранения этого результата была заведена переменная D}

D:=A[1,1]*A[2,2]-A[2,1]*A[1,2];

x=(B[1]*A[2,2]-B[2]*A[1,2])/D;

y:=(B[2]*A[1,1]-B[1]*A[2,1])/D;

Writeln(X,Y)

End.

Ввод данных, который был организован в этой программе, не очень удобен. Например, что мы будем делать, если система была бы 10‑го порядка? Будем перечислять 100 элементов массива A и 10 элементов массива B? Это неудобно. В следующих задачах мы разберем, как вводятся массивы и как их надо выводить.

Дата добавления: 2014-12-27