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
Stránky: 1
Ahoj, chtěla bych se zeptat, jak byste řešili tuto úlohu:
Sestavte funkci pro určení počtu sudých prvků celočíselné matice typu M*N a použijte ji pro
řešení následující úlohy: Jsou dány dvě čtvercové matice řádu K (K<20). Vytiskněte tu z nich,
která má více sudých prvků. Program ověřte pro dvě vhodně zvolené matice 4. řádu.
Nevím si rady, když jsem myslela, že už to mám, tak mi to zase nešlo sputit.
Budu táda za každou pomoc :)
Offline
ahoj ↑ Lusssy13:,
Type TMatrix = array [1..20,1.20] of Integer;
var RadMatice: byte;
.......
Function PocetSudychPrvku (Matice:TMatrix, RadMatice:Integer):Integer;
var i,j,Pocet:Integer;
begin
Pocet:=0;
for i:=1 to RadMatice do
for j:=1 to RadMatice do
if not odd(Matice[i,j]) then inc(Pocet);
Result:=Pocet;
end;
Procedure TiskMatice(Matice:TMatrix);
.......
......
if PocetSudychPrvku(Mat1, RadMatice)>PocetSudychPrvku(Mat2, RadMatice)
then TiskMatice(Mat1)
else TiskMatice(Mat2);
.....
Offline
Stránky: 1