. Сабақтың тақырыбы Көпөлшемді жиымдар. Екіөлшемді жиым элементтерімен жұмыс
Сабақтың мақсаты
Білімділік: Оқушыларға екі өлшемді массивтерге есептер шығара білуге, программа құруға үйрету.
Дамытушылық: Оқушылардың пргарамма құру барысында логкалық ойлау қабілеттерін дамыту
Тәрбиелік: Оқушыларды ұқыптылыққа, жинақылыққа тәрбиелеу.
Сабақтың түрі: практикалық сабақ
Сабақтың барысы: 1.Ұйымдастыру
2.Үй тапсырмасын тексеру
3. Компьютермен жұмыс
4. Сабақты бекіту
5.Үйге тапсырма
Компьютермен жұмыс
№1. Екі өлшемді жиым элементтерінің квадраттарын табатын программа құру керек.
program esep1;
uses crt;
var i,j:integer;
A:array[1..3,1..3] of integer;
begin
clrscr;
for i:=1to 3 do
for j:=1to 3 do
begin
writeln(`engiz a[`,i,`,`,j,`]`);
readln(a[i,j]);
end;
for i:=1 to 3 do
begin
for j:=1to 3 do
write (a[i,j]:3);
writeln;
end;
writeln;
for i:=1 to 3 do
begin
for j:=1to 3 do
write (sgr(a[i,j]):3):
writeln;
end;
readln;
end.
№2. Екіөлшемді жиым элементтерінің түбірлерін табатын программа құру керек.
program esep1;
uses crt;
var i,j:integer;
A:array[1..3,1..3] of integer;
begin
clrscr;
for i:=1to 3 do
for j:=1to 3 do
begin
writeln(`engiz a[`,i,`,`,j,`]`);
readln(a[i,j]);
end;
for i:=1 to 3 do
begin
for j:=1to 3 do
write (a[i,j]:3);
writeln;
end;
writeln;
for i:=1to 3 do
begin
for j:=1to 3 do
write (sgr(a[i,j]):3):
writeln;
end;
readln;
end.
№3. А (3,3) матрицасының оң элементтерінің қосындысын табу программасын құр.
Program matr;
Const n=3;
Var I,j,k:integer;
A:array[1..n,1..n] of integer;
Begin for i:=1to n do
for j:=1to n do
begin read (A[I,J]);
if A[I,J]>0 Then k:=k+A[I,J];
end;
writeln (k:3):
end.
№4. Берілген А (3,3) матрицасының оң және теріс элементтерінің санын санау программасын құру керек.
var i,j,o,i:integer;
a:array[1..3,1..3] of integer;
begin
for i:=1to 3 do
for j:=1to 3 do
begin
writeln(`engiz a[`,i,`,`,j,`]`);
readln(a[i,j]);
end;
for i:=1 to 3 do
for j:=1to 3 do
if a[i,j]>0 then 0:=0+1else t:=t+1;
writeln (`0=`,0, `t=`,t);
end.
№5. Берілген А (3,3) матрицасындағы оң элементтерді баспаға шығару программасын керек.
var i,j,o : integer;
a:array [1..3,1..3] of integer;
begin
for i :=1 to 3 do
for j:=1 to 3 do
begin
writeln (`engiz a[`,i,`,`,j,`]`);
readln (a[i,j]);
end;
for i:=1 to 3 do
if a [i,j] >0 then writeln (`on san=`, a[i,j]);
end.
№6. 2-ден 5-ке дейінгі сандардың көбейту таблицасын баспаға шығаратын программа керек.
Var i,j: byte;
begin
for i:=2to 5do
begin
for j:=1to 10 do
writeln ( i,`x`j,`=`,i*j);
writeln
end;
end.
Үйге тапсырма.
№1. Берілген екіөлшемді жиым элементтерінің ең кішісін баспаға шығатын программасын құр.№2. 139 бет, 1-2 жаттығу. .