Циклдің ілесу шарты.

№22 сабақ

Сыныбы:  9 «А», 9 «Б», 9 «В»                                                         Күні: 29.01.18ж

Сабақтың тақырыбы:     Циклдің ілесу шарты.

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

Білімділігі:  Оқушыларды Паскаль тілінің шартты соңынан тексеретін қайталау  - REPEAT операторымен таныстырып, программа құруға дағдыландыру;

Тәрбиелік:Оқушыларды тиянақтылыққа, ұқыптылыққа тәрбиелеу.

Дамытушылығы: Оқушылардың паскаль программалау тілінде есеп шығару мүмкіндіктерін, логикалық ойлау қабілеттерін дамыту;

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

Әдісі: Көрсете- баяндау, пікірлесе- түсіндіру.

Сабақтың көрнекілігі: ДК, оқулық, үлестірмелі тапсырмалар

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

I.Ұйымдастыру

-Оқушылармен сәлемдему;

-Оқушыларды түгендеу;

-Оқушылардың назарын сабаққа аудару;

-Компьютердің дайындығын бақылау,техника қауіпсіздігін ескерту.

IV.Жаңа сабаққа дайындық кезеңі

• Қайталау операторлары не үшін қолданылады?
• Цикл дегеніміз не?
• Қайталау операторларының қанша түрі бар?

*    WHILE  қандай  оператор?

V.Жаңа материалды түсіндіру

      REPEAT  қайталу операторы WHILE операторына ұқсас, айырмашылығы – қайталану шарты цикл соңында тексеріледі,  сондықтан ол кем дегенде бір рет орындалатын болады. Екінші  өзгешелігі – цикл тұлғасы шарт жалған болғанда қайталанып, ол ақиқат болған кезде циклді орындау доғарылады. 

      Бұл оператор Repeat (оқылуы: рипит, қайталау болып аударылады) және Until  (оқылуы: антил, дейін, шейін болып аударылады)  түйінді сөздерін пайдаланып орындалады.  

VI.Жаңа сабақ бойынша түсініктерін тексеру

• Қайталау операторлары не үшін қолданылады?
• Цикл дегеніміз не?
• Қайталау операторларының қанша түрі бар?
• REPEAT қандай оператор?
• REPEAT операторының  жалпы жазылу түрі қандай?

VII.Сабақты бекіту

Компьютермен жұмыс

№1   Р=1*2*3 … * N  N !   факториалды табу программасын жаз.

            Program fakt;

      Var I,n,p:integer;

      Begin

            WriteLn ('n=');

            ReadLn(n);

            I:=1;

            P:=1;

      Repeat

            P:=p*1;

            I:=i+1;

      Until i>n;

      Writeln(p:4);

End.

№2.   у  =3x+1   x  €[1 ; 2 ],  h =0,5  өрнегін  WHILE, REPEAT операторларын пайдаланып  программа құр.

Program ytabu;

Var x , y : real ;

Begin

X:=-1;

Repeat

Y:= 3*x+1;

WriteLn (' y = ' , y);

X:=X+0.5;

Until x>2;

End.

№3.    x  €[1 ; 3 ]  аралығында 0,2 қадаммен өзгергендегі    y=   функциясының мәнін тап.

Program esep;

      Var x, y: real;

      Begin

      X:=1;

      repeat

      y:=sqrt (x+1)-1/x;

      Writeln ( x:3, y:5);

      x:=x+0.2;

until x>3;

Readln;

end.

VIII.Үйге тапсырма беру кезеңі:  Циклдің ілесу шарты.