Zde můžete vidět rozdíly mezi vybranou verzí a aktuální verzí dané stránky.
Následující verze | Předchozí verze | ||
pascal [22. 08. 2008, 15.38:46] – vytvořeno, record pitel | pascal [30. 12. 2022, 13.43:01] (aktuální) – upraveno mimo DokuWiki 127.0.0.1 | ||
---|---|---|---|
Řádek 1: | Řádek 1: | ||
+ | ====== Doučování Pascalu ====== | ||
+ | ===== Record ===== | ||
+ | <code pascal> | ||
+ | type | ||
+ | student = record | ||
+ | jmeno: string; | ||
+ | prumer: real; | ||
+ | end; | ||
+ | studenti = array[1..3] of student; | ||
+ | var | ||
+ | i: byte; | ||
+ | s: studenti; | ||
+ | |||
+ | begin | ||
+ | s[1].jmeno := 'Hana Švihálková'; | ||
+ | s[1].prumer := 1; | ||
+ | s[2].jmeno := 'Jan Kalab'; | ||
+ | s[2].prumer := 2; | ||
+ | s[3].jmeno := 'Pepek Zilvar z chudobince'; | ||
+ | s[3].prumer := 5; | ||
+ | |||
+ | for i := 1 to 3 do begin | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | end; | ||
+ | end. | ||
+ | </ | ||
+ | ===== Matice ===== | ||
+ | <code pascal> | ||
+ | var | ||
+ | m: array [1..3, 1..3] of byte; | ||
+ | i, j: byte; | ||
+ | |||
+ | begin | ||
+ | {Inicializace matice} | ||
+ | for i := 1 to 3 do | ||
+ | for j := 1 to 3 do | ||
+ | m[i][j] := 10 * i + j; | ||
+ | |||
+ | {Zkusebni vypis matice} | ||
+ | writeln(' | ||
+ | for i := 1 to 3 do begin | ||
+ | for j := 1 to 3 do | ||
+ | write(m[i][j], | ||
+ | writeln(); | ||
+ | end; | ||
+ | writeln(); | ||
+ | |||
+ | {Pruchod matici obracenou podle hlavni diagonaly} | ||
+ | {Proste ve vypisu prohodime souradnice} | ||
+ | writeln(' | ||
+ | for i := 1 to 3 do begin | ||
+ | for j := 1 to 3 do | ||
+ | write(m[j][i], | ||
+ | writeln(); | ||
+ | end; | ||
+ | writeln(); | ||
+ | |||
+ | {Pruchod matici obracenou podle vedlejsi diagonaly} | ||
+ | {Ve vypisu opet prohodime souradnice, a navic downto} | ||
+ | writeln(' | ||
+ | for i := 3 downto 1 do begin | ||
+ | for j := 3 downto 1 do | ||
+ | write(m[j][i], | ||
+ | writeln(); | ||
+ | end; | ||
+ | end. | ||
+ | </ |