Ашық сабақ Құрылымдық мәліметтер-9 сынып

Ойлауды Блум

бойынша жіктеу

Мақсат

Тапсырма түрі.

Түрткілер.

Нәтиже

Бағалау

критерийлер

дескриптор

Ұпай

Жиынтық баға

Білу

Құрылымдық мәліметтер туралы ақпаратты ұсыну

«Кіріспе сұрақтар»

Сұрақтарға іздену арқылы ақпаратты ұсынады.

Білім деңгейін анықтау

Сұраққа толық жауап берді

3

Қателіктері болды

2

Жауап беруге қиналды

1

Түсіну

Тақырып мазмұнын түсінгенін айқындау

Тұсаукесер әдісі арқылы тақырыпты игеру.

Құрылымдық мәліметтер туралы мазмұн айқындалады.

Тақырыпты толық игеру

Тапсырманы толық орындады, ізденді

3

Ауызша идея қосты, қателіктері болды

2

Тапсырманы орындай алмады

1

Қолдану

Құрылымдық мәліметтер бойынша алған білімді практикада жүзеге асыру.

Деңгейлік практикалық тапсырма

С. a,b,c,d сандары берілген. x=max(a,b), y=max(c,d), z=max(x,y) мәндерін анықтаңыз. max(k,m) (к және м екі санның үлкенін табу) мәнін есептеуді функция арқылы өрнектеңіз.

Program e10_1;

var a,b,c,d,x,y,z: real;

function max(k,m:real): real;

begin if k>m then max:=k else max:=m end;

begin

writeln; write(‘a,b,c,d мәнін енгізіңіз:’); readln(a,b,c,d);

x:=max(a,b); y:=max(c,d); z:=max(x,y);

writeln(‘x=’,x,’y=’,y,’z=’,z) end

В. Екі үшбұрыштың төбелерінің координаттары берілген. Олардың қайсысының ауданы үлкен екенін анықтаңыз. Ауданды координаты бойынша есептеуді функция арқылы өрнектеңіз.

program e10_3;

var x1,y1,x2,y2,x3,y3,s1,s2: real;

function s(x1,y1,x2,y2,x3,y3:real):real;

var a,b,c,p:real;

begin

        a:=sqrt(sqr(x1-x2)+sqr(y1-y2));

        b:=sqrt(sqr(x1-x3)+sqr(y1-y3));

        c:=sqrt(sqr(x2-x3)+sqr(y2-y3));

        p:=(a+b+c)/2;

        s:=sqrt(p*(p-a)*(p-b)*(p-c))

end;

begin

writeln(‘1-үшбұрыш коодинаттары: x1,y1,x2,y2,x3,y3 енгізіңіз:’); read(x1,y1,x2,y2,x3,y3);

        s1:=s(x1,y1,x2,y2,x3,y3);

writeln(‘2-үшбұрыш коодинаттары: x4,y4,x5,y5,x6,y6 енгізіңіз:’); read(x1,y1,x2,y2,x3,y3);

        s2:=s(x1,y1,x2,y2,x3,y3);

        if s1>s2 then write(‘1-ші 2-ден үлкен‘) else

            if s1=s2 then write(‘олар тең‘) else

                write(‘2-ші 1-ден үлкен‘)

end.

А. Натурал n, бүтін a₁,a₂,…,a_n сандары берілген. Осы сандардан

         а) толық квадраттардан тұратын; б) бестік дәрежесінен тұратын; в) жай сандардан тұратын ішкі тізбек алыңыз.

program e10_9;

const n=10;

var i,s,k1,k2,k3:integer; a1,a2,a3:array[1..n] of integer;

procedure kv(k:integer; var s:integer);

var i:integer;

begin s:=0; for i:=1 to k do if i*i=k then s:=1 end; 

procedure d5(k: integer; var s:integer);

var i,y:integer;

begin s:=0; y:=1; for i:=1 to k do begin y:=y*5; if k=y then s:=1 end;  end;

procedure zhai(k:integer; var s:integer);

var i:integer;

begin s:=0; for i:=1 to k do if k mod i=0 then s:=s+1 end;

begin writeln;    for i:=1 to n do

    begin

        write(‘a ‘,i,’-і енгізіңіз:’); read(a[i]);

        kv(a[i],s); if s=1 then begin k1:=k1+1; a1[k1]:=a[i] end;

        d5(a[i],s); if s=1 then begin k2:=k2+1; a2[k2]:=a[i] end;

        zhai(a[i],s); if s<=2 then begin k3:=k3+1; a3[k3]:=a[i] end;    end;    writeln;

     writeln(‘толық квадраттар:’);

     for i:=1 to k1 do write(‘ ‘,a1[i]);

         writeln;

     writeln(‘бестік дәрежелері:’);

     for i:=1 to k2 do write(‘ ‘,a2[i]);

         writeln;     writeln(‘жай сандар:’);

     for i:=1 to k3 do write(‘ ‘,a3[i]);end.

Өтілген ақпарат практикада жүзеге асады.

Практикада қолдану дағдысын қалыптастыру

1 деңгей тапсырмасы

16

2 деңгей тапсырмасы

8

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

2

Талдау

Процедура мен функцияның жан жақты тәжірибеден өткізу.

Тыңдап отырған үштік

1. Оператор деген не?

2. Меншіктеу операторы қандай қызмет атқарады?

3. Көру операторы не үшін керек?

4. Бос оператор деген не?

5. Еңгізу және шығару операторларының атқаратын міндеттері қандай?

6. Программада түсініктеме мәлімет қалай жазылады?

7. Тұрақты еңгізу операторының параметрлері бола алама?

Жұптық жұмыс арқылы ақпаратты тәжірибеден өткізеді.

Талдау, жіктеу мүмкіндігі

Сұраққа толық жауап

3

Ауызша ой қосты

2

Жауап беруде қиналды

1

Рефлексия

«Менің сабақтан кейінгі әсерім»