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

UptoLike

ВУЗ: 

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

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

Рубрика: 

167
function NewString(const S: integer):integer;
Параметр-константу нельзя передавать в другую подпрограмму в
качестве фактического параметра.
Пример 9.6. Функция вычисления первого нулевого элемента
массива с использованием в качестве параметра параметр-константу
размер массива и его элементы определяются датчиком случайных
чисел.
Program NoolevoiElement;
Type
tArr=array[1..15] of Integer;
Var
Massiv : tArr;
Ma,Number,K ,X : Byte;
Function Nool(const Mas : tArr; N: Byte): Byte;
Var
i: Byte;
begin
Nool:=0;
for i := 1 to N do
if Mas[i]=0 then
begin
Nool := i;
Exit; {выход из подпрограммы}
end else Ma := Ma +1; {Ma-глобальный параметр}
end;{Nool}
Begin
randomize;
K := random(10) + 1;
writeln(' размер массива : ',K);
write(' элементы массива :');
for x := 1 to K do
begin
Massiv[x] := random(100);
write(' ',massiv[x]);
end;
Ma := 0;
Number := Nool(Massiv,K);
if Ma = K then writeln(' нулевого элемента в массиве
нет') else
writeln(' первый нулевой элемент в массиве с номером ',Number);
End.

Страницы