Узбекистон Республикаси Олий ва ¤рта махсус таълим Вазирлиги

PI=3.14;

VAR
R:REAL; {Шар радиуси} V:REAL; {Шар хажми} BEGIN
WRITELN(R радиус қийматини киритинг’); READ (R);
V:=4*PI*R*R*R/3; WRITELN; WRITELN(‘Натижа:’);
WRITELN(‘Шар хажми: V:8:3); END

2. 
   мисол. Қуйидаги қаршиликлардан ташкил топган занжирнинг умумий қаршилигини ҳисобланг: Кетма-кет қаршилик R_кет=R₁+R₂, параллел қаршилик R_пар=R₁*R₂/( R₁+R₂) бўлсин. R₁ ни R₁+R₂ ни R_2, R_кет ни R_КЕТ, R_парни R_ПАР деб белгилайлик. Занжир қаршилигини ҳисоблаш дастурини тузамиз:
   

PROGRAM ER(INPUT, OUTPUT); VAR

R1, R2: REAL{қаршиликлар} RКEТ:REAL; {кетма-кет уланиш} RPAR:REAL; {параллел уланиш} BEGIN
WRITELN(‘R1ваR2 қийматларини киритинг’); READ (R1, R2);
RКEТ:= R1+R2;
RPAR:= R1*R2/( R1+R2); WRITELN;
WRITELN (кетма-кет уланган занжир, R=’,RKET:8:2); WRITELN(‘Параллель уланган занжир, R=’,RРАR:8:2) END

2. 
   мисол CHAR тоифадаги ўзгарувчилар билан PRED, SUCC, ORD ва
   

CHR функциялари ишлатилган дастур:

Program belgi (input,output); Var х, x1, x2, x3:char: n:integer;

Begin x1=’1’;
writeln (x1);
x2:=pred(x1); writeln(‘pred=’,x2);
x3:=succ(x1); writeln(‘succ=’,x3);
x:=’A’; writeln(x); n:=ord(x); x:=chr(n); writeln(x);
end.

2. 
   мисол.Мантиқий тоифа қатнашган дастурга мисол:
   

Program mantiq(input,output); Var x:integer; mant:boolean; Begin readln(x)

mant:=x>3; writeln(mant) end.


Тармоқланувчи ҳисоблаш жараёнларини алгоритмлаш ва дастурлаш

Кўпгина масалаларни ечишда баъзи бир жараёнлар маълум шарт ёки шартларнинг қўйилишига нисбатан бажарилади. Бундай жараёнлар тармоқланувчи жараёнлар деб юритилади. Тармоқланувчи ҳисоблаш жараёнлари оддий ва мураккаб бўлиши мумкин. Бу эса жараёндаги тармоқлар сонига боғлиқ. Маълум бир тармоқланувчи жараён таркибида яна тармоқланишлар бўлиши мумкин. Бундай тармоқланишлари бор бўлган

ҳисоблаш жараёнлари мураккаб тармоқланувчи ҳисоблаш жараёнлари деб аталади.
Паскаль тилида тармоқланувчи жараёнларни дастурлаш учун шартсиз, шартли ўтиш ва танлаш операторларидан фойдаланилади.
Дастурда баъзи бир холларда бошқарувни тўғридан-тўғри Бирон бир операторга узатишга, яъни дастурнинг бажарилиш кетма-кетлигини бузишга тўғри келади. Бу жараён шартсиз ўтиш оператори ёрдамида бажарилади.