Mm ivaat nosirov doc

Case оператори дастурда тармокланишни ташкил этиб, бир неча оператор­лар орасидан бирини танлаш имконини беради. Унинг умумий куриниши куйи-дагича;
case <ифода> of
<операторлар>
end
Масалан: case i of
2: x:=0;
3: x:=a*x;
100: x:=sin(x);
end;
a:=b; Агар i 3га тенг булса x:=a*x бажарилади ва бошкариш А:=В операторга утади.
4. Тармокланувчи структурали алгоримларни дастурлаш
Тармокланувчи структурали алгоримларни дастурлаштиришда шатрсиз утиш ва шартли утиш операторларидан фойдаланилади. Тармокланувчи струк­турали алгоритмларда бирор бир шартга кура алгоритмнинг кейинги кадамлари куйилган шартга кура тармокларга булиниб бажарилади. Юкорида келтирилган фикрларни мисолда куриб утамиз.
Куйидаги функцияни хисоблаш алгоритмининг блок-схемаси ва паскал ти-лидаги дастурини тузамиз
\atgx + b cos x агар x>1 булса
y = \ ax + b агар 0<x<1 булса
a²x²+bx агар x<0 булса
бу ерда а=3,8; b=3,4.
Функцияни хисоблаш алгоритмининг блок-схемаси куйидагича булади.
www.qmii.uz/e-lib
44

Функцияни хисоблаш алгоритм-нинг паскал тилидаги дастури куйидагича булади.
program t1(input, output); label 2
var a, b, x: real; y: real; begin
if x<0 then y:=a*a*x*x+b*x goto 2;
if x>1 then y:=a*sin(x)/cos(x)+b*cos(x)
else y:=a*x+b; 2: writeln(‘натижа у=’,y);
end.
Бу дастурда 3-блок бажарилганда 4-блок хисобланади, бажарилмаганда 5-блок шарти текширилади ва бу блок бажарилганда 6-блок хисобланади, бажарилмаганда эса бошкариш авто­матик равишда 7-блокка утиб шу блок хиобланади. Хар учала холда хам хи-собланган у функциянинг киймати 8-блок оркали бирлашади ва 9-блокда натижалар экранга чикарилади