Бір өлшемді және екі өдшемді жиым элементтерімен жұмыс

Сабақтың тақырыбы: Бір өлшемді және екі өдшемді жиым элементтерімен жұмыс

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

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

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

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

Сабақтың түрі: бақылау жұмысы

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

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

2. Компьютермен жұмыс (есептер шығару)

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

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

1-нұсқа

1.Бір өлшемді С(5) массиві берілген. Берілген массивтің арифметикалық ортасын табу керек.

Program esep;

Var I:integer;s, k,t:real;

C:array[1..5] of integer;

Begin

for i:=1 to 5 do

Begin

Write('c[',i,']-?');

Read(c[i]);

end; s:=0; k:=0;

for i:=1 to 5 do

begin s:=s+c[i]; -қосындысын табу

k:=k+1; -элементтердің санын есептеу

end;

t:=s/k; -арифметикалық орта

write('арифметикалық орта t=',t);

end.

2. Екі өлшемді А(3,3) массиві берілген. Оның элементтері әріптерден тұрады. Екі өлшемдегі массивтегі «b» әріпін «1» санымен алмастыру.

Program esep;

Var I,j:integer;

A:array[1..3,1..3] of char;

Begin

for i:=1 to 3 do

for j:=1 to 3 do

Begin

Write('a[',I,',',j,']-?');

Read (a[i,j]);

end;

for i:=1 to 3 do

begin

for j:=1 to 3 do

begin if a[i,j]='b' then a[i,j]:='1';

write(a[i,j]:3); end;

writeln;

end;

end.

3. Екі өлшемді В(3,2) массиві берілген. Оның жұп элементтерін «0» санына, тақ элементтерін «1» санына алмастыратын программа құру керек.

Program esep;

Var I,j:integer;

b:array[1..3,1..2] of integer;

Begin

for i:=1 to 3 do

for j:=1 to 2 do

Begin

Write('b[',I,',',j,']-?');

Read (b[i,j]);

end;

for i:=1 to 3 do

for j:=1 to 2 do

if b[i,j] mod 2=0 then b[i,j]:=0 else b[i,j]:=1;

for i:=1 to 3 do

begin

for j:=1 to 2 do

write(b[i,j]:3);

writeln; end; end.

2-нұсқа

1.Бір өлшемді А(5) массиві берілген. Берілген массивтің арифметикалық ортасын табу керек.

Program esep;

Var I:integer;s, k,t:real;

A:array[1..5] of integer;

Begin

for i:=1 to 5 do

Begin

Write('a[',i,']-?');

Read (a[i]);

end; s:=0; k:=0;

for i:=1 to 5 do

begin s:=s+a[i]; -қосындысын табу

k:=k+1; -элементтердің санын есептеу

end;

t:=s/k; -арифметикалық орта

write('арифметикалық орта t=',t);

end.

2. Екі өлшемді B(2,3) массиві берілген. Оның элементтері әріптерден тұрады. Екі өлшемдегі массивтегі «k» әріпін «0» санымен алмастыру.

Program esep;

Var I,j:integer;

b:array[1..2,1..3] of char;

Begin

for i:=1 to 2 do

for j:=1 to 3 do

Begin

Write('b[',I,',',j,']-?');

Read (b[i,j]);

end;

for i:=1 to 2 do

begin

for j:=1 to 3 do

begin if b[i,j]='k' then b[i,j]:='0';

write(b[i,j]:3); end;

writeln;

end;

end.

3. Екі өлшемді C(2,2) массиві берілген. Оның тақ элементтерін «0» санына, жұп элементтерін «1» санына алмастыратын программа құру керек.

Program esep;

Var I,j:integer;

c:array[1..2,1..2] of integer;

Begin

for i:=1 to 2 do

for j:=1 to 2 do

Begin

Write('c[',I,',',j,']-?');

Read (c[i,j]);

end;

for i:=1 to 2 do

for j:=1 to 2 do

if c[i,j] mod 2=1 then c[i,j]:=0 else c[i,j]:=1;

for i:=1 to 2 do

begin

for j:=1 to 2 do

write(c[i,j]:3);

writeln; end;

end.

Үйге тапсырма:

Есептер

• А(10) массив берілген. Массив элементтерінің ең кіші оң элементін табыңдар.

• В(7) массивінің теріс элементтерінің санын және осы элементтердің көбейтіндісін есептеңдер.