Лабораторная работа 5. Write(' Vvedite kolichestvo elementov massiva a ')

Циклы с внутренними ветвлениями

 

Цель работы: формирование умений и навыков в разработке циклических программ с внутренними ветвлениями.

 

Что нужно знать для выполнения работы

 

1. Структуру цикла, назначение и порядок следования его отдельных частей.

2. Операторы цикла и условные операторы.

3. Описание и использование одномерных массивов.

Примеры выполнения задания лабораторной работы

Пример 1. Составьте программу нахождения наибольшего элемента данного массива а с указанием его номера.

Решение. Основная часть цикла – нахождение наибольшего из просмотренных элементов массива и очередного. Для нахождения наибольшего из всех элементов достаточно в блоке подготовки цикла положить наибольший элемент, равным а ₁, а затем повторить цикл, изменяя номер элемента массива от 2 до n с шагом 1 (рис. 5.1).

 

 

 

Рис. 5.1. Схема алгоритма программы

Текст программы

 

program lr5_1_1;

{ Нахождение наибольшего элемента массива с указанием его номера }

{ $APPTYPE CONSOLE }

Uses

SysUtils;

Const

max n =100;

Var

n, i, nommax: integer;

max a: real;

a: array [1..max n ] of real;

Begin

write(' Vvedite kolichestvo elementov massiva a ');

readln(n);

writeln('Vvedite elementi massiva a ');

for i: =1 to n do

Begin

write('a [ ', i, ' ] = ');

readln(a [ i ]);

end;

max a: = a [1];

nommax: =1;

for i: =2 to n do

If maxa< a[i] then

Begin

max a: = a [ i ];

nommax: = i;

end;

writeln(' Massiv a ');

for i: =1 to n do

write(a [ i ]: 8: 2);

writeln;

writeln(' Naibolshiy element a [ ', nommax, ' ] =', max a: 8: 2);

readln;

end.

 

Возможен и другой подход к решению данной задачи. В цикле находится номер наибольшего, а за циклом и сам элемент по его номеру. Приведем только текст программы.