Tasdiqlayman: O`ib direktor o`rin bosari Sana IX- sinflar

Mavzuni mustahkamlash va yakunlash:
O‘quvchilarga darslikdagi savollar orqali murojaat etiladi va mashqlar yechish asosida mavzu mustahkamlanadi.
Uyga vazifa:
1. Darslikdagi 2-, 4-mashqlar.
2*. Darslikdagi 6-, 7-mashqlar.

Tasdiqlayman O`IB direktor
o`rin bosari_________________

Sana _____________IX- sinf

43– dars. Takrorlash darsi

Dars maqsadi:
O‘quvchilarni Paskalning bo‘yalgan shakllar chizish operatorlari bilan tanishtirish.
Asosiy tushunchalar:
Bo’yash usuli (yopiq sohani rang bilan qoplash usuli).
Mavzuni boshlashga hozirlik:
O‘qituvchi tomonidan kompyuterlar ishga tayyorlanadi. Paskal dasturlash tili dasturi, mavzuga oid elektron qo’llanmalar va plakatlar tayyorlab qo‘yiladi.
Mavzuni yoritish:
Dars nazariya va amaliyotning uyg’unligi shaklida olib boriladi.
Biror chegaralangan sohani bo’yashda uni faqat biror rang bilan to’liq qoplash emas, balki biror rangli chiziqlar bilan har xil usulda (gorizontal chiziqlar, vertikal chiziqlar, katak chiziqlar va h.k) qoplash mumkin. Paskal dasturlash tili dasturchiga shunday imkoniyatni ham beradi. Darslikda chegaralangan sohani rang bilan qoplashning turli usullari va bu usullarning kodlari keltirilgan.
Ichi turli rang va usulda bo’yalgan shakllarni hosil qilishni quyidagi dasturlar orqali namoish etish mumkin:
Ichi turli rang va usulda bo’yalgan to‘g‘ri to‘rtburchak hosil qilish dasturi:
Program Turtburchak;
Uses Graph;
Var gd, gm : Integer;
rang, usul : Integer;
Begin
Gd:=Detect; InitGraph(gd,gm,’’);
SetFillStyle(2, 4);
Bar(10,10,400,300);
Repeat
Write(‘rang=’); ReadLn(rang);
Write(‘usul=’); ReadLn(usul);
SetFillStyle(usul,rang);
Bar(10,10,400,300);
Until rang=0;




CloseGraph;
End.
Avval ekranda rasmda ko’rsatilgan shakl hosil bo’ladi. So’ngra turli rang va usul kodlarini kiritib, berilgan to’g’ri to’rtburchakni turli rang va usulda bo’yalishini kuzatish mumkin. Dastur ishini yakunlashi uchun rang kodi sifatida 0 kiritilad.
Ichi turli rang va usulda bo’yalgan parallelepiped hosil qilish dasturi:
Program Parallelepiped;
Uses Graph;
Var gd, gm : Integer;
rang, usul : Integer;
Begin
Gd:=Detect; InitGraph(gd,gm,’’);
SetFillStyle(1,9);
Bar3D(100,100,200,300,50,True);
Write(‘rang=’); ReadLn(rang);
Write(‘usul=’); ReadLn(usul);
SetFillStyle(usul,rang);
Bar3D(100,100,200,300,50,True);
Until rang=0;
CloseGraph;
End.
Avval ekranda rasmda ko’rsatilgan shakl hosil bo’ladi. So’ngra turli rang va usul kodlarini kiritib, berilgan parallelepipedni turli rang va usulda bo‘yalishini kuzatish mumkin. Dastur ishini yakunlashi uchun rang kodi sifatida 0 kiritiladi.