Anonymní profil pigin – Programujte.com

Dobrý den,

potřeboval by sem se zeptat jak zadám do zdrojového kódu že chci sčítat čísla jen určitých sloupcích.

Např. Když chci sečíst čísla v prvním sloupci a výsledek vypsat a sečíst čísla ve třetím sloupci a výsledek vyspat.

Umím a dodávám zdroják sčítat čísla ve všech sloupcích ale nevím jak zadat určitou oblast diky.

function soucet(j,n:integer; var a:Tmatice):integer; // sčítá sudá čísla ve sloupcích j
var i,s:integer;
begin
s:= 0;
for i := 1 to m do
    s:= s+a[i,j];
soucet:=s;
end;

procedure TForm1.sectiClick(Sender: TObject);
var i,j,s:integer;
begin
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);      // naplní sgs čísly

end;
 end;

#8 Honzc
díky funguje to..

#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

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;

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;