Autor: Kub@z | 13.4.2004 |
var pole: array[1..3] of integer;
begin
pole[1] := 50; (* první položka má hodnotu 50 *)
pole[2] := 10;
pole[3] := 20;
writeln(pole[1]);
writeln(pole[2]+pole[3]);
end.
var pole: array[1..3, 1..3] of integer;
begin
pole[1,1] := 50;
pole[1,3] := 10;
pole[3,2] := 20;
end.
var retezec: string[50];
Vytvoří řetězec o délce maximálně 50 znaků. V programu následně použijeme:writeln(retezec[12]);
Což vypíše 12. znak v řetězci. Toto čtení určitého znaku samozřejmě můžeme použít i když si řetězec nedeklarujeme s přesnou délkou, protože když napíšeme:var retezec: string;
tak to má stejný význam jako:var retezec: string[255];
var jmeno, prijm, telefon, adresa: string;
vek: integer;
type mujtyp = integer;
var vek: mujtyp;
type zaznam = record
jmeno, prijm, telefon, adresa: string;
vek: integer;
end;
var prom: zaznam;
begin
prom.jmeno := 'petr'; (* prom.něco funguje jako samostatná proměnná *)
prom.vek := 20;
end.
type zaznam = record
jmeno, prijm, telefon, adresa: string;
vek: integer;
end;
var pole: array[1..10] of zaznam;
begin
pole[1].jmeno := 'petr';
pole[5].vek := 20;
end.
type zaznam = record
jmeno, prijm, telefon, adresa: string;
vek: integer;
end;
var prom: zaznam;
begin
prom.jmeno := 'petr';
prom.prijm := 'novák';
prom.telefon := '0609112567';
prom.adresa := 'U salónu 25';
prom.vek := 20;
end.
type zaznam = record
jmeno, prijm, telefon, adresa: string;
vek: integer;
end;
var prom: zaznam;
begin
with prom do begin
jmeno := 'petr';
prijm := 'novák';
telefon := '0609112567';
adresa := 'U salónu 25';
vek := 20;
end;
end;
end.
type ramecek = (jednoduchy, dvojity, trojity, levy, pravy);
var typ: ramecek;
begin
typ := dvojity;
case typ of
jednoduchy: writeln('Ramecek ma jednu caru');
dvojity: writeln('Ramecek ma dve cary');
else writeln('Ramecek je nejakej jinej');
end;
end.
uses crt; (* readkey je definováno v unitě crt, pokud to *)
(* způsobuje error 200, použijte "fdelay" *)
const znaky = ['a','n','1','2','3'];
begin
repeat
until readkey in znaky;
end.
[255, 85, 41 ,56]
Kombinovat číselné a znakové množiny není možné. Teď si možná říkáte, proč jsem napsal, že se množina deklaruje klíčovým slovem "set". Je to z toho důvodu, že jak vidíte, do množin, které jsem zde uvedl není možné zadat hodnotu. V příkladu 2 byla množina konstanta, a proto se neuvádí datový typ. Ve skutečnosti je to však "set of typ":
var mnoz: set of char;
begin
mnoz := ['A', 'B', 'C'];
end.
var pismo: set of (tucne, podtrzene, kurziva, preskrtnute);
begin
pismo := [tucne];
pismo := [tucne, kurziva];
pismo := pismo + [podtrzene];
pismo := pismo - [tucne];
if pismo = [kurziva] then writeln('Pismo je pouze kurzivou');
if tucne in pismo then writeln('Pismo je tucne a mozna i jine');
end.