Matice - generator – Delphi – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Matice - generator – Delphi – Fórum – Programujte.comMatice - generator – Delphi – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
werixon0
Návštěvník
11. 4. 2011   #1
-
0
-

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.

Nahlásit jako SPAM
IP: 89.102.109.–
Reklama
Reklama
werixon0
Návštěvník
11. 4. 2011   #2
-
0
-

Diky za pomoc.

Nahlásit jako SPAM
IP: 89.102.109.–
Sniper
~ Anonymní uživatel
184 příspěvků
11. 4. 2011   #3
-
0
-

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:

Nahlásit jako SPAM
IP: 90.179.201.–
werixon0
Návštěvník
11. 4. 2011   #4
-
0
-

To Sniper : Boze........ a ja na to cumel asi 3/4 hodiny. Diky

Nahlásit jako SPAM
IP: 89.102.109.–
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žit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 41 hostů

Podobná vlákna

Generator grafu — založil Hanz

Jak na generátor ? — založil Zuben

JKiss32 generátor — založil JoskaKomza

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý