Informatika va at

7.9. type nom = (nol, bir, ikki, uch, turt, besh);

var d: ’0’..’5’; n: nom;

Berilgan d raqam nomi a o'zgaruvchiga berilsin.

7.10. type nota = (do, re, mi, fa, sol, lya, si);

oraliq = (secund, tersia, qvart, kvint, sekst, septima);

var n1, n2: nota; i: oraliq;

Berilgan n1 va n2 (n1n2) notalardan tashkil topgan i-oraliq aniqlansin; secund–bu ikkita qo'shni (aylana bo'ylab) notalardan tashkil topgan oraliq (masalan, re va mi, si va do), tersia – bu bitta notadan keyingi oraliq (masalan, fa va lya, si va re) va hokazo.

7.11. Quyidagi operatorlar bajarilgandan keyin p va d o'zgaruvchi­larning qiymatlari nimaga teng bo'lishi aniqlansin.

p:= true; d:=1;

case k mod 10 of

3, 2, 7, 5: d:=k;

1: ;

4, 8: begin p:= false; d:=2 end;

9, 6: begin p:=false; d:=3 end;

end {of case}

Masala butun turdagi k o'zgaruvchining quyidagi qiymatlari uchun yechil­sin:

a) 6; b) 235; v) 71; g) 100.

7.12. Quyidagi tanlash operatoridagi xatolar topilsin:

var u,w : ’a’..’z’;

...

case u of

’a’..’w’ : w:=succ(u);

’u’,’y’ : u:=’g’; w:=u

end;

7.13. type mavsum = (qish, bahor,yoz, kuz);

oy = (yan,fev,mar,apr,may, iyn,iyl,avg,sen,okt,noy,dek);

var m: oy; s: mavsum;

Berilgan m oyga mos keluvchi s-mavsum aniqlansin.

14. 
    type davlat = (Germaniya,Quba,Laos,Monaqo,Nepal,Polsha);
    

qita = (Osiyo, Amerika, Evropa);

var s: davlat; s: qita;

Davlatning s nomi bo'yicha u joylashgan qit'a nomi s aniqlansin.

7.15. type birlik = (desimetr, kilometr, metr, millimetr, santimetr);

uzunlik = real;

var x: uzunlik; p: birlik;

Berilgan r birlikdagi x o'zgaruvchining qiymati metrlarda aniqlansin.