ReqVieM
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
KpocaB4er16
Что значить удалить элементы главной диагонали? Если просто обнулить то вроде все работает, иначе разъясни... Возможно не самый оптимальный код, но думать вечером после учебы уже не могу(((
Код:
Uses Crt;
Var
Matrica: array [1..5,1..5]of Integer;
I,j,Min:Integer;
BEgin
Randomize;
Clrscr;
{Sozdaem matricu i vyvodim ee}
Writeln('Tekusha9 matrica:');
For i:=1 to 5 do
Begin
For j:=1 to 5 do
Begin
Matrica[j,i]:=Random(50)+1;
Write(Matrica[j,i],' ');
End;
Writeln;
End;
wRITELN;
{Ishim minimalnyi na glavnoi diagonali}
Min:=Matrica[1,1];
For i:=2 to 5 do
if min>Matrica[i,i] then Min:=Matrica[i,i];
Writeln('Min glavnoi diagonali - ',Min);
{Ishim Minimalnyi na pobochnoi diagonali}
j:=5;
Min:=Matrica[1,J];
For i:=0 to 4 do
Begin
IF Min > Matrica [i+1,J-i] then Min:=Matrica[i+1,J-i];
end;
Writeln('Min Pobochnoi diagonali - ',Min);
{Obnul9em elemety glavnoi diagonali}
wRITELN;
For i:=1 to 5 do
Matrica[i,i]:=0;
{Vyvodim obrabotanuu matricu}
Writeln('matrica s obnulenymi elementami:');
For i:=1 to 5 do
Begin
For j:=1 to 5 do
Write(MAtrica[j,i], ' ');
Writeln;
End;
Readln;
End.
|
Извиняюсь в выводе обработанной матрицы индексы перепутал исправил уже, а если элементы главной диагонали надо удалять, то это так делается:
Код:
For i:=1 to 5 do
For j:=i to 4 do
Matrica[j,i]:=Matrica[j+1,i];
|
|
Всего записей: 24 | Зарегистр. 05-07-2007 | Отправлено: 17:50 13-09-2007 | Исправлено: ReqVieM, 18:03 13-09-2007 |
|
