Технический форум - Програмирование с использование функций и процедур

Цитата:

Сообщение от HaXaJI (Сообщение 273015)

В массивах А=(-5.2 ,8 ,1.3, -6) и В=(-4.7, -3, 2.6, 7, 13, -1)определить величины и номера максимальных элементов. Поиск максимального элемента оформить в виде под программы.

Код:

CONST

 A:ARRAY[1..4] of REAL=(-5.2 ,8 ,1.3, -6);

 B:ARRAY[1..6] of REAL=(-4.7, -3, 2.6, 7, 13, -1);

TYPE

 AR=ARRAY[1..10] of REAL;

VAR

 C:AR;

 Max_el:REAL;

 Imax,i:INTEGER;



PROCEDURE Find_Max(Af:AR;Nf:INTEGER; var Maxf:REAL; var I_f:INTEGER);

 VAR i:INTEGER;

 BEGIN

  Maxf:=Af[1];

  FOR i:=2 TO Nf DO

    IF Af[i]>Maxf THEN

     BEGIN

       Maxf:=Af[i];

       I_f:=i;

     END;

 END;



BEGIN

 FOR i:=1 TO 4 DO

   C[i]:=A[i];

 Find_Max(C,4,Max_el,Imax);

 Writeln('Max. value in array1 has elem. N ',Imax,' equal to ',Max_el:4:1);

 FOR i:=1 TO 6 DO

   C[i]:=B[i];

 Find_Max(C,6,Max_el,Imax);

 Writeln('Max. value in array2 has elem. N ',Imax,' equal to ',Max_el:4:1);

 ReadLn;

END.