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;
R
Begin
Writeln (`R мәнін енгізіңдер:` );
Read (R)
L: = 2πR
;
L: = 2 * pi * R;
Writeln;
L
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;
Осы сабақта қол жеткізілетін оқу мақсаттары (оқу бағдарламасына сілтеме)
8.3.3.1 таңдау және қайталау операторларын программаны өңдеудің кіріктірілген ортасыныңда қолдану
Сабақтың мақсаттары
Барлығы: While .. do операторы туралы түсінік беру.Әзір-қайталаукомандаларын Паскаль опереторында программалауды үйренеді, пысықтау
Көбі: Программаныықшам, сапалы жаз удағдысын қалыптастыру. Программаның математикалық моделі туралы түсінік қалыптастырады.
Кейбірі: Анық және толық сөйлеу арқылы, мәселені түсінгенін көрсетеді.
Жетістік критерийлері
Барлық оқушылар орындай алады.
While .. do операторы туралы түсінік алады.
While .. do операторға есептер шығара алады.
Көпшілік оқушылар орындай алады. Паскаль программасының құрылымын біледі.
Программа құра алады.
Кейбір оқушылар орындай алады. Терминдерді жатқа айта алады.
Құндылықтарды дарыту
Оқушыларды бір-біріне деген құрмет көрсетуіне тәрбиелеу.
Ертеңгілік шеңбері
Таңғы шеңберде тұрған оқушылар бір-бірімен «Сәлем!»деп амандасады.
Үйтапсырмасы: «Ойқозғау»
Өткен материалды қайталау сұрақтары
Қайталау операторлары не үшін қолданылады?
Цикл дегеніміз не?
Қайталау операторларының қанша түрі бар?
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.