Matematické Fórum
Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.
Nástěnka
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.
Nejste přihlášen(a). Přihlásit
#1 02. 06. 2014 15:32 — Editoval kamon555 (02. 06. 2014 18:59)
Pascal matice MxN
Zdravím. dostal jsem zapeklitou úlohu do pascalu a opravdu nevím jak na ni moc bych byl rád kdyby mi byl kdokoli schopný pomoci
Zadání: matici MxN naplňte náhodnými čísly od 1 do 9, určete která hodnota se vyskytla nejčastěji a kolikrát to bylo, zobrazte matici pomocí podprogramu
opravdu po prozkoumání jsem se zhrozil a dostal jsem blok a nedokážu se s tím vypořádat.
sem jsem se dostal
Program MaticeMxN;
Uses crt;
Var Matice: array [1..10,1..10] of integer;
Cetnost: array [1..9] of integer;
I,J,M,N:integer;
Begin
for i:=1 to 9 do Cetnost[i]:=0;
Clrscr;
Randomize;
Writeln('Zadej pocet radku');
Readln(M);
Writeln('Zadej pocet sloupcu');
Readln(N);
for I:=1 to M do
for J:=1 to N do
Begin
Matice[I,J]:=random(9)+1;
End;
Writeln('Vypis matice');
for I:=1 to M do begin
for J:=1 to N do
Write(Matice[I,J]:2);
Writeln;
Writeln;
End;
Begin
for i:=1 to M do
for j:=1 to N do Inc(Cetnost[Matice[i,j]]);
End;
Readln;
End.
Offline
#2 03. 06. 2014 14:04
Re: Pascal matice MxN
↑ kamon555:
Máš to zatím dobře (i ksyž ne moc optimalizovaně)
K dalšímu:
porovnávej v cyklu četnosti u jednotlivých čísel a když najdeš větší tak si ho zapiš a také si zapiš jaké je to číslo (na začátku položíš to největší rovno počtu (četnosti) u čísla 1, a cyklus bude od dvojky)
Offline