Avtomatika va elektrotexnologiya

if ThisDay = 6 then 
 begin 
 { buyruqlar } 
 end; 
Bu  yerda  ThisDay:=1;  buyrug‘i  xato  yozilgan.  Chunki  ThisDay  o‘zgaruvchisi  dastuchi 
tomonidan  aniqlangan  tipga  tegishli,  unga  yuklanayotgan  konstanta  esa  butun  tipga  tegishli.  If 
buyrug‘idagi shartda ham xatolik mavjud. 
Sanalma  tiplarni  e‘lon  qilish  nomlangan  konstantalarni  e‘lon  qilishning  qisqacha 
ko‘rinishi  ekanligini  tasdiqlash  mumkin.  Masalan  yuqorida  e‘lon  qilingan    TdayOfWeek  tipi 
quyidagi e‘lon qilish bilan teng kuchlidir: 
const 
MON=0; TUE=1; WED=2; THU=3; FRI=4; SAT=5; SUN=6;