O’ O`zbekiston respublikasi

1-misol:

Guruhdagi talabalarning ro‘yxati va bahosi berilgan. Bizdan 5 bahoga o‘qiydiganlar soni va familiyasi A harfidan boshlanuvchi talabalar sonini topish talab qilingan bo‘lsin.

Mazkur ro‘yxatning har bir satri tartib rahami- N, talabaning familiyasi, ismi, sharifi-FIS va olgan bahosidan – 0 iborat.

Royhat nomli ‘aralash tur’ yoki yozuv tashkil etaylik:

Program ARALASH;

Type Royhat=Record

N:integer;

FIS:string[15];

O:integer;

Var

B: Royhat;

begin

S1: =0; S2:=0;

For I: =1 to N do

begin

For K: =1 to M do Read(B.FIS [k]);

Read(B,0) ;

If B.0=5 then S1: =S1+1;

If B,FIS[1] =’A’ then S2: =S2+1;

end;

write(S1,S2)

end.
Mustaqil bajarish uchun topshiriqlar:

1. Ikki nuqta orasidagi masofani aniqlash programasini yozing.

2. Berilgan (x, y) nukta doira ichida yoki tashharisida ekaniligini aniqlash programasini yozing.

3. Yuqorida 1 va 2 masalalarini programasini yozishda WITH kalit so‘zidan foydalanib yozing.

4. Kompleks sonlar ustida amallarni bajarish programmalarini yozing.

5. Berilgan xizmatchilar ro‘yxatidan kerakli kishini aniqlash programasini yozing.