Читайте также:
|
|
a (8) = 93
В разделе определения констант задан размер массива n = 15. В разделе описания переменных объявлен массив с именем a. Тип индекса — ограниченный, тип элементов — integer. В этом же разделе описаны переменные: amax — максимальный элемент; pn — порядковый номер максимального элемента в массиве; i — параметр цикла. Эти переменные описаны как переменные типа integer.
Для ввода элементов массива используется цикл с оператором for. Оператором writeln (‘введите через пробел 15 чисел’); объявляется диалоговый режим ввода чисел.
Подготовка цикла заключается в задании начальных значений переменных amax и pn. В качестве начального значения возможного максимума принимается значение первого элемента массива a, в качестве порядкового номера максимального элемента — значение 1.
Поиск максимума начинается со сравнения второго элемента массива с первым, принятым в качестве максимума, поэтому в качестве начального значения параметра цикла взято i = 2.
В теле цикла значение очередного элемента сравнивается с возможным максимальным с помощью оператора if … then. Если значение очередного элемента больше возможного максимального, то значение этого элемента присваивается переменной amax, а номер элемента — переменной pn. Если условие, записанное в операторе if, не выполняется, то пропускается группа операторов: amax:= a[i]; pn:= [i].
Выполнение цикла заканчивается после просмотра всех элементов массива.
Для вывода на экран максимального элемента последовательности используются операторы writeln, в список переменных которых включены строки символов для комментария выводимой информации и переменные pn и amax.
Пример 6. Задан массив вещественных чисел, состоящий из десяти элементов. Требуется ввести четные элементы этого массива. Программа имеет вид:
Program mas;
var i: integer;
a: array [1..10] of real;
begin
writeln (‘ ввести массив (1..10) ’);
for i:= 1 to 10 do;
read (a [i]);
i:=0;
repeat
i = i + 2;
write (a[i]: 5: 2);
unitil i>10;
end.
Учебно-методическое издание
Составители:
БАСОВА Алина Викторовна
СМИРНОВА Ольга Валентиновна
ДЕМЧУК Галина Викторовна
ОПЕРАТОРЫ ЦИКЛА В ЯЗЫКЕ ПРОГРАММИРОВАНИЯ ПАСКАЛЬ
Методические указания к практической работе
по дисциплине «Информатика»
для студентов I курса всех специальностей очной формы обучения
Ответственный за выпуск
зав. кафедрой «Прикладная математика и вычислительная техника»
д-р техн. наук, профессор Ю.О. Чернышев
_____________________________________________________________________________
Подписано в печать _____ Формат 60×84/16
Бумага офсетная. Объем 0,93 усл.п.л., 0,8 уч.-изд.л.
Заказ № _________ Тираж 50 экз.
_____________________________________________________________________________
Редакционно-издательский отдел РГАСХМ ГОУ
344023, г. Ростов-на-Дону, ул. Страны Советов, 1
Отпечатано в копировально-множительном бюро РГАСХМ ГОУ
Дата добавления: 2014-12-19; просмотров: 32 | Поможем написать вашу работу | Нарушение авторских прав |