O’ O`zbekiston respublikasi

1-misol: Elementlari harflardan tashkil topgan Y1,Y2,Y3 to‘plamlar asosida X/(Y1Y2)(Y1\Y2) to‘plam hosil qilinsin va YX ekanligi tekshirilsin.
Program T1;

Type T=set of char;

Var

Y1,Y2,Y3:T;

X:T;

C:char;

begin

Y1: =[‘a’, ‘b’, ‘a’, ‘r’, ‘m’];

Y2: =[‘r’, ‘a’, ‘b’, ‘a’];

Y3: =[‘a’, ‘r’];

X: =(Y1*Y2) +(Y1-Y2);

For c: =’a’ to ‘r’ do

If c in x then write (c);

If y3<=x then write(‘y3 in x’) else

write(‘y3 not in x’)

end.
2-misol: Nuqta bilan tugaydigan berilgan matnda a, e, s, h harflarining necha marta uchrashini aniqlovchi programma tuzilsin.

Program N1;

Var

c1: char;

k : integer;

begin read(c1);

k: =0;

while c <> ’.’ do begin

if c1 in [‘a’, ‘e’, ‘c’, ‘h’] then k: =k+1;

read(c1);

end;

writeln(k)

end.

Mustaqil bajarish uchun topshiriqlar:

1. 
   var p : set of 0..9;
   

i,j : integer;

Quyidagi o'zlashtirish operatorlari bajarilganda, i=3 va j=5 bo'lganida p o'zgaruvchisi qanday qiymat qabul qiladi:

a) p:= [i+3, j div2, j..sqr(i)-3];

b) p:= [2*i..j];

v) p:=[i,j,2*i, 2*j]

2. 
   type satr = array [1..100] of char; Berilgan s satrga kiruvchi ‘+’ , ’-‘ va ’*’ belgilarni va rahamlarning umumiy sonini hisoblovchi hisob(s) funksiyasi tuzilsin.
   
3. 
   Qo'shimcha o'zgaruvchi ishlatmasdan A va B to'plam turidagi o'zgaruvchilar qiymatlari o'zaro almashtirilsin.
   
4. 
   Yo'naltirilgan G grafning N uchidan K uchiga yo'l bor yoki yo'qligini aniqlovchi mantiqiy Yol (G,N,K,D) funksiyasi tuzilsin. Agar yo'llar mavjud bo'lsa, D parametrga bu yo'llarni eng qisqasining uzunligi berilsin (yoylar soni).