Составить программу для вычисления заданного математического выражения на основе реализации указанной функции

[dastreba]

Хелп пж,а то даже понятия не имею что да как.
Это все 1 задание.
1. Составить программу для вычисления заданного математического выражения на основе реализации указанной функции
2. Разработать и реализовать процедуру обработки элементов массива

Это для:
Пункт-1

1.выражение
2.функция
Безымянный (1).png
Составить программу для вычисления заданного математического выражения на основе реализации указанной функции

Пункт-2

Процедура должна определить среднее арифметическое значение и
количество положительных элементов одномерного массива с n целых
элементов

[Аватар]

Вы не перепутали "помогите" и "сделайте за меня"?

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

1

function cth(p:real):real;
begin
   Result:=(Exp(p)+Exp(-p))/(Exp(p)-Exp(-p));
end;

var a,b,x,y:real;
begin
   Write('a = '); Readln(a);
   Write('b = '); Readln(b);
   Write('x = '); Readln(x);
   Write('y = '); Readln(y);
   y:=(cth(a*x)+cth(b*y))/Sqrt(Sqr(cth(b*y))+Sqr(cth(a*x)));
   Writeln(y:5:8);
   Readln;
end.

2

const n=10;

procedure mmm(p:array of integer; var sr:real; var c:integer);
var i:integer;
begin
   sr:=0;
   c:=0;
   For i:=0 to n-1 do
   begin
      sr:=sr+p[i];
      If p[i]>0 then
         c:=c+1;
   end;
   sr:=sr/n;
end;

var p:array[0..n-1] of integer;
    i,c:integer;
    sr:real;
begin
   Randomize;
   For i:=0 to n-1 do
   begin
      p[i]:=-10+Random(21);
      Write(p[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   mmm(p,sr,c);
   Writeln(sr:1:2,'   ',c);
   Readln;
end.

[dastreba]

1-вый пункт я лично сделал вот так-

function cth(x: real): real;
begin
  cth := (exp(x) + exp(-x)) / (exp(x) - exp(-x));
end;
 
var
  f, x, y, a, b: real;
 
begin
  readln(a, b, x, y);
  f := (cth(a * x) + cth(b * y)) / (sqrt(sqr(cth(b * y)) + sqr(cth(a * x))));
  writeln(f);
end.

Но спасибо большое.

[newerow1989]