FINÁLNÍ VÝPRODEJ KREDITŮ na ITnetwork je tady. Využij poslední šanci a získej až 80 % extra kreditů ZDARMA na náš interaktivní e-learning. Zjisti více:
NOVINKA: Kurz kybernetické bezpečnosti s akreditací MŠMT, nyní již od 0 Kč. Staň se žádaným profesionálem. Zjisti více:
Avatar
Jakub Šálek
Člen
Avatar
Jakub Šálek:21.5.2020 21:37

Všechno

Zkusil jsem: Zatím nic, ale vím že to nezvládnu

Chci docílit: Potřebuji Matici MxN naplnit náhodnými čísly od 1 do 9, vypočíst pomocí funkce součty prvků v jednotlivých řádcích a určit, ve kterém řádku je nejvyšší. Výsledky a matici zobrazit.

 
Odpovědět
21.5.2020 21:37
Avatar
Matúš Olejník
Člen
Avatar
Odpovídá na Jakub Šálek
Matúš Olejník:21.5.2020 22:06

Tak určite ste sa niečo, čo by ti v tomto mohlo pomôcť učili takže by si mohol sa posnažiť aj sám aspoň nejaký základ napísať ;)

Nahoru Odpovědět
21.5.2020 22:06
/* I am not sure why this works but it fixes the problem */
Avatar
Peter Mlich
Člen
Avatar
Peter Mlich:22.5.2020 8:10

Zkus si najit nejakou literaturu googlem nebo hotovy priklad. Tohle je skolni uloha, toho bude plny internet.
google = pascal Matici MxN naplnit náhodnými čísly od 1 do 9

uses Crt;
const
m = 5;
n = 5;
var i,j,c: Integer;
    m1,m2,m3: array [1..5] of array [1..5] of Integer;
begin
  WriteLn(' --- Soucet odpovidajicich si prvku matic ---');
  WriteLn;
  Randomize;
  for i := 1 to 5 do
    for j := 1 to 5 do
    begin
      c := Random(10); //nahodne cislo od 0 do 9
      m1[i,j] := c;
      c := Random(10);
      m2[i,j] := c;
      m3[i,j] := m1[i,j]+m2[i,j];
    end;
  WriteLn;
  WriteLn(' matice 1:');
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      Write('  ',m1[i,j]:2);
    WriteLn;
  end;
  WriteLn;
  WriteLn(' matice 2:');
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      Write('  ',m2[i,j]:2);
    WriteLn;
  end;
  WriteLn;
  WriteLn(' matice 3:');
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      Write('  ',m3[i,j]:3);
    WriteLn;
  end;
  ReadLn;
end.

To je priklad z nahodne stranky, ktery by po uprave mohl delat, co potrebujes, jde mi spis o to, ze to je kod, ktery ma jakousi logiku a uz nemusis vymyslet nektere veci od zacatku.

google = delphi pascal pole

Příklady deklarací polí:
 type
     poleDny = array [1..7] of string;
     poleMesice = array [1..12] of string;
var
    dny : poleDny;
    mesice : poleMesice;
-----------------------------
const
    min=1;
    max=20;

type
    poleCisel  =array [min..max] of integer;
type
    poleZnaku = array [1..10] of char;
-------------
type
poleDny = array [1..7] of string;
var
 dny : poleDny;
begin
dny[1]:= 'Pondělí';
dny[2]:= 'Úterý';
dny[3]:= 'Středa';
dny[4]:= 'Čtvrtek';
dny[5]:= 'Pátek';
dny[6]:= 'Sobota';
dny[7]:= 'Neděle'; // v tomto okamžiku je pole naplněno a můžeme s jeho daty pracovat
readln;
end;

google = delphi pascal dvourozmerne pole
https://www.itnetwork.sk/…9fb7a803af13

var
Moje2Dpole: array[1..5,1..5] of integer;
i,j: integer;

a procházíš pole pomocí dvou vnořených cyklů:

/*cislo 5 muze byt nahrazeno promenou a vstup urcen uzivatelem, je jen potřeba nastavit při deklaraci dost velké intervaly. */
for i := 1 to 5 do
for j := 1 to 5 do
begin
//lze zase nastavit dle požadavků
Moje2Dpole[i,j] := 1;

//popřípadě výpis
write(Moje2Dpole[i][j]);
end;

Tak, z tech kousicku kodu to snad poskladas a jeste s tim, co mas zapsane v sesite nebo jste se ucili.

 
Nahoru Odpovědět
22.5.2020 8:10
Avatar
Jakub Šálek
Člen
Avatar
Odpovídá na Peter Mlich
Jakub Šálek:22.5.2020 17:32

Díky, moc mi to pomohlo

 
Nahoru Odpovědět
22.5.2020 17:32
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 4 zpráv z 4.