Rozdíly

Zde můžete vidět rozdíly mezi vybranou verzí a aktuální verzí dané stránky.

--- pascal [25. 08. 2008, 05.12:14] – jmeno 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('Jmeno:  ', s[i].jmeno);
+ writeln('Prumer:', s[i].prumer);
+ end;
+end.
+</code>
+===== 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('Matice:');
+ 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('Hlavni diagonala:');
+ 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('Vedlejsi diagonala:');
+ for i := 3 downto 1 do begin
+ for j := 3 downto 1 do
+ write(m[j][i], ' ');
+ writeln();
+ end;
+end.
+</code>

Kalábovi