Informatika va at

14.13. type M = set of 0..99;

M turidagi A to'plam elementlari sonini hisoblovchi card(A) funktsiyasi tuzilsin (masalan card([5,8,23])=3)

14.14. type letters = set of ‘a’..’2’;

letters turidagi A to'plamni barcha elementlarini alfavit tartibida chop qiluvchi chop_etish(A) protsyedurasi tuzilsin.

14.15. const n=10;

type nomer =1..n;

matrisa = array [nomer, nomer] of real;

nom=set of nomer;

A matritsaning satr va ustun nomerlari, mos ravishda bo'sh bo'lmagan nom turidagi s1 va s2 to'plamga tegishli bo'lgan elementlarning yig'indisini hisoblaydigan sum(A,s1,s2) funktsiyasi tuzilsin.

14.16. type hafta_kuni = (dush, sesh, chor, pay, jum, shan, yak);

ish_kuni = dush..jum;

var hk: hafta_ kuni; t: boolean;

Agar hk ish kuni bo'lsa t o'zgaruvchisiga true qiymati aks holda false qiymati berilsin. Quyida keltirilgan operatorlardan qaysilari bu masalani to'g'ri yechadi?

a) t:=hk in [ish kuni]; b) t:=hk=ish kuni;

d) t:=hk in [ish kuni]; g) t:=hk in [dush..jum]:

d) t:=[hk]<=[dush..jum]; ye) t:=[hk]=[dush..jum];

14.17. Ifodalarning qiymatlari hisoblansin.

a) [1,3,5]+[2,4]; b) [1,3,5]*[2,4]; d) [1,3,5]-[2,4];

g) [1..6]+[3..8]; d) [1..6]*[3..8]; ye) [1..6]-[3..8];

j) [2,4]+[1..5]; z) [2,4]*[1..5]; i) [2,4]-[1..5];

k) [ ]+[4]; l) [ ]*[4]; m) [ ]- [4];

14.18. Ifodalarning qiymatlari hisoblansin.

а) [2..13]*[3,13..60]+[4..10]-[5..15]*[6];

б) [2..10]-[4,6]-[2..8]*[8..15];

в) ([‘0’..’7’]+[‘2’..’9’])* ([‘a’]+[‘z’])