Методические рекомендации и указания (стр. 4 )

Процедура CONTINUE вызывает прекращение текущей итерации

(выполнения) ближайшего охватывающего цикла и переход к анализу конца

цикла и выполнению следующей итерации.

Литература.

1. Фаронов В.В. «Turbo Pascal 7.0», М., Издательство «Нолидж», 1997

2. Марченко А.И. «Программирование в среде Turbo Pascal 7.0» Учебное

пособие, Киев, «Век+»,1998

3. Бурин Е.А. «Программирование на языке Турбо-Паскаль», Учебное

пособие, Алматы, АГУ,2000

4. Немнюгин С.А. TURBO PASCAL, СПб, Питер, 2000

5. Попов В.Г. . «Turbo Pascal 7.0», М., Финансы и статистика, 1998

6. Абрамов С.А., Зима Е.В. «Начало программирования на языке

Паскаль», М., Наука,1987

7. Программирование на языке Паскаль./Под редакцией УСКОВОЙ О.Ф.

–СПб, Питер, 2002

Лабораторная работа №5.

ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ.

Цель: овладение практическими навыками работы с массивами,

особенностями их ввода и вывода, приобретение дальнейших навыков по

организации программ циклической структуры с использованием приемов

программирования.

Материалы и оборудование: ПК, среда Turbo Pascal, методические указания к

лабораторным работам.

Содержание и порядок выполнения работы:

1. Повторить теоретический материал по данной теме.

В общем случае массив – это структурированный тип данных, состоящий

из фиксированного числа элементов, имеющих один и тот же тип.

Название регулярный тип (или ряды) массивы получили за то, что в них

объединены однотипные (логически однородные) элементы, упорядоченные

(урегулированные) по индексам, определяющим положение каждого элемента

в массиве.

Элементами массива могут быть данные любого типа, включая

структурированные. Тип элементов массива называется базовым.

Особенностью языка Паскаль является то, что число элементов массива

фиксируется при описании и в процессе выполнения программы не меняется.

Элементы, образующие массив, упорядочены таким образом, что

каждому элементу соответствует совокупность номеров (индексов),

148

определяющих его местоположение в общей последовательности. Доступ к

каждому отдельному элементу осуществляется путем индексирования

элементов массива. Индексом может быть произвольное выражение

порядкового типа, заключенное в квадратные скобки. Допустимый диапазон

индексов определяется в описании массива. Если в описании массива задан

один индекс, массив называется одномерным. Одномерный массив

соответствует понятию линейной таблицы (вектора). Одномерные массивы

обычно используются для представления векторов.

Для работы с массивами как единым целым используется идентификатор

массива без указания индекса в квадратных скобках. Массив может участвовать

только в операциях «равно», «не равно» и в операторах присваивания.

Массивы, участвующие в этих действиях должны быть идентичны по

структуре, т.е. иметь одинаковые типы индексов и одинаковые типы

компонентов.

Элементы массива могут стоять как в левой части оператора

присваивания, так и в выражениях. Над элементами массива можно

производить те же операции, которые допустимы для данных его базового типа.

Если базовый тип есть integer, то допустимы все операции над данными целого

типа, включая и стандартные функции.

2. Разобрать пример выполнения работы:

Найти наибольший элемент массива A1, ....,An и его порядковый номер (n<=30).

Алгоритм выполнения примера. При выполнении задания необходимо использовать

прием нахождения наибольшего. Для этого перед циклом следует задать начальное

значение наибольшего, равное первому элементу массива; в том случае, если текущий

элемент больше наибольшего и предыдущих, то считать его наибольшим. Для

нахождения порядкового номера наибольшего элемента массива необходимо перед

циклом задать его начальное значение, равное 1, а в цикле всякий раз, когда текущий

элемент массива больше наибольшего, считать номером наибольшего номер текущего

элемента массива.

Program max_element;

uses crt;

const n=10;

a=array[1..n] of integer=(5, 7, 9, 3, -8, -74, 6, -23, 0, 4 );

var i, max, nom_max : integer;

begin

clrscr;

max:=a[1]; nom_max:=1;

for i:=2 to 10 dо

if a[i]>max then begin max:=a[i]; nom_max:=i end;

writeln(‘max=’, max:4, ‘nom_max=’, nom_max)

end.

3. Внимательно прочитать условие задачи.

4. Составить алгоритм решения задачи согласно варианта.

5. Реализовать алгоритм на языке Turbo Pascal.

149

ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОГО ВЫПОЛНЕНИЯ

1. Вычислить сумму и количество элементов массива Х, удовлетворяющих

условию 0<=Xi.

2. Вычислить среднее арифметическое значение элементов массива А.

3. Переписать элементы массива Х, удовлетворяющие условию -1<=Xi<=1, в

массив Y и подсчитать их количество.