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

@ТЫ как · Регистрация: 05.03.2020

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

$https://www.cyberforum.ru/cgi-bin/latex.cgi?{b}_{k}=(\prod_{i=1}^{n}\prod_{j=1}^{m}*(1+{e}^{cos{x}_{ij}}))/(sin({y}_{k}))$ где k=1,2....m.

@Puporev · 09.04.2020, 09:30

Pascal

uses crt;
var x:array[1..10,1..10] of real;
    y,b:array[1..10] of real;
    n,m,i,j,k:integer;
begin
randomize;
repeat
writeln('Введите размеры массива Х от 2 до 10');
readln(n,m);
until (n in [2..10])and(m in [2..10]);
writeln('Массив Х');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    x[i,j]:=3*random;
    write(x[i,j]:5:2);
   end;
  writeln;
 end;
 writeln('Массив Y');
 for k:=1 to m do
  begin
   y[k]:=3*random;
   write(y[k]:5:2);
  end;
 writeln;
 writeln('Массив B');
 for k:=1 to m do
  begin
   b[k]:=1;
   for i:=1 to n do
   for j:=1 to n do
   b[k]:=b[k]*(1+exp(cos(x[i,j])))/sin(y[k]);
   writeln(b[k]);
  end;
end.

@ТЫ как 0 / 0 / 0 Регистрация: 05.03.2020 Сообщений: 13
		1
	Составить программу для вычисления элементов одномерного массива по формуле 09.04.2020, 02:44. Показов 1141. Ответов 1 Метки нет (Все метки) $https://www.cyberforum.ru/cgi-bin/latex.cgi?{b}_{k}=(\prod_{i=1}^{n}\prod_{j=1}^{m}*(1+{e}^{cos{x}_{ij}}))/(sin({y}_{k}))$ где k=1,2....m. 0

Опции темы

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

Решение