InfoHub Logo

Mańǵystaý aýdany, Tushshyqudyq aýyly.
Informatıka páni muǵalimi Kenebaeva J.

Informatıka 8 - synyp
Sabaqtyń taqyryby: Sıkldiń alǵy sharty
Sabaqtyń taqyryby: Oqýshylarǵa Pascal programmalaý sıkldik algorıtmderdi programmalaý týraly túsinik berý - sıkldiń túrimen tanystyrý operatorlardyń jazylý erejesin túsindirý.
Kórnekilikter: Oqýlyq dıdaktıkalyq materıaldar
Kútiletin nátıje:
 While, do operatorlaryn biledi;
 Sıkldiń jazylý túrimen tanysady;
 Algorıtmin qura alady.
 Qysqa sóıleýge úırenedi;
Qoldanylatyn ádis - tásilder: Toptyq jumys, STO, dıalog, jeke jumys, Túrtip alý ádisi.
Qadamdar:
1. Uıymdastyrý
2. Úı tapsyrmasyn tekserý (kompúterge salyp, nátıjesin kórsetý)
3. Toppen jumys
4. Refleksıa
5. Baǵalaý

Blým júıesi: Topqa bólý

İ. Bilý. «Mıǵa shabýyl»
Suraqtary:
1. Algorıtmniń tolyq jáne qysqasha sharttary qandaı?
2. Sıkldik algorıtm dep neni aıtamyz?
3. Sıkldik algorıtm operatorlary qandaı

İİ. Túsiný.
Aldyn ala berilgen shart boıynsha qaıtalaý. Eger esepte qaıtalanýdyń sany belgisiz bolsa, aldyn ala berilgen shart boıynsha qaıtalaý operatory qoldanylady. Túıindi sózderi While – ázirshe, do – oryndaý. Shart While sózinen keıin jazylady, do – dan keıin sıkl denesi jazylady. Jalpy jazylý túri:
I:=m1;
While i≤(≥) m2 do
Begin
;
…
;
I:=i+(-) m3
End;
Algarıtmdik tilde
ázir shart
sb
sıkl denesi
ss

İİİ. Qoldaný. Jańa taqyrypty ózdiginen meńgerý.
Mysal: bútin sandardyń qosyndysyn tabý programmasyn quryńyz.
program esep2;
var s, i, n: integer;
begin
s:=0; i:=1;
write ('butin san engiz');
read(n);
while i<=n>
begin
s:=s+i; i:=i+1;
end;
write ('kosyndy s=', s);
end.

butin san engiz5
kosyndy s=15

IV. Taldaý. Oı tolǵanys 1. Taq sandardyń kvadrattar kestesiniń programmasyn qurý kerek.
program esep2;
var x, y: integer;
begin
x:=1;
while x<=15>
begin
y:=sqr(x);
x:=x+2;
writeln ('x=', x, ' ', 'y=', y);
end;
end.

x=1 y=1
x=3 y=9
x=5 y=25
x=7 y=49
x=9 y=81
x=11 y=121
x=13 y=169
x=15 y=225

Sandardyń kýbtaryn kestesin qurý.
program esep2;
var a, b: integer;
begin
a:=- 10;
while a<=10>
begin
b:=a*a*a;
writeln ('a=', a, 'b=', b);
a:=a+2;
end;
end.

a=- 10b=- 1000
a=- 8b=- 512
a=- 6b=- 216
a=- 4b=- 64
a=- 2b=- 8
a=0b=0
a=2b=8
a=4b=64
a=6b=216
a=8b=512
a=10b=1000