Výpis formou matice – Pascal – Fórum – Programujte.com

Dobrý den,

potřeboval bych poradit, jak udělat to, aby se mi na obrazovku vypisovala matice a ne sloupec čísel. Mám vytvořenou tuhle proceduru a nevím co mám dát za to writeln, aby to vypisovalo, jak jsem již psal jako matici ne jako sloupec čísel.  

procedure VYPISMAT (a,b:byte;d:matice);
var
i,j :byte;
begin
     for i:=1 to a do
         for j:=1 to b do
             writeln(d[i,j]);
end;                              

Děkuji.

for i:=1 to 4 do
begin
write('1');
write(' ');
write('2');
write(' ');
write('3');
writeln();
end;

A jeste bych pouzil formatovani s %, abys to mel pekne pod sebou
http://www.freepascal.org/…/format.html

#1 Tomáš
Rozlišuj mezi writeln (vypsat a ukončit řádek) a write (vypsat a "čekat" na stejném řádku na další výpis).

Takže tvůj příklad by měl vypadat takto:

procedure VYPISMAT (a,b:byte;d:matice);
var
i,j :byte;
begin
     for i:=1 to a do  {cyklus pro radky}
       begin
         for j:=1 to b do {cyklus pro sloupce - vypise jeden radek hodnot}
             write(d[i,j]:5:0); {vypsat jednu hodnotu na radek}
         writeln; {ukoncit jeden vypsany radek}
       end;
end;    

{ :5:0 - zpusobi doplneni vypisovanych hodnot mezerami zleva tak,
 aby zabraly celkem 5 znaku - tim se zaridi prehlednost vypsane matice }