Wątek przeniesiony 2015-01-14 21:48 z Delphi i Pascal przez furious programming.

Program generujący macierz NxN nie działa prawidłowo

0

Witam chcę napisać program, który generuje macierz o rozmiarze NxN. Do tej pory skleciłem coś takiego ale po podaniu liczby n wyskakuje mi tylko jeden wiersz tak jakby była to tablica jednowymiarowa.

program asd;
var
t:array of array of Integer;
n, i, j : integer;
begin
writeln('Podaj liczbę n');
readln(n);
SetLength(t, n, n);
for i:=1 to n do
begin
for j:=1 to n do
begin
t[i,j] := random(100);
write(t[i,j], ' ');
end;
writeln;
readln;
end;
  end.

dodanie znacznika <code class="delphi"> - @furious programming

0

Wstaw sformatowany kod (nie umiesz sam to używaj http://olesio.eu/jcf) w odpowiednie znaczniki, wtedy może ktoś na to spojrzy.

1
  1. Zapoznaj się z pojęciem formatowania
  2. Zapoznaj się z poprawną indeksacją tablic
  3. program asd;
    var t:array of array of Integer;
    var n,y,x: integer;
    begin
    Randomize;
    WriteLn('Podaj liczbę n');
    ReadLn(n);
    SetLength(t,n,n);
    for y:=0 to n-1 do
    begin
    for x:=0 to n-1 do
    begin
      t[y,x]:=random(100);
      Write(t[y,x]:3);
    end;
    WriteLn;
    end;
    ReadLn;
    end.

    http://ideone.com/lM5mEh

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0