Составить программу для вычисления элементов матрицы Y по известным элементам вектора X

@Zupakin · Регистрация: 15.12.2019

@ZX Spectrum-128 · 24.12.2019, 09:06

Pascal

const
  n = 5;
 
var
  a: array[1..n, 1..n] of real;
  x: array[1..n] of real;
  i, j: integer;
 
begin
  writeln('Вектор Х: ');
  for i := 1 to n do
  begin
    x[i] := random * n;
    write(x[i]:8:2);
  end;
  writeln;    
  writeln('Матрица А:');      
  for i := 1 to n do  
  begin
    for j := 1 to n do  
    begin
      if sin(x[i]) > sin(x[j]) then
        a[i, j] := ((x[i] - x[j]) / x[j]) * sin(x[j])
      else
        a[i, j] := x[i] * exp(sqr(x[i] - x[j]));
      write(a[i, j]:12:2)
    end;  
    writeln;
  end;
end.

@Zupakin 0 / 0 / 0 Регистрация: 15.12.2019 Сообщений: 8
		1
	Составить программу для вычисления элементов матрицы Y по известным элементам вектора X 23.12.2019, 21:27. Показов 322. Ответов 1 Метки нет (Все метки) Составить программу для вычисления элементов матрицы Y по известным элементам вектора X Миниатюры 0

Опции темы