Лабораторная работа 6

Цель работы:

1. Усвоить правила работы с переменными типа массив языка программирования Паскаль.

2. Научиться составлять алгоритмы и программы для обработки одномерных массивов.

Краткие сведения из теории

Под массивом понимается упорядоченная совокупность конечного числа данных одного типа, об"единенных под общим именем. Имена массивов образуются так же, как и имена простых переменных. Одномерный массив называется вектором. Для описания массивов используется служебное слово array. Массив в Турбо-Паскале можно описывать двумя способами:

а) в разделе описания переменных VAR:

var

<имя переменной>: array [тип индекса] of <тип компоненты>;

б) определить сначала тип, а затем описать массив этим типом

type

<имя типа>: array [тип индекса] of <тип компоненты>;

var

<имя переменной>: <имя типа>;

где <тип индекса> - порядковый тип;

<тип компоненты> - любой тип.

ПРИМЕР 1: В векторе найти номера и значения первого минимального и последнего максимального элементов.

П Р О Г Р А М М А

program min_and_max;

const n1=100;

var a: array [1.. n1] of real;

n,i,nmin, nmax: integer;

amin, amax: real;

begin

writeln ('n=');

readln (n);

writeln ('Вводите элементы вектора');

for i:=1 to n do

readln (a[i]);

amin:=a[1]; nmin:=1;

amax:=a[1]; nmax:=1;

for i:=1 to n do

begin

if a[i] < amin then

begin

amin:=a[i]; nmin:=i

end;

if a[i] >= amax then

begin

amax:=a[i]; nmax:=i

end

end;

writeln ('min=', amin:8:3,',nmin=', nmin:3);

writeln ('max=', amax:8:3,',nmax=', nmax:3);

end.

ПРИМЕР 2: Создать массив из N случайных целых чисел, равномерно распределенных в диапазоне от 0 до 100. Вычислить среднее арифметическое этих чисел.