Заполнить матрицу случайными числами,разместить на главной диагонали суммы элементов

@Madison · Регистрация: 10.11.2009

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

Заполнить матрицу случайными числами,разместить на главной диагонали суммы элементов,которые лежат на диагоналях,перпендикулярных к главной
P.S. (можно с пояснениями)

@Puporev · 11.11.2009, 14:56

Pascal

uses crt;
var a:array[1..20,1..20]of integer;
    n,i,j,c,sum,k,max,l,p:integer;
begin
clrscr;
randomize;
write('Введите размер матрицы n= ');
readln(n);
Writeln('Matrica:');
for i:=1 to n do
   begin
     for j:=1 to n  do
       begin
        a[i,j]:=random(10);
        write(a[i,j]:4);
       end;
     writeln;
   end;
for i:=1 to n do
for j:=1 to n do
if(j=i)and(j<=n-i+1) then{если на главной диагонали и выше побочной или на ней}
 begin
  sum:=0;
  for k:=1 to 2*i-1 do{квадрат с центром с этим элементом}
  sum:=sum+a[k,(2*i-k)];{сумма элементов побочной диагонали этого квадрата}
  a[i,i]:=sum;{пишем на главную}
 end
else if(j=i)and(j>n-i+1)then{если ниже побочной}
 begin
  sum:=0;
  for k:=n downto 2*i-n do{начинаем выбирать квадраты снизу}
  sum:=sum+a[k,2*i-k];
  a[i,i]:=sum;
 end;
writeln('Результат:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

@Madison · 17.11.2009, 19:31 **[ТС]**

Pascal

uses crt;
var a:array[1..20,1..20]of integer;
    n,i,j,c,sum,k,max,l,p:integer;
begin
clrscr;
randomize;
write('Введите размер матрицы n= ');
readln(n);
Writeln('Matrica:');
for i:=1 to n do
   begin
     for j:=1 to n  do
       begin
        a[i,j]:=random(10);
        write(a[i,j]:4);
       end;
     writeln;
   end;
for i:=1 to n do
for j:=1 to n do
if(j=i)and(j<=n-i+1) then{если на главной диагонали и выше побочной или на ней}
 begin
  sum:=0;
  for k:=1 to 2*i-1 do{квадрат с центром с этим элементом}
  sum:=sum+a[k,(2*i-k)];{сумма элементов побочной диагонали этого квадрата}
  a[i,i]:=sum;{пишем на главную}
 end
else if(j=i)and(j>n-i+1)then{если ниже побочной}
 begin
  sum:=0;
  for k:=n downto 2*i-n do{начинаем выбирать квадраты снизу}
  sum:=sum+a[k,2*i-k];
  a[i,i]:=sum;
 end;
writeln('Результат:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

Кто подскажет как добавить функции и процедуры к этой задаче?
P.S. Помогите сделать блок-схему к данной задаче?Заранее огромное спасибо!

@omenufa · 26.10.2010, 20:11

извиняюсь за некропостинг, можете этот код с паскаля на Си перевести?) или какой транслятор посоветуете?

@Madison 0 / 0 / 0 Регистрация: 10.11.2009 Сообщений: 18
		1
	Заполнить матрицу случайными числами,разместить на главной диагонали суммы элементов 10.11.2009, 18:51. Показов 2526. Ответов 3 Метки нет (Все метки) Заполнить матрицу случайными числами,разместить на главной диагонали суммы элементов,которые лежат на диагоналях,перпендикулярных к главной P.S. (можно с пояснениями) 0

@omenufa 1 / 1 / 0 Регистрация: 23.09.2010 Сообщений: 20
	26.10.2010, 20:11	4
	извиняюсь за некропостинг, можете этот код с паскаля на Си перевести?) или какой транслятор посоветуете? 0