Лабораторная работа №5 Тема: Составление программ с массивами
Цель работы: научиться обрабатывать одномерный массив
Оборудование рабочего места: Персональный компьютер, ОС, Pascal.
Краткие теоретические сведения
Понятие массива
Массив, в отличие от простой переменной, представляет собой не одно значение, а множество значений, объединенных одним именем. В языке Turbo Pascal все значения из этого множества должны иметь один и тот же тип.
Каждое из значений массива называется элементом массива.
Доступ к элементам массива производится посредством указания имени массива и номера элемента массива, заключенного в квадратные скобки.
Номер элемента массива называется индексом элемента массива.
Использование элемента массива не отличается от использования простой переменной, имеющей тот же тип, что и элемент массива.
В Turbo Pascal’е массив объявляется при помощи ключевого слова array, после которого в квадратных скобках указываются границы индексов – верхняя, а после двух точек нижняя. После квадратных скобок после ключевого слова of указывается тип элементов массива.
Пример определения массивов:
Var
A: Array [1..10] of integer; //массив A, состоящий из 10 элементов
целого типа с индексами от 1 до 10
B: Array [5..8] of real; //массив B, состоящий из 4 элементов
вещественного типа с индексами от 5 до 8
Прежде, чем работать с массивом, его нужно описать.
Вариант описания массива в разделе VAR
VAR
<имя массива1,имя массива2,…,имя массива n>: array [тип индекса] of <тип компонент>;
Пример: VAR A,B,C: array [1..20] of real;
Решение типового примера
Пример 5.1. Дан массив вещественных чисел х1,х2,…,хn. Найти максимальный элемент массива.
Пример 5.2. Элементам массива b присвоить значения элементов массива a.
program Project2;
const m=20;
type mas=array[1..m] of real; // описание типа одномерного массива
var a,b:mas; // описание переменных одномерного массива,
// массивы a и b – идентичные массивы
i:integer;
begin
for i:=1 to m do
a[i]:=0; // инициализация массива а
b:=a; // присваивание значений массива а массиву b
for i:=1 to m do
write(b[i]:3:1,' '); // вывод значений массива b
readln;
end.
Пример 5.3. Найти сумму элементов одномерного массива.
program Project3;
const m=10;
type m1=array[1..m] of real;
var a:m1; i:integer; s:real;
begin
s:=0;
for i:=1 to m do
begin
write('a[',i,']=');
readln(a[i]); // ввод значений массива a
s:=s+a[i];
end;
write('s=',s:3:1); // вывод результата
readln;
end.
Пример 5.4. Найти сумму и количество положительных и отрицательных элементов одномерного массива а.
program Project4;
const m=10;
type m1=array[1..m] of real;
var a:m1; i,kp,ko:integer; sp,so:real;
begin
sp:=0; kp:=0; so:=0; ko:=0;
for i:=1 to m do
begin
write('a[',i,']=');
readln(a[i]); // ввод значений массива a
if a[i]>0 then begin sp:=sp+a[i]; kp:=kp+1; end;
if a[i]<0 then begin so:=so+a[i]; ko:=ko+1; end;
end;
writeln('sp=',sp:3:1,' kp=',kp); // вывод суммы и количества положительных
//элементов
write('so=',so:3:1,' ko=',ko); // вывод суммы и количества отрицательных
// элементов
readln;
end.
Пример 5.5. Найти значение максимального элемента одномерного массива а.
program Project5;
const m=10;
type m1=array[1..m] of real;
var a:m1; i,kp,ko:integer; max:real;
begin
for i:=1 to m do
begin
write('a[',i,']=');
readln(a[i]); // ввод значений массива a
end;
max:=a[1];
for i:=1 to m do
if a[i]>max then max:=a[i];
writeln('max=',max:3:1); // вывод значения максимального элемента одномерного массива
readln;
end.
Порядок проведения работы
Составить и отладить программу в соответствии с вариантом
Вариант 1
Найти сумму отрицательных и произведение положительных чисел одномерного массива. Массив состоит из 10 элементов
Вариант 2
Найти среднее арифметическое всех положительных чисел одномерного массива. Массив состоит из 10 элементов.
Вариант 3
Определить количество положительных и количество отрицательных чисел одномерного массива. Массив состоит из 10 элементов
Вариант 4
Одномерный массив. Массив состоит из 10 элементов. Выводить на экран все элементы массива, превышающие число 5. Вывод элементов в форме столбца
Вариант 5
Преобразовать одномерный массив из 10 элементов, заменив все отрицательные числа на -1, а положительные на +1
Вариант 6
Определить количество положительных, количество отрицательных и количество нулевых чисел одномерного массива, состоящего из 10 элементов
Вариант 7
Дан одномерный массив из 10 элементов. Вывести на экран первый элемент массива, если его численное значение не равно численному значению ни одного из остальных элементов массива
Вариант 8
Одномерныемассивы А и В. Массив А состоитиз 5 элементов А = {7, -5, -2, 6, 8} и массив В состоитиз 5 элементов В = {0, -1, -1, 0, 0}. Вывести на экранмассив С, элементы котрого определяются как сумма соответствующих элементов массивов А и В.
Вариант 9
Дан одномерный массив из 10 элементов. Найти среднее арифметическое всех положительных чисел массива, значения которых не превышают числа 7 (если такие существуют)
Вариант 10
Дан одномерный массив из 10 элементов. Найти минимальное число массива и вывести его на экран
Вариант 11
Дан одномерный массив из 10 элементов. Определить есть ли среди элементов массива нулевые. Если есть, то определить их количество
Вариант 12
Дан одномерный массив из 10 элементов. Найти среднее арифметическое всех отрицательных элементов массива
Вариант 13
Дан одномерный массив из 10 элементов. Подсчитать количество положительных элементов массива
Вариант 14
Одномерный массив. Массив состоит из 10 элементов. Все отрицательные элементы массива , если такие существуют, заменить нулями
Вариант 15
Одномерный массив. Массив состоит из 10 элементов. Вывести на экран максимальный по абсолютной величине элемент массива
Содержание отчета
В отчете указать тему, цель работы, задание по варианту.
Блок-схема алгоритма и текст программы.
Выводы по проделанной работе.
Контрольные вопросы:
Что такое массив?
В каких случаях необходимо использовать массивы?
Что такое размерность массива?
Что такое размер массива?
Что такое элемент массива, индекс массива?
Какие типы данных могут использоваться в качестве индексов для массивов?
Как ввести массив чисел?