C/C++ week Anniversary - BF
80 % bodů zdarma na online výuku díky naší Narozeninové akci!
Pouze tento týden sleva až 80 % na e-learning týkající se C/C++

Diskusia: Potřebuji pomoct s úkolem (pascal)

Aktivity (2)
Avatar
Jakub Šálek:21. mája 21:37

Všechno

Skúsil som: Zatím nic, ale vím že to nezvládnu

Chcem docieliť: 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.

 
Odpovedať
21. mája 21:37
Avatar
Odpovedá na Jakub Šálek
Matúš Olejník:21. mája 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ť ;)

Hore Odpovedať
21. mája 22:06
/* I am not sure why this works but it fixes the problem */
Tento výukový obsah pomáhajú rozvíjať nasledujúce firmy, ktoré možno hľadajú práve teba!
Avatar
Peter Mlich
Člen
Avatar
Peter Mlich:22. mája 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.

 
Hore Odpovedať
22. mája 8:10
Avatar
Odpovedá na Peter Mlich
Jakub Šálek:22. mája 17:32

Díky, moc mi to pomohlo

 
Hore Odpovedať
22. mája 17:32
Robíme čo je v našich silách, aby bola tunajšia diskusia čo najkvalitnejšia. Preto do nej tiež môžu prispievať len registrovaní členovia. Pre zapojenie sa do diskusie sa zaloguj. Ak ešte nemáš účet, zaregistruj sa, je to zadarmo.

Zobrazené 4 správy z 4.