Пән аты: Информатика Класы: 9 «А», 9 «Б», 9 «В», 9 «Г» Сабақтың тақырыбы Айнымалы типтер. Мәліметтердің шектеулі типтері.
Бірөлшемді жиым элементтерімен жұмыс.
Сабақтың мақсаты Білімділік: Оқушыларды бірөлшемдіжиымдарға есептер шығаруға үйрету.
Дамытушылық: Оқушылардың пргарамма құру барысында логкалық
ойлау қабілеттерін дамыту
Тәрбиелік: Оқушыларды ұқыптылыққа, жинақылыққа тәрбиелеу.
Сабақтың түрі: практикалық сабақ
Сабақтың барысы: 1.Ұйымдастыру
2. Өткен материалдарды қайталау
3. Компьютермен жұмыс 4. Сабақты бекіту
5.Үйге тапсырма
Компьютермен жұмыс №1. 10 элементтен тұратын А массивтің элементтерін енгізу және шығару программасын құру керек.
Program esepl:
Uses crt:
Var l:integer:
A:array [l..10] of integer;
Begin
Clrscr;
For i:=l to 10 do
Begin
Writeln( ‘a[‘,I,’]-? ’);
Readln (a[i]);
End;
For i:=l to 10 do
Writeln(‘a[‘,I, ’]=’,a[i]);
End
№2. Берілген бір өлшемді A{2,-3,5,8,-2} массив элементтерінің қосындысын есептейтін прграмма жазу керек.
Program esep2:
Uses crt;
Var I,s:integer:
A: array [l…5] of integer;
Begin
Clrscr;
For i:=1to 5 do
Begin S:= 0;
Writeln(`a[`,I`]-?`);
Readln(a[i]);
End;
For i:=1 to 5do
Begin
S:=S+a[i];
Writeln(`S[`,I,`]=`,S);
End;
End.
№3 Берілген бір өлшемді А{2,-3,5,-8,2} ма ссив элементтерінің квадраттарының қосындысын есептеу программасын құру керек. Program esep3;
Uses crt;
Var I,s:integer:
A: array [l…5] of integer;
Begin
Clrscr;
For i:=1to 5 do
Begin S:= 0;
Writeln(`a[`,I,` ]-?`);
Readln(a[i]);
End;
For i:=1 to 5do
Begin
S:=S+sqr(a[i]);
Writeln(`S[`,I,`]=`,S);
End; End.
№4.Берілген бір өлшемді А{2,-3,5,-8,2} массив берілген, оң элементтерін баспаға шығаратын программа құру керек Program esep4;
Uses crt;
Var I:integer:
A: array [l…5] of integer;
Begin
Clrscr;
For i:=1to 5 do
Begin
Writeln(`a[`,I,` ]-?`);
Readln(a[i]);
End;
For i:=1 to 5do
Begin
If (a[i])>0 then Writeln(`a[`,I,`]=`,a[i]);
End; End.
№5.Бірөлшемді А{2,-3,5,-8,2} массив берілген, теріс элементтерін баспаға шығаратын программа құру керек. Program esep5;
Uses crt;
Var I:integer;
A: array [l…5] of integer;
Begin
Clrscr;
For i:=1to 5 do
Begin
Writeln(`a[`,I,` ]-?`);
Readln(a[i]);
End;
For i:=1 to 5do
Begin
If (a[i])>0 then Writeln(`a[`,I,`]=`,a[i]);
End; End.
№6. Бірөлшемді А{2,-3,5,-8,2} массив элементтерінің ең үлкен баспаға шығаратын программа құру керек. Program esep6;
Uses crt;
Var I, max :integer:
A: array [l…5] of integer;
Begin
Clrscr;
For i:=1to 5 do
Begin
Writeln(`a[`,I,` ]-?`);
Readln(a[i]);
End;
Max:= a [I];
For i:=2to 5do
Begin
If max<(A[i]) then max :=a[i]);
End.
