Бір өлшемді массивтермен жұмыс істеу

Пәні: Информатика

Сыныбы: 9-сынып.

Сабақтың тақырыбы: Бiр өлшемдi массивтермен жұмыс істеу.

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

А)білімділік: Оқушыларды Паскаль тіліндегі бірөлшемді массивтермен есеп шығаруды және программа құруды үйрету.

Б) дамытушылық: Оқушылардың программалау тәсілдері мен әдістерін қолдану қабілеттерін дамыту.

С) тәрбиелік: Оқушылардың компьютерде дұрыс жұмыс жасауға тәрбиелеу.

Сабақ түрі: лекция, практикалық сабақ.

Әдіс-тәсілдер: түсіндірмелі – иллюстративті, көрнекілік, сұрақ –жауап.

Құрал-жабдықтар компьютер, жұмыс дәптері, бейнепроектор, үлестірмелі карточкалар.

Пәнаралық байланыс: математика

Сабақ барысы

1. Ұйымдастыру кезеңі (1 мин):

а) оқушылар тізімі;

ә) кабинет жағдайы;

б) сабақ барысымен таныстыру.

1. Үй тапсырмасын тексеру.(4-6мин)

1. Индекс дегеніміз не?

2. Жиым элементтері мен индекстренінің типтері қандай болуы тиіс?

3)Жаңа тақырыпқа кіріспе (1 мин)

4)Жаңа тақырыпты түсіндіру(17 мин)

Егер жиым атауында бір ғана индекс болса, онда ол жиымды бірөлшемді, ал екі индекс болса – екіөлшемді және т.с.с n индекс болса, n - өлшемді жиым дейді. Бірөлшемді жиым вектор элементтері, ал екіөлшемді жиым матрица болып табылады.

Бiр өлшемдi массивтермен жұмыс істеудегі негізгі шығаратын есептер:

♦ Массивтің ең кіші (ең үлкен) элементін табу;

♦ Массивтің элементтерінің қосындысын табу;

♦ Массив элементтерінің санын белгілі бір шарт бойынша табу;

♦ Массив элементтерін өсу, кему ретімен сұрыптау.

Мысал 1. [10,50] аралығындағы 5 кездейсоқ бүтін санды шығару программасы.

Program m1; uses crt;

Var x:real;

i:byte;

Begin

For i:=1 to 5 do begin

x:=random(40)+10;

writeln(x);

end;

readln;

End.

Мысал 2. Балабақшаның бір тобында 16 бала бар. Әрқайсысы кубиктерді бөліп алды. Қай баланың кубиктері ең көп екенін анықтаңдар.

Балалардағы кубиктердің сандарының тізімін сипатту үшін массивтің типін KUB деп, ал әрбір баланың кубиктерінің санын беру үшін EU деп белгілейік. Кубиктердің санын пернетақтадан енгіземіз.

Келтірілген мысалдың программалық жолы:

Program m2;

Type KUB=array[1..16] of real;

Var i:integer;

eu:KUB;

Max: real;

Begin

For i:=1 to 16 do

Begin

Writeln ('Kubikterdin sanyn engiziniz ', i,' -shi balanyn, sht.');

Readln(eu[i]);

End;

Max:=eu[1];

For i:=2 to 16 do if max