Лабораторная работа №4
“Обработка одномерных массивов”
Цель работы: Освоение методов обработки одномерных массивов, разработки алгоритмов, построения и отладки программ, ввода и вывода на печать одномерных массивов.
1. Теоретическая часть
1.1. Описание одномерных массивов в языке программирования Pascal.
Массивы могут объявляться непосредственно в разделе описания переменных var, а могут через раздел описания типов type.
1. В разделе var:
var a:array[Iн..Iк] of тип;
Где:
array и of – служебные слова;
а – идентификатор массива;
Iн, Iк – начальное и конечное значение индексов массива;
тип – указание на любой стандартный или нестандартный тип, которому будут принадлежать элементы массива.
Например:
Var
x,y:array[1..100] of real;
k1:array[8..15]of integer;
2. В разделе Type:
В этом случае сначала в разделе type вводится новый нестандартный тип, который соответствует конкретному массиву, а затем в разделе var объявляется массив, который принадлежит новому введенному типу.
Например:
Type
massiv=array[1..10] of real;
Var
a,b:massiv;
Где:
masiv – имя нового типа;
a, b – имена массивов типа massiv (т.е. массивов размерностью 10, элементами которых являются вещественные числа).
Обращение к элементам массива в программе происходит по индексу, например:
X[i]
X[2]
X[3+i*5]
1.2 Пример составления алгоритма и программы на языке Pascal для обработки одномерного массива.
Задание:
Дан массив действительных чисел А из 20 элементов. Определить m = (amax + amin)/100.
Решение.
Для обработки массива A сначала необходимо ввести его элементы. Выполним ввод элементов массива с клавиатуры. Для обозначения размерности массива A введем переменную N. После ввода всех элементов массива для наглядности выведем их на экран.
Для определения числа m сначала в одном цикле выполним поиск максимального и минимального элемента массива, а затем после цикла найдем величину m и выведем ее значение на экран.
Описание массива выполним в разделе описания типов Type.
1.2.1 Блок-схема алгоритма решения данной задачи выглядит следующим образом:
1.2.2 Текст программы на языке Pascal выглядит следующим образом:
Program primer4;
Const N=30;
Uses crt;
Type
massiv=array[1..N] of real;
Var
i: byte;
A:massiv;
m, Amax, Amin:real;
Begin
clrscr;
writeln (‘Введите элементы массива ‘);
for i:=1 to N do read(A[i]);
clrscr;
for i:=1 to N do write(A[i]:8:2);
Amax:=-10000;
Amin:=10000;
for i:=1 to N do
begin
if A[i] > Amax then Amax:=A[i];
if A[i] < Amin then Amin:=A[i];
end;
m:=(Amax + Amin)/100;
writeln (‘m=‘,m:8:2);
readkey;
end;
2. Практическая часть
2.1 Требования к выполнению работы:
Составить блок-схему алгоритма и программу для решения индивидуального задания.
Предусмотреть вывод на печать исходных массивов, подробных конечных результатов. При необходимости возможен вывод также промежуточных результатов.
Значения элементов массивов задавать с помощью генератора случайных чисел или путем ввода с клавиатуры (в соответствии с индивидуальным заданием).
Порядок выполнения работы.
1. Выполнить анализ задания, сформулировать постановку задачи.
2. Составить блок-схему алгоритма.
3. Составить программу на языке Pascal. Предусмотреть ввод исходных данных и вывод результатов на экран.
4. Выполнить проверку работоспособности программы на различных исходных данных.
5. Выполнить анализ полученных результатов.