Matice – Pascal – Fórum – Programujte.com

Potřeboval bych poradit,jak vytvořit čtvercovou matici a musí být v hlavní diagonále samé jedničky a nad ní samé nuly a pod ní samé dvojky.Popřípadě by se mi ještě hodila informace,jak vytvořit matici,aby se hodnoty střídaly pravidelně,jako na šachovnici.

No matici bych si vytvořil jako dvojrozměrný pole integerů. Hlavní diagonálu jednoduše nastavíš for cyklem
v Javě je to takhle(snad to z toho pochopíš) nejsem pascalista:

int [][] matice = new int[velikost][velikost];

for(int i =0;i<matice.length;i++){

	matice[i][i] = 1;

}

to prvni 2 cykly:
for i:=1 to max do
for j:=1to max do
if i=j then A[i,j]:=1 else if i<j then A[i,j]:=0 else A[i,j]:=2;
Bud si na diagonale a tedy 0, jinak kdyz si nad ni 1 a ve zbylych pripadech si pod ni a tedy 2.
Ta sachovnice je takovy figl z vyssi divci if ((i+j) mod 2=0) then A[i,j]:=1 else A[i,j]:=0 . Podivej se na matici a poscitej indexy, soucet bude skakat jako na sachovnici, sude, liche.

Pole mam teda nastavit [1..max]?

Ale vlastně to řešení vypadá docela jednoduše,průser je,že ve škole na to sám nikdy nepřijdu,napíšu maximálně pár řádků.Blbý je taky to,že já teoreticky vím jak by to mělo vypadat,jenom to nedokážu přeložit do programovacího jazyka.

To alda66 : Psal sem to pro ctverec, ale obdelnik jde taky, 1..max,1...max2 bude fungovat.

Jasný pochopil jsem,už mi to funguje,ještě bych ale chtěl,aby mi to Pascal vypsal v podobě matice,zatím jsem to zvládl jenom jako jeden sloupec nebo jeden řádek,no budu zkoušet dál

To alda66 : To se udela take 2 cyklama vypisuj s write a az se dostanes na konec radku v matici tak dej writeln aby se udelal novy radek.

To jsem udělal ale všechny čísla mi to naházelo do jednoho sloupce

Není možný. Udělej něco podobného...

    for i:=1 to max do



     begin

	for j:=1 to max do

		begin

			write(' ' ,M[i,j]:3);

		end;



     writeln (' ');

     end;