Сабақ 1 Мектеп: Қатысқандар саны: Қатыспағандар саны: Сабақтың тақырыбы

жүктеу/скачать 23,63 Mb.

бет	57/85
Дата	03.10.2023
өлшемі	23,63 Mb.
	#112786
түрі	Сабақ

1 ... 53 54 55 56 57 58 59 60 ... 85

Program esep3;
Var m: Integer;
z:real;
BEGIN
m:=100;
while m<1000 do
begin
z:=(300*m)/1000;
WriteLn(m, ‘ | ‘,z , ‘ тг.’);
m:=m+100;
end;
END.
Программа нэтижесі:
100 | 30 тг.
200 | 60 тг.
300 | 90 тг.
400 | 120 тг.
500 | 150 тг

Program esep4;
Var m: іnteger;
z:real;
BEGIN
m:=100;
REPEAT
z:=(300*m)/1000;
WriteLn(m, ‘ | ‘,z , ‘ тг.’);
m:=m+100;
until m>1000
END.
Программа нэтижесі:
100 | 30 тг.
200 | 60 тг.
300 | 90 тг.
400 | 120 тг.
500 | 150 тг

Оператор

Repeat
<оператор 1>;
<оператор 2>;
жоқ ......
<оператор n>
иә UNTIL < шарт >
Оқушылар жаңа сабақ тыңдайды
ә)компьютермен жұмыс
№1 тапсырма. Жеке тапсырма.
1-ден n-ге дейінгі сандардың 1-ден n-ге дейінгі сандардың
қосындысын табыңыз. Ол үшін қосындысын табыңыз. Ол үшін
төмендегі схеманы пайдаланыңыз төмендегі схеманы пайдаланыңыз
Prog…….esep01;
v…..integer;Prog…….esep02;
b…… v…..integer;
s:=0; b……
w….. s:=0; i:=1;
read…. W….. (‘’);
For……… r…..
b….. while i<=n …
s:=……. b……
end; s:=s+I; i:=i+1;
w…….. e…
e….. w
e…..
1-ден n-ге дейінгі сандардың қосындысын табыңыз. Ол үшін
төмендегі схеманы пайдаланыңыз
Prog……esep03;
v…..integer;
b……
s:=0; i:=0;
w…(‘’);
r…..
repeat
s:=s+I; i:=i+1;
until (i>n);
w……
e…..
№2 тапсырма. Топтық тапсырма. Әр топқа тапсырма беріледі, есептің блок-сызбасын постер арқылы қорғайды, программмасын компьютерде орындайды
1. фукциясын есептеу блок-сызбасын және программасын құрыңдар

Program E

Var x,y: real;
Begin
Write (`x-ті енгізіңдер: `);
Readln (x)
If x<0
Then y: =x+2
Else y: =2*x*x*x
Writeln (`y=`, y)
End.
2.Радиусы R болатын шеңбер ұзындығын есептеу блок-сызбасын және программасын құрыңдар

Program B1;

Const pi= 3.14159;
Var R, L: real;

Begin
Writeln (`R мәнін енгізіңдер:` );
Read (R)

L: = 2πR

;
L: = 2 * pi * R;
Writeln;

Writeln (‘нәтиже:' );
Writeln ( L = `, L);
End.

3.Квадрат теңдеудің түбірін табудың блок-сызбасын және программасын құрыңдар

Иә жоқ

Program B5;

Var a, b, c, x1, x2, d : real;
Begin
Writeln ( `a, b, c мәндерін енгізіңдер:`);
Readln (a, b, c);
d: = sqr (b) – 4*a*c;
if d < 0 then
writeln (нақты түбірі жоқ)
else
begin
x1: = (-b + sqrt (d)/(2*a);
x2: = (-b - sqrt (d)/(2*a);
write (x1: 6: 2, x2:6: 2)
end
end.

Деңгейлік тапсырмалар, үлестірме карталармен жұмыс

Сергіту сәті
Сұрақ парақшалары.
Оқулық, дәптерлер.
Ойын ойнайық.

Сабақтың соңы
2 минут

0-нан 50-ге дейінгі жұп сандардың
қосындысын табу программасын құрастыру
Program summa2;
Uses crt;
Var i: integer; (і - есептеуіш)
S: integer; (S – қосынды)
Begin
Clrscr;
i:=10;
S:=0;

Рефлексия
Чемодан (маған қажет),
Еттартқыш (қайта қарастыру қажет),

Қоқыс жәшігі (маған қажет емес)

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

Үй тапсырмасы:

Смайликтер

Дифференциация – оқушыларға көбірек қолдау көрсетуді қалай жоспарлайсыз? Қабілеті жоғары оқушыларға қандай тапсырмалар қоюды жоспарлап отырсыз?

Бағалау – оқушылардың материалды меңгеру деңгейін тексеру жоспарыңыз?

Сөйлеу-речи-speeches

Пәнаралық байланыс
Денсаулық және қауіпсіздік техникасының сақталуы

АКТ
Құндылықтармен байланыс (тәрбие)

Қолдау көрсету.
Қабілеті жоғары оқушылар айтылған сөздер мен сөйлемдердің көпшілігін дұрыс қайталай алады.

Оқушылар өздері жасаған бет-бейнелеріне қарап бір-біріне көңіл- күйлерін айтады. (қуанышты, көңілді, көңілсіз, ашулы)

Өнер, ана тілі сабағы
Оқушыларды бір-біріне деген құрмет көрсетуіне тәрбиелеу.

Сабақ:Информатика

Мектеп :

Мұғалімнің аты-жөні

Күні:

Қатысқандар саны:

Сыныбы: 8

Қатыспағандар саны:

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

Алғы шартты цикл. WHILE операторы

Осы сабақта қол жеткізілетін оқу мақсаттары (оқу бағдарламасына сілтеме)

8.3.3.1 таңдау және қайталау операторларын программаны өңдеудің кіріктірілген ортасыныңда қолдану

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

Барлығы: While .. do операторы туралы түсінік беру.Әзір-қайталаукомандаларын Паскаль опереторында программалауды үйренеді, пысықтау
Көбі: Программаныықшам, сапалы жаз удағдысын қалыптастыру. Программаның математикалық моделі туралы түсінік қалыптастырады.
Кейбірі: Анық және толық сөйлеу арқылы, мәселені түсінгенін көрсетеді.

Жетістік критерийлері

Барлық оқушылар орындай алады.
While .. do операторы туралы түсінік алады.
While .. do операторға есептер шығара алады.

Көпшілік оқушылар орындай алады.
Паскаль программасының құрылымын біледі.
Программа құра алады.

Кейбір оқушылар орындай алады.
Терминдерді жатқа айта алады.

Құндылықтарды дарыту

Оқушыларды бір-біріне деген құрмет көрсетуіне тәрбиелеу.

Пәнаралық байланыс

ағылшын тілі,

Акт қолдану дағдылары

Компьютер, интерактивті тақта

Бастапқы білім

Графикалық режим туралы сұрақ –жауаптар. While .. do операторы туралы түсінік.

Сабақ барысы

Сабақтың жоспарланған кезеңдері

Сабақтағы жоспарланған іс-әрекет
Ұйымдастырылуы кезеңі
1.Оқушылармен сәлемдесу
2.Келмеген оқушыларды белгілеу
3.Сабаққа дайындығын,құралдарын тексеру.

Ресурстар

Сабақты басы
5 минут

Ертеңгілік шеңбері
Таңғы шеңберде тұрған оқушылар бір-бірімен «Сәлем!»деп амандасады.
Үйтапсырмасы: «Ойқозғау»
Өткен материалды қайталау сұрақтары

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

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

Шаттық шеңбері

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

Жаңа сабақты түсіндіру.
Паскаль тілінде қайталау процесін жүзеге асыратын циклдік операторлардың үш түрі бар: арифметикалық цикл –FOR, шартты алдын ала тексеретін цикл –While және шартты соңынан тексеретін цикл –Repeat.
Егер шарт алдын ала циклдегі операторды (немесе құрама операторды) неше рет қайталау керек екендігі белгісіз болып, оның тек қайталану (аяқталу) шарты берілсе, онда While, Repeat операторлары пайдаланылады. Ал FOR операторы қайталану саны алдын ала белгілі болған кезде қолданылады.
While операторы.
Алдын ала берілген шарт бойынша қайталануды жүзеге асыратын бұл оператор While (оқылуы: уаил, аударылуы: әзірше) және DO (оқылуы: ду, аударылуы: орындау) түйінді сөздері қолданылып орындалады.

Program esep1;
uses graphabc;
vari,r,k:integer;
s:string;
begin
lockdrawing;
r:=200; k:=0;
for i:=1 to 10 do
begin
if i mod 2=0 then setbrushcolor(clred)
else setbrushcolor(clwhite);
circle(200,200,r-k);
str(i,s);
textout(6+k,194,s);
k:=k+20;
redraw;
end;
end.

№	Түрлері	Блок схемасы	Алгоритмдік тілдегі жазылуы	Бағдарламалау тілінде
1	Шартын алдын ала тексеретін цикл.		әзір шарт цб цикл денесі цс

жүктеу/скачать 23,63 Mb.

Достарыңызбен бөлісу:

1 ... 53 54 55 56 57 58 59 60 ... 85