Q o‘ L y o zma huq uq I d a u d k 06

2-misol. Ikkita sonda kattasini topuvchi dastur tuzing. 

var 

a,b:real; 

begin 

write('a='); read(a); 

write('b='); read(b); 

if a>b then write('katta son a'); 

if a=b then write('bu sonlar teng‘); 

if b>a then write(' katta son b'); 

end. 

 

3-misol. Uchta sonda kattasini topuvchi dastur tuzing. 

var 

a,b,c:real; 

begin 

write('a='); read(a); 

write('b='); read(b);  

write('c='); read(c); 

if (a>b) and (a>c) then write('katta a=',a); 

if (b>a) and (b>c) then write('katta b=',b); 

if (c>a) and (c>b) then write('katta c=',c); 

if (a=b) and (a=c) then write('bu sonlar teng‘); 

if (a=b) and (c

        write(' c sonidan a va b son katta hamda a=b'); 

if (c=a) and (b

        write(' b sonidan c va a son katta hamda c=a'); 

if (c=b) and (a

        write('a sonidan c va b son katta hamda c=b'); 

end. 

 

---

51 

 

4-misol.  Kiritilgan  son  4  dan  kichgina  bo‘lsa  bu  sonni  ko‘paiytmasini  aks 

holda bu son 4 dan katta deb chiqaruvchi dastur tuzing.  

uses crt; 

label 1; 

var n,i,y,i1,i2:integer; 

begin 

1:read(n); 

if n<4 then write('s=', n*n) else 

writeln('bu son 4 dan katta'); goto 1; 

end. 

5- misol. Ushbu funksiya qiymatini hisoblash dastur tuzing. 

1. 

.

1

,

1

1

,

1

),

8

,

1

ln(

,

sin

,

1

sin

3

2

2





































x

x

x

agar

agar

agar

x

e

x

x

x

y

x

 

label 1,2,3; 

var 

s,x:real; 

begin 

write(‘x=’); read(x); 

if x<-1 then goto 1; 

if x>1 then goto 2; 

s:=sqr(sin(x))+exp(ln(x)/3); 

goto 3; 

1:s:=sin(x)/(sqr(x)+1); 

goto 3; 

2:s:=ln(x+1.8); 

3:write(‘s=’,s); 

end.

 

 

---

52 

 

III.2. Akademik litsey  va  kasb  –hunar  kollejlarida Delphi va  C++ dasturlash 

tilini o‘rgatish metodikasi 

Hozirgi  kunda  akademik  litsey  va  kasb-hunar  kollejlarida  Delphi  va  C++ 

dasturlash  tillari  o‘qitilib  kelinmoqda.  Bu  dasturlash  tillarini  qanaqangi  tartibda 

o‘qitilish kerak degan savol tug‘iladi.  

Albatta  bu  dasturlash  tillarini  ham  zamonaviy  ta’lim  texnologiyalaridan 

hamda multimediali darslar yordamida tashkil etilsa samaraliroq hisoblanadi. 

Shu bois biz Delphi va C++ dasturlash tillarini mavzularni o‘qitish bo‘yicha 

quyidagi  zamonaviy  ta’lim  texnologiyalar  va  darsni  olib  boorish  texnologiyasi 

bo‘yicha quyidagilarni tavsiya etamiz: 

 

III.2.1. Delphi dasturlash tilini o‘qitish bo‘yicha ta’lim texnologiyalaridan 

foydalanish 

 

“Delphi dasturlash tilida standart komponentalar palitrasi bilan ishlash”  

MA’RUZA DARSINI OLIB BORISH TЕХNOLOGIYASI 

Talabalar soni: 

25 –30 talaba 

Vaqti: 

2 soat 

Dars shakli 

Mavzu bo‘yicha ma’ruza 

Ma’ruza rеjasi 

1.  Tugmalarning vazifalari 

2.  Tugmalarning ishlatish 

3.  Tugmalarni formatlash 

Dars maqsadi: Standart komponentalar palitrasidagi tugmalarning imkoniyatlari 

haqidagi ma`lumotlarni talabalarning tushuncha hosil qilish. 

Pedagog vazifalari: 

O‘quv natijalari: 

Standart komponentalar palitrasidagi 

tugmalarni tushuntirish 

Standart komponentalar palitrasidagi 

tugmalarini imkoniyatlarini yoritib 

berish 

Tugmalarni tushuntirish va tavsiflash 

Standart komponentalar palitrasidagi har 

bitta tugmaga oida misollar keltiriladi 

Tugmalarni imkoniyatlarini ko‘rsatish  

MainMenu,  PopupMenu,  Label,  Edit, 

Memo,  Button,  Check  Box  ,  Radio 

Button,  List  Box,  Combo  Box,  Scroll 

Bar,  GroupBox,  Radio  Group,  Panel 

tugmalarning 

imkoniyatlari 

yoritilib 

beriladi  

O‘qitishning usul, tехnikasi: 

Ma’ruza, 

suхbat, 

baхs-munozara 

muhokama qilish, fikr almashish. 

---

53 

 

O‘qitish vositalari: 

Ma’ruza  matni,  tarqatma  matеriallar, 

slaydlar 

O‘qitish shakli: 

Frontal 

O‘qitish shart – sharoitlari: 

Teхnik 

vositalarni 

qo‘llashga 

mo‘ljallangan auditoriya. Proеktor 

Monitoring va baholash 

Og‘zaki 

so‘roq, 

savol-javob, 

tahlil 

natijalari.