Алгоритмы и программы. Афанасьева Т. В - 163 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

163
заголовке подпрограммы нельзя использовать структурный тип, например,
описание массива или записи.
Например, нельзя писать:
function Max(A: array[1..100] of Real): Real;
Чтобы правильно записать этот заголовок, следует в основной
программе ввести тип-массив, а затем использовать его в заголовке:
type tArr = array[1..100] of Real;
function Max(A: tArr): Real;
Пример 9.3. Функция вычисления максимального элемента массива,
размер массива и его элементы определяются датчиком случайных чисел.
Program Maxelement;
Type
tArr=array[1..100] of Integer;
Var
Massiv : tArr;
Maxim : Integer;
K ,X : Byte;
Function Max(Mas : tArr; N: Byte): Integer;
Var Ma : Integer;
i : Byte;
Begin
Ma := Mas[1];
for i := 2 to N do
if Ma < Mas[i] then
Ma := Mas[i];
Max := Ma;
End;{Max}
{**************************************}
Begin
randomize;
k := random(10) + 1; {размер массива}
write('
элементы массива :');
for x := 1 to K do
begin
Massiv[x] := random(100);
write(' ',massiv[x]);
end;

Страницы