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

Usul: slayd materiallari
Nazorat: og’zaki, savol-javob va kuzatish.
Baholash: Rag’batlantirish, 5 ballik reyting tizimi asosida
Asosiy tushunchalar:
Paskalda protsedura va funksiyalar
Tashkiliy qism:
a)salomlashish
b)davomatni aniqlash
v)siyosiy daqiqalar
O’quvchilar bilan o’tgan mavzuni savol javob va test usulida takrorlash, uyga berilgan topshiriq va vazifalarni tekshirish hamda baholash.


Asosiy tushunchalar:
Protsedura va funksiyalar, parametrli protsedura va funksiyalar.
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.
Savol – javob usulida Paskalning standart protsedura va funksiyalari va ularning vazifalari esga olinadi. Protsedura bilan funksiyaning farqi yana bir bor aniqlab olinadi.

Darslikda takrorlash uchun berilgan masalalar yechimlari

1. 
   Tomonining uzunligi a ga teng kvadrat va unga ichki chizilgan aylana chizish dasturi tuzilsin. a ning qiymati klaviaturadan kiritilsin.
   

Program Kvadrat_va_aylana;
Uses Graph;
Var gd, gm : Integer;
a, r, x, y : Integer;

Begin

Gd:=Detect;
Write(‘a=’); ReadLn(a); r:=a div 2;
x:=9+r; y:=9+r;
InitGraph(gd,gm,’’);
Rectangle(10,10,9+a,9+a);
Circle(x, y, r);
ReadLn;
CloseGraph;
End.

2. 
   Radiusi R ga teng aylana va unga tashqi chizilgan kvadrat chizish dasturi tuzilsin. R ning qiy­mati klaviaturadan kiritilsin.
   

Program Aylana_va_kvadrat;
Uses Graph;
Var gd, gm : Integer;
a, r, x, y : Integer;

Begin

Gd:=Detect;
Write(‘r=’); ReadLn(r); a:=r+r;
x:=MaxX div 2; y:=MaxY div 2; {ekran markazi}
InitGraph(gd,gm,’’);
Circle(x, y, r);
Rectangle(x-r, y-r, x+r, y+r);
ReadLn;
CloseGraph;
End.

3. 
   Ko‘k fonli ekranni oralig‘i 20 piksel bo‘lgan vertikal oq chiziqlar bilan to‘ldiring.
   

Program Vertikal_chiziqlar;
Uses Graph;Var gd, gm : Integer;
x, y : Integer;

Begin

Gd:=Detect; InitGraph(gd,gm,’’);
SetBkColor(Blue); SetColor(White);
x:=-20;
While x<=MaxX Do
begin
x:=x+20;
Line(x, 0, x, MaxY );
end;