Tekshirdi: O’qituvchi: M. Abduolimova O’tibdo’: Z. Maxkamov

Dars o`tish metodi: Aqliy hujum, aralash, interfaol.

Dars jihozi: Tarqatma materilallar, 9-sinf darsligi, jadvallar.

Texnik jixozlar: Kompyuter, multimedia vositalari, slaydlar, proektor.

Darsning blok chizmasi

№	Dars bosqichlari	Vaqt	Usullar
1	Tashkiliy qism	3 daqiqa
2	O’tilganlarni takrorlash	7 daqiqa	Savol-javob, klasster, test
3	Yangi mavzu ustida ishlash	17 daqiqa	Ma’ruza, aqliy xujum
4	Yangi mavzuni mustahkamlash	15 daqiqa	Klasster, blits-savol, test
5	Uyga vazifa	3 daqiqa

Darsning borishi

I Tashkiliy davr.

1) salomlashish;

2) davomatni aniqlash.

II. Takrorlash.

1. 
   Tarmoqlanish operatorining qisqa va to‘liq shakllari orasida qanday farq bor?
   
2. 
   Paskalda qanday mantiqiy amallar qo’llaniladi?
   
3. 
   Paskalda murakkab mantiqiy shartlarga misol keltiring.
   
4. 
   Mantiqiy ifodada amallarning bajarilish tartibini tushuntirib bering.
   
5. 
   Mantiqiy ifodada qachon qavslar ishlatiladi?
   

III. Yangi mavzuni o`rganish

1. Quyidagi operatorlardagi xatolarni aniqlang va izohlang.

a) for I= –15 to 5 do s:=s+I; b) for kub:=100/10+11 to 1963 do begin a:=7;end;

I= –15 da I:= –15 bo`lishi kerak. Takrorlsh parametric butun son bo`lishi kerak.

d) for mag:=99 dawnto 1 do readl(aa); e) for bma:= 0.5 to 10 do writeln(k);

“dawnto” emas “downto”, takrorlash parametrining qiymati butun son bo`lishi kerak.

“readl” emas “readln”

2. Quyidagi operatorlardagi takrorlanishlar sonini aniqlang.

a) for k:=trunc(23/5) downto trunc(1/2) do m:=1991; b) for s:=23 to 1 do m:=1963;

4-0+1=5 marta 23-1+1=23 matra

3. S=10+12+14+…+50 yig’indini hisoblash dasturini tuzing.

Program summa;

Var S,i, x: integer;

Begin

For i:=5 to 25 do begin x:=2*I; S:=S+x; end;

Writeln(‘S=’;S);

Readln;

End.

IV. Mustahkamlash.

1. yig’indini hisoblash dasturini tuzing (yo’llanma: J ni 10 ga bo’lganda qoldiq 7).

Program yig`indi;

Var i: integer;

S: real;

Begin

For i:=0 to 20 do S:=S+(7+10*i)/(11+10*i);

Writeln(‘S=’,S);

End.

2. P=1·3·5·…·23 ko’paytmani hisoblash dasturini tuzing.

Program kupaytma;

Var I,P: intrger;

Begin P:=1;

For I:=1 to 12 do P:=P*(2*i-1);

Writeln(‘P=’,P);

Readln; end.

3. A[1..15] massiv berilgan. Massivni toq indeksli elementlarini yig’indisidan juft indeksli elementlarini yig’indisini ayirib chiqaruvchi dastur tuzing.

Program massiv;

Var a: array[1..15] of integer;

S1,S2, I: integer;

Begin

For I:=1 to 15 do begin write(I,’-elementni kiriting: ’); readln(a[I]);end;

For I:=1 to 15 do

If odd(i) then s1:=S1+a[I] else s2:=s2+a[i];

Writeln(‘S1-S2=’,s1-s2);

Readln; end.

V. Uyga vazifa

2. e) f)