9-сынып информатика: Жиымдар - практикалық сабақ және массивтермен жұмыс

Бөдене орта мектебі

9-сынып

Тақырыбы:

Өткізген: Иманбаева Ұлжамал Бақтығалиқызы

/информатика пәні мұғалімі/

Сабақтың тақырыбы: Жиымдар

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

білімділік: жиым элементтерін енгізіп, реттеуге программа құра

білуге үйрету

дамытушылық: жиымды сипаттау, жиым элементтерін реттеу, өңдеу

дағдысын дамыту

тәрбиелік: жүйелікке, дәлдікке, өз бетімен еңбектенуге тәрбиелеу

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

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

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

І Ұйымдастыру

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

Жиым деген не?
Жиымдар қалай сипатталады?
Жиымның керекті элементін қалай пайдаланамыз?

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

Қатемен жұмыс

Х(n) жиымы берілген жиым элементтерін кері ретпен орналастыр.

Program ter;

Cons n=10;

Var

i, m, t:integer;

x:array[1. . n] of integer;

Begin

for i:=1 to n do begin

write (‘x[‘, I, ’] :=’) ; readln (a[i] ) ; end;

for i:= 1 to n mod 2 do begin

t:=x[i] ; x[i] :=x[m+1-i] ;

x[m+1-i] :=t;

end;

for i:=1 to m do

writeln(‘x[‘, I, ’] :=’, x[i] ) ;

end.

Деңгейлік тапсырма

А Х жиымының элементтерін 0-ге алмастыр.

Program pr;

Cons n=10;

Var

x:array[1. . 10] of integer;

i:integer;

Begin

i:=0;

while i<>10 do begin

i:=i+1;

x[i] :=0; end;

end.

Бүтін сандардан құралған х(n) жиымы берілген, элементтері х[1] ≤x[2] ≤…≤ х[n] мәні әртүрлі элементтердің санын анықтау керек.

Program mas;

Const n=100;

Var

i, k:integer;

x:array[1. . n] of integer;

Begin i:=0;

while i<>n do begin i:=i+1;

readln (x[i] ) ; end;

i:=1; k:=1;

while i<>n do begin i:=i+1;

k:=1;

while i<>n do begin

i:=i=1;

If x[i] <>[i-1] then begin k:=k+1; end; end;

Writeln (‘k=’, k) ; read (k) ;

end.

А(n) бірөлшемді жиымның элементтері 0, 1, 2-ге тең. Жиым элементтерінің реті 0-ге тең элементтермен, содан кейін мәні 1-ге тең элементтермен, сосын мәні 2-ге тең элементтермен орналастыру керек.

Program pereos;

Const n=50;

Type el=0. . 2;

Var

i, n:integer;

a:array[el] of el;

x:array[1. . n] of el;

Begin

For i:=1 to n do readln (x[i] ) ;

Writeln;

a[0] :=0; a[1] :=0; a[2] :=0;

for i:=1 to n do a[x[i] ] :=a[x[i] ] +1;

for i:=1 to n do

if i<=a[0] then x[i] :=0 else if i<=n-a[2] then x[i] :=1 else x[i] :=2;

for i:=1 to n do writeln (x[i] ) ; readln;

end.

Өз бетіндік жұмыс

Оқушыларға 4 түрлі тапсырма таратылды. Тапсырмаға он минут уақыт берілді. Уақыт біткесін әрбір оқушы қолындағы тапсырма вариантына байланысты топтасып, есептің шығарылымын талқылайды. Соңынан мұғалімнің берген жауабымен тексеріледі де, өз-өздерін бағалайды.

1-вариант

Кез-келген бірөлшемді а(10) жиымының оң элементтерін екі есе кемітіңдер, ал теріс элементтері болса, онда оларды индекстерінің мәнімен ауыстырыңдар.

2-вариант

Бірөлшемді а(10) жиымындағы теріс элементтердің ең үлкенін тап.

3-вариант

Бірөлшемді а(20) жиымындағы -5 тен кіші элементтердің қосындысын және олардың жалпы санын, сонымен бірге 5 санына қалдықсыз бөлінетін элементтердің нөмірлерін анықтаңдар.

4-вариант

Бірөлшемді а(10) жиымындағы оң элементтердің квадраттарының арифметикалық ортасын есептеңдер.

1-вариант

If a[i] >0 then a[i] :=a[i] mod 2 else a[i] :=i

2- вариант

Max:=a[1] ;

If (a[i] <0) and (a[i] >max) then max:=a[i] ;

3- вариант

K:=0; m:=0;

If a[i] < -5 then begin k:=k+a[i] ; m:=m+1; end;

If a[i] mod 5=0 then write(i) ;

4- вариант