case<əlamət sahəsi>: of <1-ci sabit>: (sahə,…:tip);
… … … … …
: (sahə,…:tip)
end;
Məsələn, Fiqur adlı birləşmiş yazı yaradaq. Onun təsviri aşağıdakı kimi
olar:
type
koordinat=record absis, ordinat:real; end;
var forma=(noqte, cevre, duz_xatt);
figur=record case forma of noqte:(vəziyyəti: koordinat); cevrə:(merkez: koordinat, r:real)
end; Figur yazısının elementlərinin aşağıdakı kimi çıxışa vermək olar:
With figur do case forma of noqte: write (noqte.Absis, noqte.Ordinat);
duz_xatt: write (A,B,C);
cevre: write (merkez.Absis, merkez.Ordinat,r)
end;
2.13.3. Sabit yazılar
Sabit yazıların təyini sabitin adından, iki nöqtədən, əvvəlcə təyin olunmuş
yazı tipindən, bərabərlik işarəsindən və dairəvi mötərizənin içərisində yazılan
sabitlərin qiymətlərindən ibarətdir. Sabitlərin qiymətləri bir-birindən nöqtə-vergüllə
ayrılır. Məsələn,
Const :=(:)
Məsələn,
