Составить программу для вычисления величины S по формуле

@Nikita45635 · Регистрация: 28.02.2023

Студворк — интернет-сервис помощи студентам

Помогите, пожалуйста, решить задачу.

Составить программу для вычисления величины S по формуле:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> S=\frac{\sum_{i=1}^{n}\sum_{j=1}^{m}\cos a_{ij}}{\prod_{k=1}^{L}\left(1+e^{-x_k} \right)}<br />$

@Cyborg Drone · 01.04.2023, 23:37

Pascal

const
  m = 6;
  n = 5;
  L = 7;
var
  a: array[1..n, 1..m] of real;
  x: array[1..L] of real;
  s: real;
  i, j, k: integer;
begin
  randomize;
  s := 0;
  writeln('Matrix A:');
  for i := 1 to n do
    begin
      for j := 1 to m do
        begin
          a[i,j] := 100 - 200 * random;
          write(a[i,j]:8:2);
          s := s + cos(a[i,j])
        end;
      writeln
    end;
  writeln('Vector X:');
  for k := 1 to L do
    begin
      x[k] := 100 - 200 * random;
      write(x[k]:8:2);
      s := s / (1 + exp(-x[k]))
    end;
  writeln;
  writeln('S = ', s);
  readln
end.

@Nikita45635 0 / 0 / 0 Регистрация: 28.02.2023 Сообщений: 16
		1
	Составить программу для вычисления величины S по формуле 26.03.2023, 17:39. Показов 210. Ответов 1 Метки нет (Все метки) Помогите, пожалуйста, решить задачу. Составить программу для вычисления величины S по формуле: $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> S=\frac{\sum_{i=1}^{n}\sum_{j=1}^{m}\cos a_{ij}}{\prod_{k=1}^{L}\left(1+e^{-x_k} \right)}<br />$ 0

Опции темы