Pascal je staticky typizovaný jazyk, ve kterém musí být každá proměnná před použitím odpovídajícím způsobem deklarována. Podporuje také různé datové typy, včetně celočíselných, reálných čísel, znaků a řádků.
Jazyk Pascal má syntaxi založenou na blokech kódu, které oznamují proměnné, definují operátory a funkce. Všichni operátoři musí být uzavřeni v begin a end a operátoři v bloku musí být odděleni středníkem.
| Operátor | Popis |
|---|---|
| if-then-else | Podmíněný operátor, který provádí určité činnosti v závislosti na podmínkách |
| for | Cyklus provádějící konkrétní sadu akcí nastavený kolikrát |
| repeat-until | Cyklus, který provádí určitou sadu akcí, dokud není splněna daná podmínka |
| while-do | Cyklus, který provádí určitou sadu akcí, pokud je splněna daná podmínka |
Jazyk Pascal také podporuje postupy a funkce, které mohou být definovány uživatelem. Postupy jsou soubor instrukcí, které provádějí určitou akci, a funkce jsou rutiny, které vracejí hodnotu.
Jednou z hlavních předností Pascala je jeho přísná typizace, která umožňuje odhalit mnoho programovacích chyb v rané fázi vývoje. Někteří programátoři jej však považují za příliš omezený a složitý na rychlé prototypování.
Jak oznámit a vyplnit pole v Pascal
V jazyce Pascal je třeba pro oznámení a vyplnění pole provést několik kroků:
- Oznamte proměnnou-pole s uvedením její velikosti. Například var arr: array[1..5] of Integer; oznamuje pole arr o velikosti 5 prvků typu Integer.
- Použijte cyklus k vyplnění každého prvku pole. Například:
vararr: array[1..5] of Integer;i: Integer;beginfor i := 1 to 5 dobeginarr[i] := i;end;end.V tomto příkladu bude pole arr vyplněno hodnotami od 1 do 5.
- Všimněte si, že indexy pole v Pascalu začínají na 1 (na rozdíl od některých jiných programovacích jazyků, kde indexy začínají na 0).
- Také typ prvků pole musí být výslovně uveden při oznámení pole.
Nyní víte, jak vyhlásit a vyplnit pole v jazyce Pascal. Aplikujte tyto znalosti na práci s poli ve svých programech!
Jak vyvést pole po řadě do Pascalu pomocí cyklu
program OutputArray;vararr: array[1..5] of Integer;i: Integer;beginarr[1] := 10;arr[2] := 20;arr[3] := 30;arr[4] := 40;arr[5] := 50;for i := 1 to 5 dobeginwriteln(arr[i]);end;end.
Jak odvodit pole po sobě jdoucí do Pascalu pomocí rekurze
Poté volejte tento postup s polem a počátečním indexem:
var arr: array[0..4] of Integer = (1, 2, 3, 4, 5); begin PrintArrayRow(arr, 0); end.
V důsledku spuštění kódu bude každá položka pole zobrazena na novém řádku:
1
2
3
4
5
Použití rekurze umožňuje odvodit pole konstruovaně bez výslovného označení všech indexů a bez použití cyklů.
Jak vyvést pole po řadě do Pascalu pomocí postupů
program PrintArray;constN = 5; // размерность массиваvarArr: array[1..N] of Integer;procedure PrintArrayLineByLine(Arr: array of Integer; Size: Integer);vari: Integer;beginfor i := 0 to Size - 1 dowriteln(Arr[i]);end;begin// заполнение массива значениямиfor i := 1 to N doArr[i] := i * 10;// вызов процедуры для печати массива построчноPrintArrayLineByLine(Arr, N);end.
Při spuštění programu se zobrazí následující:
1020304050
Pole tedy můžete odvodit po řadě do Pascalu pomocí postupů, které tisknou každý prvek pole na nový řádek.
Příklad 1:
vararr: array[1..5] of Integer;i: Integer;beginarr[1] := 10;arr[2] := 20;arr[3] := 30;arr[4] := 40;arr[5] := 50;for i := 1 to 5 dobeginwriteln(arr[i]);end;end.Příklad 2:
vararr: array[1..3, 1..3] of Integer;i, j: Integer;beginarr[1, 1] := 1;arr[1, 2] := 2;arr[1, 3] := 3;arr[2, 1] := 4;arr[2, 2] := 5;arr[2, 3] := 6;arr[3, 1] := 7;arr[3, 2] := 8;arr[3, 3] := 9;for i := 1 to 3 dobeginfor j := 1 to 3 dobeginwriteln(arr[i, j]);end;end;end.Příklad 3:
vararr: array[1..5] of Integer;num: Integer;beginarr[1] := 10;arr[2] := 20;arr[3] := 30;arr[4] := 40;arr[5] := 50;for num in arr dobeginwriteln(num);end;end.