1- dars. Mavzu: Masalalarni kompyuterda yechish bosqichlari

NOT - "emas", AND - "va", OR - "yoki" mantiqiy amallarini qoilash va ularning bajarilish ketma-ketligi. Matematik misol va masalalarni yechish uchun ulardan foydalanib tarmoqlanuvchi dasturlar tuzish.

O'quv jarayonini amalga oshirish texnologiyasi	Uslub: Aralash. Shakl: Savol-javob. Jamoa va kichik guruhlar- da ishlash Vosita: Elektron resurslar, darslik, plakatlar, tarqatma materiallar. Usui: Tayyor prezentatsiya va slayd material- lari asosida. Nazorat: Og'zaki, savol-javob, muhokama, kuzatish. Baholash: Rag'batlantirish, 5 ballik reyting tizimi asosida.
Kutiladigan natijalar	O'quvchilarning kompyuter imkoniyatlari to'g'risidagi bilim va ko'nikmalari rivojlanadi. Dasturlashda mantiqiy amallardan foydalanish malakasi hosil bo'ladi. Tarmoq­lanuvchi dasturlar tuzish malakasi shakllanadi.
Kelgusi rejalar (tahlil, o'zgarishlar)	O'qituvchi o'z faoliyatining tahlili asosida yoki ham- kasblarining dars tahlili asosida keyingi darslariga o'zgartirishlar kiritadi va rejalashtiradi.

Darsning borishi va vaqt taqsimoti

	Dars bosqichlari	Vaqt
1	Tashkiliy qism	3 daqiqa
2	O'tilganlarni takrorlash	7 daqiqa
3	Yangi mavzu ustida ishlash	14 daqiqa
4	Yangi mavzuni mustahkamlash	13 daqiqa
5	Uyga vazifa	3 daqiqa

O’tilgan mavzuni 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 misollar keltiring.
4. Mantiqiy ifodada amallarning bajarilish tartibini tushuntirib bering.
5. Mantiqiy ifodada qachon qavslar qo'llaniladi?


Yangi mavzu bayoni.
1. Murakkab mantiqiy amallar natijasini aniqlang.
a) a:=true; b:=true; m:=false; bb:=NOT(a AND m) AND (a OR
b) OR m;
b) a:=77; b:=ll; m:=7; ms:= (a div b=m) AND (a mod m=0)AND NOT((a>b) OR(b

2. Tarmoqlanish natijasida hosil bo'ladigan qiymatlarni aniqlang.

a) x:= -1; y:=0; a:= 0.1; IF (x*x +y >0) AND (a=l/10) THEN
mm:=true else mm:= false;
b) xl:=sqr(~l); v:= *h a'; x2:=sqrt(xl); IF (v= 'ha') AND (xl>0)
AND (x2>0) THEN xl:=0;

3. Uchta a, b va c son berilgan. a

Program m3;

Var a,b,c: real;
Begin
Write(` ani kiriting:`); readln(a);
Write(` b ni kiriting:`); readln(b);
Write(` c ni kiriting:`); readln(c);
If(aEnd.

4. Berilgan A butun son berilgan B butun songa qoldiqsiz bo'linsa, bu ikkala sonning yig'indisi kvadratini, aks holda ko'paytmasini chiqaruvchi dastur tuzing.

Program m3;

Var a,b,c: integer;
Begin
Write(` ani kiriting:`); readln(a);
Write(` b ni kiriting:`); readln(b);
Write(` c ni kiriting:`); readln(c);
If B<>0 then begin
If mod B=0 then
S:=sqr(a+b)else S:=A*B;
writeln(`javob:`,S); end else writeln(`hisoblab bo`lmaydi`); readln;
End.

3. 
   Berilgan butun N son musbat va 5 ga karrali bo'lsa, shu sonning kvadrat ildizini, aks holda kvadratini hisoblash dasturini tuzing.
   

Program m3;
Var N: integer;
K: real;
Begin
Write(` N ni kiriting:`); readln(N);
If(N>0) and (N mod 5=0) then K:=sqrt(N) else K: sqr(N);
writeln(`javob:`,K: 0:3); readln;
End.