Циклға есептер шығару

Сабақтың тақырыбы: Циклға есептер шығару.
Сабақтың мақсаты:
Білімділік: Қайталау операторлары туралы түсінікті бекіту.
Дамытушылық:Ойлау қабілетін дамыту, алға қойған мақсатқа жетуге тәрбиелеу.
Тәрбиелік: Есте сақтау қабілетін дамыту.
Сабақтың типі: білімді жүйелеу сабағы
Сабақтың әдісі: эвристикалық – зерттеушілік
Сабақтың түрі: деңгейлік тапсырма, тесттік бағдарлама
Сабақтың көрнекілігі:
1. компьютер
2. интерактивті тақта
3. тесттік бағдарлама
Сабақтың жүрісі:
І. Ұйымдастыру. Оқушылармен амандасып, оқушылардың сабаққа қатысын тексеру
(3 мин)
ІІ. 1. Үй тапсырмасын оқушыларға төмендегі сұрақтарды қою арқылы қайталау.
(5 мин)

А) Таңдау операторында қандай қызметші сөз қолданылады?
Ә) Қандай қайталау операторларын білесің?
Б) Reрeat және while операторларының айырмашылығы неде?
В) For операторының жалпы өрнектелуін айт.
Г) Программа қандай қызметші сөзден басталады?
2. Интерактивті тақтаны қосып, сабақтың тақырыбын «Циклға есептер шығару»
деп жазып қою. (1 мин)
3. Циклға деңгейлік есептер шығару. (35 мин)
Есептің берілгенін тақтаға (слайд түрінде) жазып қою. Әр оқушы Pascal
программалау тілінің көмегімен есепті орындарынан орындап кейін нәтижесін
көрсетеді.
Кейін интерактивті тақтаның проетор құрылғысымен есептің дұрыс шешімін
оқушыларға көрсету. Кей есептерді оқушылар тақтаға орындап, кейін келесі
оқушы оның кейбір қателері болса интерактивті тақтаның мүмкіндіктерін
пайдалана отырып түзейді.
1 – деңгейдің тапсырмасы: Алғашқы 10 натурал санның көбейтіндісін табыңдар.
Есептің шешімі:
Program esep1;
Var i,P:integer;
Begin
P:=1;
For i:=1 to 10 do
P:=P*i;
Writeln(P);
End.
2 – деңгейдің тапсырмасы: Барлық 3 таңбалы сандар ішінен 4 – ке бөлінетін
сандардың нешеу екенін анықтаңдар.
Есептің шешімі:
Program esep2;
Var i,k:integer;
Begin
For i:=100 to 999 do
Begin if i mod 4 =0 then k:=k+1;
End;
Writeln(k);
End.
3 – деңгейдің тапсырмасы. Ақпараттық өлшемі 100 байттан 200 байтқа дейін 1
қадаммен өзгерген мәндері үшін килобайт, мегабайтпен өрнекте.
1 байт = 1024 байт

Есептің шешімі:

Program esep3;
Var i:integer;
K,m:real;
Begin
I:=100;
While I<=200 do
Begin
K:=I/1024;
M:=I/(1024*1024);
End;
Writeln(K,m);
End.
4. Кейін Reрeat және whileоператорларына берілген есептің бөліктерін
интерактвті тақтадан көрсету. Компьютерсіз ауызша есептегенде
нәтижесі нешеге тең болатынын тез айтулары керек. Жауапты
интерактивті тақтаның мүмкіндігін пайдалана отырып жасырып қоя
тұрады. (15 мин)
1 – есеп:

S:=1;
X:=1;
While X<5 do
Begin
S:=S*x;
X:=x+1;
End;
Writeln(s);
Нәтижесі: s=24

2 – есеп:
p:=0;
X:=1;
While X<5 do
Begin
P:=p+x;
X:=x+1;
End;
Writeln(p);
Нәтижесі:p=10

3 – есеп:
p:=1;
X:=1;
While X<8 do
Begin
P:=p+x;
X:=x+2;
End;
Writeln(p);
Нәтижесі: p=13
4 – есеп:
S:=1;
X:=2;
repeat
S:=S*x;
X:=x+2;
Until x>6;
Writeln(s);
Нәтижесі: s=13
5 – есеп:
p:=1;
X:=2;
repeat
p:=p*x;
X:=x+2;
Until x>6;
Writeln(p);
Нәтижесі: p=48
6 – есеп:
p:=0;
X:=10;
While X<6 do
Begin
P:=p+x;
X:=X-2;
End;
Writeln(p);
Нәтижесі: p= 0

7 – есеп:
p:=0;
For x:=6 to 10 do
p:=p+x;
Writeln(p);
Нәтижесі: p=

5. Pascal программалау тілі бойынша 20 сұрақтан тұратын тестті
activboard – тің көмегімен орындау. Оқушылар тесттің нәтижесін
барлық сұраққа жауап беріп болған соң көреді. (15 мин)

ІІІ. Үй тапсырмасы ретінде тақырыпты оқып келуді беру. (2 мин)
ІV. Оқушыларды бағалау. (4 мин)
V. Сабақты аяқтау