Diskuze: Program do pascalu - seminární práce
Martin Dráb:15.5.2017 21:04
Abys měl nějaké vodítko do začátku, matici o M řádcích a N sloupcích pro pevné M a N zadefinuješ takto:
Const
M = 10;
N = 20;
Type
TMatice = Array [1..M, 1..N] Of Byte;Ještě sem dám proceduru Napln, která zadanou matici naplní hodnotami v rozsahu 1-99, z čehož bys měl vidět nejen, jak se to dělá, ale i jak se taková matice dá procházet řádek po řádku.
Procedure Napln(Var AMatice:TMatice);
Var
I, J : Integer;
begin
For I := 1 To M Do
For J := 1 To N Do
AMatice[I,J] := Random(99) + 1;
end;Zjistit četnost jednotlivých hodnot vyžaduje jen malou komplikaci (musíš si ty četnosti nějak rozumně uložit a pak v nich hledat hodnotu s tou největší).
Ze jste psali testy na papír není nic špatného. také jsme tak na střední testy psali a podle mě to bylo daleko lepší než přímo programování na počítači, jelikož tolik nezáleželo na syntaktických chybách, ale na algoritmu.
Že jste v Pascalu moc prakticky neprogramovali, je sice nesnáz, ale ta se dá překonat samostudiem. Stejně jako se doma učíš na testy z matiky, češtiny či dějepisu.
P.S.
Schálně, kdy je termín odevzdání...
+20 Zkušeností
+2,50 Kč
Zobrazeno 11 zpráv z 11.