Вычислить значение выражения

@sportikxxx · Регистрация: 24.10.2012

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

Дано натуральное число n.

@Puporev · 18.11.2012, 10:59

Pascal

uses crt;
const nmax=10;
var a:array[1..nmax,1..nmax] of real;
    n,i,j:byte;
    x:real;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if i<j then a[i,j]:=sin(i+j)
    else if i=j then a[i,j]:=1
    else
     begin
      x:=(i+j)/(2*i+3*j);
      a[i,j]:=arctan(x/sqrt(1-x*x));
     end;
    write(a[i,j]:7:3);
   end;
  writeln;
 end;
readln
end.

@sportikxxx 0 / 0 / 0 Регистрация: 24.10.2012 Сообщений: 9
		1
	Вычислить значение выражения 18.11.2012, 10:18. Показов 1057. Ответов 1 Метки нет (Все метки) Дано натуральное число n. Миниатюры 0

	18.11.2012, 10:59

Опции темы

Вычислить значение выражения

Решение