Сабақтың тақырыбы:      Геометриялық фигураларды  қайталау операторлары арқылы  көбейту.

Сабақтың мақсаты:         

Білімдік: АВС Pascal  програмалау тілінің графикасында геомериялық фигураларды қайталау операторлары арқлы көбейту.

Дамытушылық: АВС Паскаль тілінде әртүрлі стильдерді пайдаланып, суреттердің программаларын қайталау операторларын пайдаланып, құру арқылы оқушылардың білімдерін дамыту.

Тәрбиелік: Өз бетімен өткен тақырыптарды пайдаланып шығармашылық  жұмыс жасау.

Сабақтың түрі:  аралас сабақ

Сабақта қолданылатын әдістер:  баяндау,  бейнелік

Сабақта қолданылатын құрылғылар: компьютерлер.

Пән аралық байланыс   геометрия, ағылшын тілі

Сабақтың барысы

І. Ұйымдастыру кезеңі

II.Өткенді қайталау.

1. Шеңбер  қандай оператордың көмегімен салады?
2. Нысандардың, геометриялық фигуралардың іштерін қалай  бояйды?
3. Қандай қайталау операторларын білесіңдер?
4. Аймақты қалай  бояйды?
5. Нысандарды байланыстыру қалай  іске асады?

IIІ. Жаңа сабақтарды түсіндіру:

Мысалы  шеңбер салуды қайталайық:

USES         GraphABC;

 BEGIN

   Circle(150,100,40);

  END.

Ал енді  шеңберді repeat қайталау  операторының көмегімен салып көрейік:

   USES GraphABC;

   VAR  x:Integer;

    BEGIN

        x:=150;

         repeat

            Circle(x,100,10);

            x:=x+200;

             until x>700;

         ReadLn;

    END.

 repeat қайталау  операторының көмегімен бірнеше ақ қалаларды салайық:

Ол үшін  х-тері бірдей,  бірақ  у-тері және радиустері әртүрлі  шеңберлер салайық.

USES         GraphABC;

VAR                    x:Integer;

BEGIN

         x:=150;

         repeat

                   Circle(x,100,10);

           Circle(x,128,20);

    Circle(x,188,40);

           x:=x+200;

   until x>700;

         ReadLn;

 END.

Енді екі қолымен  аяқтарын салайық.

USES GraphABC;

VAR               x:Integer;

BEGIN

            x:=150;

            repeat

            cls;

                        Circle(x,100,10);

              Circle(x,128,20);

    Circle(x+25,130,5);

              Circle(x-25,130,5);

              Circle(x+20,232,9);

              Circle(x-20,232,9);

    Circle(x,188,40);

              x:=x+200;

   until x>700;

            ReadLn;

 END.

Енді  х-тің  мәндерін өзгерту арқылы суретте не өзгергенін тұсінеміз.

Қосымша қосуларыңызды  сұраймын.

Бағалау:

Үйге тапсырма: Тапсырма №12

 Шығармашылық жұмыс1.