Delphi 7 - generace náhodných čísel do matice – Delphi – Fórum – Programujte.com

Dobrý den,

potřeboval bych poradit, jak se generují náhodná čísla do matice. Nějaký základ jsem udělal, nejprve jsem si matici připravil, což funguje, ale když zmáčknu tlačítko "generuj" tak se v matici nic neobjeví a já nevím kde jsem udělal chybu. Děkuji.

type

Tmatice= array[1..100,1..100] of integer;
var
  Form1: TForm1;

n,m:integer;
a:Tmatice;

b:array[1..1000,1..1000] of integer;

procedure TForm1.pripravClick(Sender: TObject);
var m,n:integer;
begin
m:=strtoint(edm.Text);
n:=strtoint(edn.Text);
sg.RowCount:=m;
sg.ColCount:=n;
sg.Width:=n*sg.DefaultColWidth+n+4;
sg.Height:=m*sg.DefaultRowHeight+m+4;
sg.Visible:=true;
end;

procedure TForm1.generujClick(Sender: TObject);
var j,i:integer;
begin
randomize;   // spuštění generátoru náhodných čísel
for i:=1 to n do
for j:=1 to n do
begin
a[j,i]:=random(10);  // náhodné číslo
sg.Cells[j,i]:=inttostr(a[j,i]);
end;

#1 pigin
To bude nejspíš tím, že v proceduře generujClick používáš globální proměnné m,n (i když tam máš chybu, místo m máš 2xn-to první for i:=1 to n do změň na for i:=1 to m do) a ty jsou zatím nastavené na nulu, a to proto, že v proceduře pripravClick používáš ty samé proměnné, ale pouze uvnitř té procedury. Odstranění bude jednoduché. V proceduře pripravClick odstraň řádek var m,n:integer; a pak se už použijí m,n jako globální.

Navíc si myslím, že StringGrid počítá řádky i sloupce od nuly a tak jak to máš napsané,(pokud tedy máš FixedCol a FixedRow nastavené na 1) tak ti to bude plnit matici, která bude mít pouze m-1 řádků a n-1 sloupců. Tedy chtělo by to změnit

sg.RowCount:=m; a sg.ColCount:=n; na sg.RowCount:=m+1; sg.ColCount:=n+1;

a také sg.Width:=n*sg.DefaultColWidth+n+4; a sg.Height:=m*sg.DefaultRowHeight+m+4; na

           sg.Width:=(n+1)*sg.DefaultColWidth+n+4; a sg.Height:=(m+1)*sg.DefaultRowHeight+m+4;

Pokud ovšem máš FixedCol a FixedRow nastavené na 0, pak proceduru pripravClick nech jak je a potom v proceduře generujClick počítej m i n od 0 do m-1 respective do n-1.

#2 Honzc
Děkuji za pomoc,

ještě bych tady měl jeden problém. Mám za úkol s maticí udělat toto, ale nevím si rady. Děkuji za pomoc.

1)Matici vytiskněte po řádcích ve tvaru tabulky
2)Vytvořte součty sudých čísel v každém sloupci.
   Pro součet těchto čísel použijte proceduru nebo funkci

tak na součet čísel v jednotlivých sloupcí jsem přišel, ale potřeboval bych poradit jak udělat, aby se ve sloupcích sčítaly pouze sudá čísla..dodávám zdrojový kód k součty řádků. díky

function soucet(i,n:integer;var a:Tmatice):integer;
var j,s:integer;
begin
s:=0;
for i:=1 to m do
s:=s+a[i,j];
soucet:=s;
end;

procedure Tsgs.Button3Click(Sender: TObject);
var i,j,s:integer;
begin
sgs.Visible:=true;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=strtoint(sg.Cells[j-1,i-1]);

for j:=1 to n do
  begin
  s:=soucet(j,n,a);
  sgs.Cells[j-1,0]:=inttostr(s);
  end;

sudá čísla jsou dělitelná 2 beze zbytku. 

http://programujte.com/clanek/2005041419-delphi-3-lekce/

hu

#5 hlucheucho
děkuji za radu, ale potřeboval bych spíše vědět jak se to udělá v tomto konkrétním příkladu, aby se nesčítaly všechny čísla ve sloupečku , ale pouze sudá..nevím jak a kam se zadá jaký příkaz..děkuji

#6 pigin
mno vždyť ti hlucheucho už napověděl všechno co potřebuješ vědět ...

Napiš podmínku, ve které budeš testovat, zda je číslo sudé (dělitelné 2 beze zbytku [použij funkci MOD]) pokud číslo podmínce bude vyhovovat, přičteš ho, pokud vyhovovat nebude, přičítat ho nebudeš ... snadné.

#4 pigin
Ta tvá funkce na součet je nějaká divná. Zadáváš do ní i a pak sním počítáš v cyklu. Naopak proměnná j je pořád nastavená na nulu, takže by mě zajímalo co vlastně sčítáš. Pokud chceš sčítat jednotlivé sloupce, pak to napiš takto (i s stím, že budeš sčítat jenom sudá čísla-to se dělá tak, že pokud číslo mod 2=0 tak je číslo sudé) 

function soucet(j:integer; var a:Tmatice):integer; //sčítá sudá čísla v řádku j
var i:integer;
begin
Result := 0;
for i := 1 to m do
  if a[i,j] mod 2=0 then
    Result := Result+a[i,j];
end;

V poznámce má být sčítá sudá čísla ve sloupci j.

#8 Honzc
díky funguje to..