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 тармақталу операторлары. Таңдау операторы.
Достарыңызбен бөлісу: |
