Заданы массивы B(5),H(8),U(70,S(10).Составить подпрограмму определения минимального,максимального элементов массива и их индексов.С помощью подпрограммы найти минимальный,максимальный элемент каждого из массивов, а также их индексы — Pascal(Паскаль)

Bi=sin(i+0.5)+cos(i-2.9)
Hj=sin(j-1.4)+cos(j+3.7)
Uk=sin(k+2.2)+cos(k+7/8)
Sn=sin(n-4.3)+cos(n+9.2)

uses
  Crt;

procedure Writing(var a:array of real; const v1,v2:real);
var
  i:integer;
begin
  for i:=0 to High(a) do
    a[i]:=sin(i+1+v1)+cos(i+1+v2)
end;

procedure Print(a:array of real; ch:char);
var
  i:integer;
begin
  Writeln('- ',ch,':');
  for i:=0 to High(a) do
    Write(a[i]:0:2,' ');
  WriteLn
end;

function FindMin(a:array of real):integer;
var
  i,min:integer;
begin
  min:=0;
  for i:=1 to High(a) do
    if a[i]<a[min] then
      min:=i;
  FindMin:=min+1
end;

function FindMax(a:array of real):integer;
var
  i,max:integer;
begin
  max:=0;
  for i:=1 to High(a) do
    if a[i]>a[max] then
      max:=i;
  FindMax:=max+1
end;
var
  B: array [1..5] of real;
  H:  array [1..8] of real;
  U:  array [1..7] of real;
  S: array [1..10] of real;

begin
  Writing(B,0.5,-2.9);
  Writing(H,-1.4,3.7);
  Writing(U,2.2,7/8);
  Writing(S,-4.3,9.2);
  Print(B,'B');
  Print(H,'H');
  Print(U,'U');
  Print(S,'S');
  WriteLn('B[',FindMax(B),'] -  B[',FindMin(B),'] - ');
  WriteLn('H[',FindMax(H),'] -  H[',FindMin(H),'] - ');
  WriteLn('U[',FindMax(U),'] -  U[',FindMin(U),'] - ');
  WriteLn('S[',FindMax(S),'] -  S[',FindMin(S),'] - ');
  ReadLn
end.

Похожие записи/страницы:

Leave a Comment

9 + 1 =