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.
а)
б)
Тармақты алгоритмдерді программалаудың әдісін пайдаланып, осы функциялардың мәндерін есептейтін программа құрыңдар. Компьютерде орындап, нәтижесін көрсет.