Egy tömbben megadott elemeket miként lehet átrakni mátrixba úgy, hogy a program figyeljen rá: hány elemet adtak meg és ha kevesebbet mint amivel a mátrixot ki lehetne tölteni akkor ne tegye bele?

Köszönöm szépen a megoldást.

Ha statikusan hagynánk a mátrixot, akkor mi lenne a megoldás? (hogy figyelembe vegye, ha például a tömb akkora lenne, hogy a mátrix elemeinek háromszorosát adnák meg, valamint még 2-3 értéket, ekkor a mátrixba bepakolna először annyi számot amennyi a tömbbe belefér, majd kiírná a mátrixot, readln-vel megállna, utána enterre mégegyszer bepakolná a számokat (a következő pozíciótól kezdve), ugyanúgy kiírná.

Harmadszor pedig ugyanígy, de észlelné, hogy negyedszer már nem lehet bepakolni...

Működne még akkor is, ha a mátrix elemeinek sokszorosa (és még egy kicsi, ami már nem fér be) található a tömbben.

Mik kellenek nekem ahhoz hogy ezt meg tudjam oldani?

Ok, leírom pontosabban, hogy mit is szeretnék.

Adott a tömb a példaprogramban, amelybe számokat lehet megadni.

Az egyszerűség kedvéért a mátrix legyen egy 3x3-as mátrix.

Ha a tömbnek megadunk például harminc elemet, akkor azt szeretném megoldani, hogy:

fogja, átpakolja az 1-9 számokat a mátrixba és kiírja a mátrixot.

Ezután mégegyszer bepakolja, de már a tömb következő pozíciójától...

Érzékelné a program, hogy negyedszer már nem tudja bepakolni (30 elem esetén) és negyedszer már nem pakolná be...

Így érthető?

program Tomb_Matrix;

Const

sor=3;

oszlop=3;

var

t : array [0..60] of Integer;

m : array [1..3,1..3] of Integer;

i,j,k : Byte;

elem : Integer;

meddig : Integer;

begin

i := 0;

elem := 4;

While (elem <> 0) do

begin

WriteLn(#10#13,'Kérem az ',i,' elemet : ');

ReadLn(elem);

t[i] := elem;

Inc (i);

end;

k := i;

elem :=0;

meddig := k div 3;

For i := 1 to meddig Div 3 do

begin

for j := 1 to meddig Div 3 do

begin

m[i,j]:=t[elem];

inc(elem);

end;

end;

end.