Сабақ №: 2 сағ. саны.: 1 Тақырып: Алгоритм түсiнiгi. Алгоритмнiң қасиеттерi



бет5/8
Дата13.02.2017
өлшемі1,41 Mb.
#9094
түріСабақ
1   2   3   4   5   6   7   8
Else A:= 3* sqrt(x+1);

{әйтпесе (х>-1 болса), А= функциясы орындалады }

WriteLn('A =', A:5:3); {нәтижені экранға шығарамыз}

END. {программа соңы}

Есеп 2. Кез келген 3 бүтін сан берілген: X, Y және Z. Осы сандарды кему реті бойынша орналастыратын программа құру қажет.

Program esep2_3;

Var

x,y,z,n: integer; {x,y,z – енгізілетін сандар, n – уақытша буфер}

begin writeln('Бүтін сандарды енгіз: X, Y және Z');

readln(x,y,z); { x,y,z бүтін сандарын енгізу}

if (x < y) then { егер х– у санынан кіші болса}

begin

n:=x; { n – буферіне х –тің мәнін меншіктейміз}

x:=y; { х –ке у –тің мәнін меншіктейміз}

y:=n; { у –ке n – буферіндегі мәнді меншіктейміз}

end;

if (y < z) then { егер y–z санынан кіші болса}

begin

n:=y; { n – буферіне y –тің мәнін меншіктейміз}

y:=z; { y –ке z –тің мәнін меншіктейміз}

z:=n; { z –ке n – буферіндегі мәнді меншіктейміз}

end;

if (x < y) then

begin

n:=x;

x:=y;

y:=n;

end;

if (y < z) then

begin

n:=y;

y:=z;

z:=n;

end;

writeln('Сандар кему реті бойынша орналастырылды:',x,' ',y,' ',z);

end.

Сергіту жаттығулары (2 мин)

5) Жаңа тақырыпты бекіту (10-15 мин)

Тапсырмалар мен сұрақтар:

Тапсырма №1.

а)

б)

Тармақты алгоритмдерді программалаудың әдісін пайдаланып, осы функциялардың мәндерін есептейтін программа құрыңдар. Компьютерде орындап, нәтижесін көрсет.

6)Сабақты қорытындылау

Оқушыларды шартты программалар құрып үйрету.

7) Үйге тапсырма

IF … THEN тармақталу операторлары. Таңдау операторы.


Достарыңызбен бөлісу:
1   2   3   4   5   6   7   8




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет