Avtomatika va elektrotexnologiya

type 
TDayOfWeek = (MON,TUE,WED,THU, FRI,SAT,SUN) ;  
var 
ThisDay, LastDay: TDayOfWeek; 
Sanalma  tiplarni  e‘lon  qilishda  ko‘rsatilayotgan  qiymatlar  ro‘yxatida  eng  chapdagisi 
minimum, eng o‘ngdagisi esa maksimum qiymatga ega bo‘ladi. DayOfWeek tipining elementlari 
uchun quyidagi munosabat o‘rinlidir: 
MON < TUE < WED < THU < FRI < SAT < SUN 
Sanalma  tiplar  elementlarining  tartiblanganlik  hususiyati  sanalma  tipning  o‘zgaruvchilarini 
boshqaruvchi buyruqlarda ishlatish imkonini beradi. Masalan, quyidagicha: 
if (Day = SAT) OR (Day = SUN) then  
begin 

---

{ kun shanba yoki yakshanba bo‘lsa bajariladigan buyruqlar}  
end; 
keltirilgan buyruqlarni quyidagicha yozish ham mumkin: 
if Day > FRI then begin 
{ kun shanba yoki yakshanba bo‘lsa bajariladigan buyruqlar}  
end; 
Ma‘lumki  dasturchi  tomonidan  aniqlangan  tiplardan  foydalanib  yozilgan  dasturlar 
tushunarli va oson o‘qiladigan bo‘ladi. Shu bilan birga xatolik yuz berish extimolligi kamayadi. 
Kompilyasiya  vaqtida  Delphi  o‘zgaruvchining  tipini  o‘zgaruvchiga  yuklanayotgan  ifoda 
tipi bilan solishtiradi. Agar ifoda tipi o‘zgaruvchi tipiga mos kelmasa, xatolik to‘g‘risida xabar 
chiqaradi. 
Misol: 
type 
TDayOfWeek = (MON, TUE, WED, THU, FRI, SAT, SUN) ; 
ThisDay: TDayOfWeek; begin 
ThisDay:=1;