[Sempai]

необходимо сделать с подпрограммой функции
найти f=((tgX^2)+(Sin^3)X)/(e^-y)-ln|y| где X и Y- значение минимальный элементов массивов A[N] и B[M] соответственно

Прошу у умных людей помощи т.к сам глупый

[lmikle]

Ну. например, так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

program Project1;   {$APPTYPE CONSOLE}   {$R *.res}   uses   System.SysUtils, Math;   function f(x, y : integer) : double; begin   result := (sqr(tan(x))+sqr(sin(x))*sin(x)) / (exp(-1*y)-ln(abs(y))); end;   function getmin(a : array of integer) : Integer; var   i : integer; begin   result := a[low(a)];   for i := low(a)+1 to high(a) do     if a[i] < result then result := a[i]; end;   procedure randomizearray(var a : array of integer); var   i : integer; begin   for i := low(a) to high(a) do     a[i] := random(100); end;   var   a, b : array of integer;   res : double;   m_a, m_b : integer;   begin   randomize;   try     // create arrays     setlength(a,random(100));     setlength(b,random(100));     randomizearray(a);     randomizearray(b);       // find the result     m_a := getmin(a);     m_b := getmin(b);     res := f(m_a,m_b);     writeln(format('f(%d,%d)=%f',[m_a,m_b,res]));   except     on E: Exception do       Writeln(E.ClassName, ': ', E.Message);   end;   readln; end.

[Sempai]

Огромное спасибо