ahoj, mam udelat skolni program, kde se pracuje s maticema, ale mam problem na zacatku. Kdyz generuji cisla, tak mi to hazi porad stejny cisla..... viz kod:
program Brum;
{$APPTYPE CONSOLE}
uses
SysUtils;
type pole = array[0..4,0..4] of integer;
Var
matice:pole;
procedure napl(Var m : pole);
Var
i,j : integer;
begin
for i := 0 to 5 - 1 do
begin
for j := 0 to 5 - 1 do
begin
m[i][j]:=1+random(9);
end;
end;
end;
procedure vypis(Var m : pole);
Var
i,j : integer;
begin
for i := 0 to 5 - 1 do
begin
for j := 0 to 5 - 1 do
begin
write(m[i][j],' ');
end;
writeln;
end;
end;
begin
napl(matice);
vypis(matice);
readln;
end.
Fórum › Delphi
Matice - generator
Chybí ti tam Randomize (inicializace generátoru pseudonáhodných čísel), takže asi takhle:
procedure napl(Var m : pole);
var
i, j: Integer;
begin
Randomize;
For i := 0 to 4 do
begin
for j := 0 to 4 do
begin
m[i,j]:=1+random(9);
end;
end;
end;
Zbytek kódu jsem nekontroloval.
Randomize stačí použít jednou. Příště doporučuji shlédnout nápovědu (je to tam), bývá pod klávesovou zkratkou F1 :smile1:
Zjistit počet nových příspěvků
Přidej příspěvek
Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
Uživatelé prohlížející si toto vlákno
Uživatelé on-line: 0 registrovaných, 3 hosté
Podobná vlákna
Matice - inverzní matice — založil Mara
Generator kodu — založil jožkuuuu
Sitemap generator — založil Tom
Generátor slov — založil marek
UML generator — založil Sony123