O‘zbekiston respublikasi xalq ta’limi vazirligi samarqand viloyati xalq ta’limi xodimlarini qayta tayyorlash va ularning malakasini oshirish hududiy markazi m avzusidagi

FOYDALANILGAN ADABIYOTLAR

1. 
   O`.T.Haitmatov va b.Informatika va axborot texnologiyalari. O’quv qo’llanma. T. TKTI. 2005 y. 116-121 b.
   
2. 
   O`.T.Haitmatov va b. Informatika va axborot texnologiyalari fanidan laboratoriya ishlarini bajarish ushun uslubiy qo’llanma. T. TKTI. 2005 y.
   
3. 
   Faronov V.V. Turbo Paskal 7.0. Uchеbnoе posobiе. M.: Nolidj., 2002g.
   
4. 
   Aripov M., Xaydarov A. Informatika asoslari T. “O`qituvchi”2002y.
   
5. 
   Holmatov T.X.,Toyloqov N.I. Amaliy matematika,dasturlash va kompyuterning dasturiy ta’minoti. T.Mexnat, 2000 y. 27-32 b.
   
6. 
   Aminov I. Paskal dasturlash tili. O'quv qullanma- SamDU, Samarqand, 1996 y.
   
7. 
   www.microsoft.com
   
8. 
   www.svitonline/com/assol/ - союз образовательных сайтов
   
9. 
   www.inform.ru
   
10. 
    www.ziyonet.uz
    

I L O VA.


1.PASKAL da ishlatiladigan o`zgaruvchilar

mantiqiy


Real integer string char boolean

TEST.

1-masala. A[l .. l00] butun sonli massivda qiymati 7 ga teng elementlar sonini aniqlash algoritmi va dasturini tuzing.
Dastlab 7 ga teng bo‘lgan elementlarni sanash uchun s:= 0 o‘zgaruvchi tanlanadi. So‘ngra, massiv elementlarini bittadan kiritiladi. Har bir kiritilgan element 7 soni bilan taqqoslanadi. Agar a[i] element 7 ga teng bo‘lsa, s ning qiymati 1 ga oshiriladi. Keyin navbatdagi elementga o‘tiladi. Bu jarayon
100 marta takrorlanadi. Qo‘yilgan masala uchun algoritm va dastur quyidagicha yoziladi:

algoritm	dastur
	program sanash ; var s, i : integer ; A: array [I.. 100] of integer; Begin s:= 0 ; writeln(‘massiv elementlarini kiriting’); for i :=1 to 100 do begin readln ( a[i] ) ; if a[i] = 7 then s:= s + 1 ; end ; writeln('7 ga teng elementlar soni = ', s); end.

5. Grafik holatida matn chop etish	Dastur natijasi
Program shriftlar; uses crt, graph ; var x, u, gd, gm : integer ; begin gd:=detect; initgraph (gd,gm, ‘') ; settextstyle(0,0,8) ; Textcolor(blue);TextBackground(14); outtextxy(20,100, 'KOMPUTER’) ; settextstyle(3,0,8) ; outtextxy(20,300,’SINFI'); readln ;end.	KOMPUTER SINFI