Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 85 стр.

UptoLike

ВУЗ: 

КамчатГТУ | Петропавловск-Камчатский

Составители: 

Рубрика: 

End; {5}
TextColor (Red);
{Обращение к процедуре Max1 для поиска максимально-
го элемента и его номера в массиве
в}
Max1 (b, k, max, nmax);
WriteLn ('max = ', max: 4: 2, 'nmax = ', nmax: 4);
WriteLn ('Нажмите любую клавишу');
ReadKey;
End. {3}
Протокол работы программы. Введите размер массивов:
4
a [1] = 0.00
a [2] =
7.00
a [3] = 1.00
a [4] =
6.00
max = 7.00 nmax = 2
b [1] =
2.00
b [2] =
15.00
b [3] = 27.00
b [4] =
25.00
max = 27.00 nmax = 3
Пояснения к программе. Решение этой задачи мы начали
с написания процедуры поиска максимального элемента и
его номера в массиве, которой присвоили имя Max1. У этой
процедуры имеем 4 параметра:
– параметры – значения: массив х и его размер L (тип
Integer). Для указания типа массива необходимо ввести но-
вый тип данных (назовем его Vector);
– параметры – переменные: rmax (в ней возвращается
максимальный элемент массива х) типа Real и n (номер мак-
симального элемента в массиве) типа Integer.
Заголовок процедуры выглядит так:
Procedure Maxl (x: Vector; L: Integer; Var rmax: real; Var n:
Integer);
В головной программе мы вводим размер массивов k,
заполняем значениями массив а с помощью датчика слу-
чайных чисел, обращаемся к процедуре поиска максимума,
распечатываем значения массива (желтым цветом). Затем
выводим максимальный элемент массива а и его номер
85
     End; {5}
     TextColor (Red);
     {Обращение к процедуре Max1 для поиска максимально-
го элемента и его номера в массиве в}
     Max1 (b, k, max, nmax);
     WriteLn ('max = ', max: 4: 2, 'nmax = ', nmax: 4);
     WriteLn ('Нажмите любую клавишу');
     ReadKey;
     End. {3}
     Протокол работы программы. Введите размер массивов: 4
     a [1] = 0.00
     a [2] = 7.00
     a [3] = 1.00
     a [4] = 6.00
     max = 7.00 nmax = 2
     b [1] = 2.00
     b [2] = 15.00
     b [3] = 27.00
     b [4] = 25.00
     max = 27.00 nmax = 3
     Пояснения к программе. Решение этой задачи мы начали
с написания процедуры поиска максимального элемента и
его номера в массиве, которой присвоили имя Max1. У этой
процедуры имеем 4 параметра:
     – параметры – значения: массив х и его размер L (тип
Integer). Для указания типа массива необходимо ввести но-
вый тип данных (назовем его Vector);
     – параметры – переменные: rmax (в ней возвращается
максимальный элемент массива х) типа Real и n (номер мак-
симального элемента в массиве) типа Integer.
     Заголовок процедуры выглядит так:
     Procedure Maxl (x: Vector; L: Integer; Var rmax: real; Var n:
Integer);
     В головной программе мы вводим размер массивов k,
заполняем значениями массив а с помощью датчика слу-
чайных чисел, обращаемся к процедуре поиска максимума,
распечатываем значения массива (желтым цветом). Затем
выводим максимальный элемент массива а и его номер
                                85

Страницы