Магниттік мектептерге информатика пәнінен сабақ

Сыныбы: 9

Сабақтың тақырыбы:      Бір өлшемді жиындарға (массивтерге) есептер шығару

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

Білімділік:                Оқушыларды бір өлшемді жиындарға (массивтерге) есептер шығаруға, программа құруға үйрету; 

Дамытушылық:                  Оқушылардың программа құру барысында логикалық ойлау қабілеттерін дамыту;

Тәрбиелік:                       Оқушыларды тәрбиелікке, тиянақтылыққа, ұқыптылыққа, жауапкершілікке тәрбиелеу.

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

Сабақтың

барысы: 

                                                1. Ұйымдастыру                                          

                                                2. Өткен материалдарды қайталау          

                                                3. Есептер шығару                         

                                                4. Сабақты бекіту   

                                               5. Бағалау

                                                6. Үйге тапсырма                                       

Компьютермен жұмыс

Тапсырма 1. 10 элементтен тұратын А

массивінің элементтерін енгізу және шығару керек.

Program esep1;

Uses crt;

Var I:integer;

A:array [1..10] of

integer;

Begin

Clrscr;

For i:=1 to 10 do

Begin

Writeln(‘a[‘,I,’]-?’);

Readln(a[i]);

End;

For i:=1 to 10 do

Writeln(‘a[‘,I,’]=’,a[i]);

End.

Тапсырма 2. Берілген бір өлшемді массив элементтерінің қосындысын есептеу.

Program esep2;

Uses crt;

Var I,s:integer;

A:array [1..5] of

integer;

Begin

Clrscr;

For i:=1 to 5 do

Begin   S:=0;

Writeln(‘a[‘,I,’]-?’);

Readln(a[i]);

End;

For i:=1 to 5 do

Begin

S:=S+a[i];

Writeln(‘S[‘,I,’]=’,S);

End;

End.

Тапсырма 3. Берілген бір өлшемді массив элементтерінің квадарттарының қосындысын есептеу.

Program esep3;

Uses crt;

Var I,s:integer;

A:array [1..5] of

integer;

Begin

Clrscr;

For i:=1 to 5 do

Begin  S:=0;

Writeln(‘a[‘,I,’]-?’);

Readln(a[i]);

End;

For i:=1 to 5 do

Begin

S:=S+sqr(a[i]);

Writeln(‘S[‘,I,’]=’,S);

End;    End.

Тапсырма 4. Бір өлшемді массив берілген, оң

элементтерін баспаға шығару керек.

Program esep4;

Uses crt;

Var I:integer;

A:array [1..5] of

integer;

Begin

Clrscr;

For i:=1 to 5 do

Begin

Writeln(‘a[‘,I,’]-?’);

Readln(a[i]);

End;

For i:=1 to 5 do

Begin

If (a[i])>0 then

Writeln(‘a[‘,I,’]=’,a[i]);

End;   End.

Тапсырма 5. Бір өлшемді массив берілген, теріс элементтерін баспаға шығару керек.

Program esep5;

Uses crt;

Var I:integer;

A:array [1..5] of

integer;

Begin

Clrscr;

For i:=1 to 5 do

Begin

Writeln(‘a[‘,I,’]-?’);

Readln(a[i]);

End;

For i:=1 to 5 do

Begin

If (a[i])<0 then

Writeln(‘a[‘,I,’]=’,a[i]);

End;   End.

Тапсырма 6. Бір өлшемді массив элементтерінің ең үлкенін  баспаға шығару керек.

Program esep6;

Uses crt;

Var I,max:integer;

A:array [1..5] of

integer;

Begin

Clrscr;

For i:=1 to 5 do

Begin

Writeln(‘a[‘,I,’]-?’);

Readln(a[i]);

End;

Max:=a[1];

For i:=2 to 5 do

If max<(A[i]) then

max:=a[i];

Writeln(‘max=’,max);

End.

Жаңа материалды бекіту сұрақтары

• Массив дегеніміз не? 
• Қарапайым және күрделі типтерді қалай ажыратамыз?
• Массив элементтерінің орны қалай анықталады?
• Индекс дегеніміз не, оларға қандай талап
• қойылады?
• Массив элементерімен индекстерінің типтері қандай
• болуы мүмкін?
• Массивті қалай сипаттаймыз?

  Бағалау:             Әр оқушыны сабаққа қатысу ынталарына, қабілеттеріне қарай бағалау ескерту.

Үйге тапсырма: берілген тапсырмаларды аяқтау, қайталау.