Регулярные типы (массивы)
Массив – набор некоторого количества пронумерованных элементов одного типа.
Свойства массива:
1.имя – имя массива должно логически соответствовать смыслу информации, хранящейся в массиве;
2.количество элементов массива;
3.тип элементов массива. Массив, состоящий из n столцов и m строк.
M[1..n,1..m]
m[1,2]:=5
Массивы определяются в блоке TYPE.
type
massiv = array [1..100] of word;
m = array [0..2003] of real;
V1 = array [1..20,1..40] of char;
Для обращения к элементам массива необходимо указать имя массива и в квадратных скобках после имени массива индекс элемента массива.
massiv [22] := 125;
m [2000] := 345.21;
V1 [12,21] := ‘a’;
Пример. Задать массив, состоящий из 30 столбцов и 45 строк ( M[1..30,1..45])
program N2;
type
mas = array [1..30,1..45] of word;
var
m : mas;
Ввод массивов
При вводе массивов необходимо сделать так, чтоб информация вводилась в понятной форме, то есть должно быть видно разделение на столбцы и строки.
Пример №1. Набрать программу для ввода информации в массив [1..3,1..5] и вычислить сумму чисел во втором столбце
Quote
Program N1;
uses crt;
type
mas = array [1..3,1..5] of word;
var
m : mas;
i,j: byte;
s: word;
BEGIN
for i:=1 to 3 do - здесь задаем число столбцов матрицы
for j:=1 to 5 do - здесь задаем число строк в столбцах матрицы
begin
gotoxy (i*3,j*2); - команды между begin-end будут повторяться 15 раз
readln (m[i,j]);
end;
{теперь вычисляем сумму чисел в столбце №2}
S:=0;
for j:=1 to 3 do - здесь задаем, сколько ячеек надо обработать
begin
S:=S+m[i,2];
end;
writeln ('S=',s);
readln;
END.
Задание на урок
1. Набрать программу Пример №1 и проверить правильность ее работы
2. Внести изменения в работу программы:
а) Что надо изменить в программе, чтоб ввести матрицу 6х4
б) Что будет меняться, если в команде gotoxy (I*3,j*2) изменять числа?
в) Вычислить произведение чисел в столбце №5
г) Добавить в программу использование окон.
Домашнее задание
Домашнее задание выполнить в тетради письменно
Для подгруппы №1.
Написать программу для вычисления суммы чисел в строке №3 матрицы [8,5]
Для подгруппы №2.
Написать программу для вычисления суммы чисел в столбце №2 матрицы [6,2]
Дополнительное задание
Написать программу для вычисления среднего арифметического чисел в главной диагонали матрицы [4,4]
