Дано действительное число х. Получить квадратную матрицу порядка 10

@Нозим · Регистрация: 14.10.2014

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

1 x...x^8 x^9
x 0...0 x^8
.
. - ,середина заполняется нулями).
.
x^8 0...0 x
x^9 x^8...x 1

@vint-81 · 15.10.2014, 10:50

Pascal

const n=10;
var a:array[1..n,1..n] of real;
    i,j:integer;
    x,ch,ch1:real;
begin
randomize;
x:=1+random;
writeln('x=',x:0:2);
ch:=1;
for i:=1 to n do
 begin
  for j:=1 to n do
    begin
     a[i,j]:=0;
    end;
  ch:=ch*x
 end;
ch:=ch/x;
ch1:=1;
for i:=1 to n do
 begin
   a[1,i]:=ch1;
   a[i,1]:=a[1,i];
   a[n,i]:=ch;
   a[i,n]:=a[n,i];
   ch:=ch/x;
   ch1:=ch1*x;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
   if a[i,j]=0
    then write(a[i,j]:7:0)
    else write(a[i,j]:7:2);
  writeln;
 end;
readln
end.

@Нозим 0 / 0 / 0 Регистрация: 14.10.2014 Сообщений: 22
		1
	Дано действительное число х. Получить квадратную матрицу порядка 10 14.10.2014, 21:39. Показов 2283. Ответов 1 Метки нет (Все метки) 1 x...x^8 x^9 x 0...0 x^8 . . - ,середина заполняется нулями). . x^8 0...0 x x^9 x^8...x 1 0

Опции темы

Дано действительное число х. Получить квадратную матрицу порядка 10

Решение