Паскаль тіліні? шшартты со?ынан тексеретін ?айталау операторы – REPEAT.

Класы: 9 «А»

Сабақтың тақырыбы: Паскаль тілінің шартты соңынан тексеретін қайталау

операторы – REPEAT.

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

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

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

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

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

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

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

2. Үй тапсырмасын тексеру

3. Жаңа сабақты түсіндіру

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

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

6. Үйге тапсырма

Өткен материалды қайталау сұрақтары

• Қайталау операторлары не үшін қолданылады?

• Цикл дегеніміз не?

• Қайталау операторларының қанша түрі бар?

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

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

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

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

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

№12 Р=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 in;

Writeln (p:4);

End.

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

Program y-tabu;

Var x , y : real ;

Begin

X:=-1;

Repeat

Y: = 3*x+1;

WriteLn (‘ y = ‘ , y);

X:=X+0,5;

Until x2;

End.

№14. 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 x3

readln;

end.

Сабақты бекіту сұрақтары

• Қайталау операторлары не үшін қолданылады?

• Цикл дегеніміз не?

• Қайталау операторларының қанша түрі бар?

• REPEAT қандай оператор?

• REPEAT операторының жалпы жазылу түрі қандай?

Үйге тапсырма: REPEAT операторы.

Күні:24.11.2014ж

Класы: 9 «А

Сабақтың тақырыбы: Паскаль тілінің операторларына арналған практикалық жұмыс

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

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

Дамытушылығы: Паскаль тілінің операторларын пайдаланып программа құра отырып оқушыларды өз беттерімен программа құруға дағдыландыру, логикалық ойлау қабілеттерін дамыту.

Тәрбиелік: Оқуыларды адамгершілікке, патриоттыққа, ұқыптылық жауапкершілдікке тәрбиелеу.

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

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

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

2. Өткен материалды қайталау

3. Практикалық жұмыс

5. Үйге тапсырма

Өткен материалды қайталау сұрақтары

• Қайталану операторларға қандай операторлар жатады?

• Олар неше топқа бөлінеді?

• Қарапайым және құрылымдық операторлардың айырмашылығы неде?

• Паскаль тілінде операторлық жақша дегеніміз не?

• Шартты оператордың қандай түрлері бар?

• Іf операторының жалпы жазылу түрі қандай?

• Таңдау операторы не үшін пайдаланылады?

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

№1. 1- ден 100-ге дейінгі сандарды экранға шығаратын программа құрыңдар.

Program san;

Var i: integer;

Begin

Wtiteln (‘ 1- den 100- ge dein butin san’);

Writeln;

For i:=1 to 100 do

Write (i:4);

End.

№2. 30-дан 10-ға дейінгі барлық жұп сандарды экранға шығаратын программа құрыңдар.

Program jup;

Var i: integer;

Begin

Writeln (’30-dan 10-ga deingi jup san’);

For i:=30 downto 10 do

If I mod 2=0 then

Writeln (i);

End.

№3 1-ден n – ге дейінгі сандардың квадраттарының қосындысын табатын программа құру керек.

Program kvadrat;

Var s, i , n: integer;

Begin

WriteLn (‘ n = ’) ;

Readln (n);

I:=1;

S:=0;

While i

Begin S:=S + sqr (i);

I:= i+1;

WriteLn (‘ S=’ , S);

End;

End.

№4. Y= e^x sinx+cosx функциясының мәндерінің [a, b] аралығында h қадамы бойынша өзгеру кестесін құратын программа құрыңдар.

Program y- tap;

Var x, y, a, b, h: real;

Begin

WriteLn (‘ a , b , h -? ’);

ReadLn (a, b , h);

X:= a;

While x

Begin

Y:=exp (x) * sin (x) + cos(x);

WriteLn (‘x=’, x:5:2, ‘, ‘ , y= ‘, y:5:2);

X:=x+h;

End;

End.

№5. Үш санның кішісін табатын программа құру керек.

Program min;

Var a, b, c, x, min : integer;

Begin

Readln (a, b, c);

If a