Лабораторная работа 10 (2 часа) Borland Pasсal. Одномерные массивы

Массив - это множество однотипных элементов.

При описа­нии массива необходимо указать общее число входящих в массив элементов и тип этих элементов. Например:

var

А : array [1..10] of real;

В : array [1..5] of integer;

Из описания массивов следует, что одномерный массив А состоит из 10 вещественных чисел, а одномерный массив В состоит из 5 элементов целого типа.

При работе с массивами выполняются циклические дейст­вия.

Пример. В массиве Р(20) найти количество положительных элементов и сформировать новый массив Р1, каждый элемент которого полу­чается делением соответствующего элемента массива Р на найден­ное количество.

Программа.

var

Р, Р1 : array [1..20] оf real; К, I: integer;

begin

writeln (‘Введите Р(20)’);

for i:=1 to 20 do

read P[i];

readln;

K:= 0;

for i:=1 to 20 do

if P[i] > 0 then

k:=k+1;

for i:=1 to 20 do

P1[i]:= P[i]/k;

writeln (‘Исходный массив Р’);

for i:=1 to 20 do

write (P[i]:6:2);

writeln;

writeln (‘Количество положительных элементов = ’,k);

writeln (‘Новый массив Р1’);

for i:=1 to 20 do

write (p1[i]:6:2);

writeln;

readln

end.

Двумерные массивы

При описании двумерных массивов (матриц) необходимо указать границы изменения двух индексов и тип элементов матри­цы. Например:

var

А : array [1..3, 1..5] of real;

В : array [1. .2,1. .2] of integer;

В данном примере матрица А состоит из трех строк и пяти столбцов. Все элементы матрицы А являются вещественными числами. Матрица В состоит из двух строк и двух столбцов. Все элементы матрицы В являются целыми числами.

Пример. Составить программу, которая в матрице А(4,5) определит сумму элементов каждой строки, выберет среди этих сумм наи­большую и выведет на экран дисплея матрицу А, суммы строк, наибольшую сумму и номер строки с наибольшей суммой.

Программа.

var

А : array[1..4,1..5] of real; C, N, I, J : integer; max : real;

begin

writeln (‘Введите матрицу А(4,5)’);

for i:=1 to 4 do

for j:=1 to 5 do

begin

writeln (‘A(‘,i,’,’,j,’)=’); readln (a[i,j])

end;

for i:=1 to 4 do

begin

C:= 0;

for j:=1 to 5 do

C:= C + A[i,j];

writeln ('Строка № ',i:10, 'сумма элементов = ', C:10:2);

if i=1 then begin max:= C; n:= i end;

if c > max then begin max:= C; n:= I end

end;

writeln (‘Матрица А’);

for i:=1 to 4 do

begin

for j:=1 to 5 do

write (A[i,j]:8:3); writeln

end;

writeln (‘Максимальная сумма: ’,S:8:3);

writeln (‘Номер строки: ‘,N:3)

end.

Литература

1. Глушаков С. В. Персональный компьютер: Учеб. курс / С. В. Глушаков, И. В. Мельников. – Харьков; Ростов-на-Дону: Фолио: Феникс, 2000. – 520 с.

2. Информатика: Базовый курс, 2-е издание / Под ред. С. В. Симоновича.: Питер, 2007. – 640 с.

3. Кукарникова Т. Э. Информатика: Учеб. пособие. – Воронеж: Изд-во Воронеж. гос. ун-та, 2000. – 317 с.

4. Степаненко О. С. Персональный компьютер: Учеб. курс – 2-е изд. пересмотр. и доп. – М. и др.: Диалектика, 2001. – 383 с.

5. Левин А. Самоучитель Левина. Windows XP и Vista. – Спб.: Питер, 2008. – 624 с.

Учебное пособие

Груздев Владислав Николаевич

Информатика