Ш. И. Раззоќов, М. Д. Юнусова turbo pascal алгоритмик тилида дастурлаш касб-ћунар коллеж талабалари учун ўќув ќўлланма

var
X,Y,max: Integer
begin
…………………
if X>max then
max: = X;
Y:=X;
Бу мисолда У ўзгарувчи ћамма ваќт Х ўзгарувчи ќийматини ќабул ќилади, max да эса Х нинг максимал ќиймати эслаб ќолинади.
<оператор 1> ва <оператор 2> операторларидан ихтиёрий бири, шу жумладан, шартли оператор ћам ихтиёрий турда бўлиши мумкинлиги учун ва бир ваќтда ички шартлардан ћаммаси ћам ELSE <оператор 2> ќисмига эга бўлмаслиги учун, шартларни бир хилда изоћлаб бўлмаслик келиб чиќади. Бу Турбо Паскалда ќуйидагича ћал ќилинади: ихтиёрий учраган ELSE ќисм унга энг яќин «юќорида»ги шартли операторнинг THEN ќисмига мос келади. Масалан:
var
a,b,c,d: integer;
begin
a:=1; b:=2; c:=3; d:=4;
if a>b then
if cthen
if c<0 then
c:=0
else
a:=b; {a тенг 1 га}
if a>b then
if c then
if c then
c:=0
else
else
else
a:=b; {а тенг 2 га}
Ихтиёрий ўнлик бутун сонни 0…15 соћада киритиб, уни ўн олтилик сонга айлантирувчи ва натижани экранга чиќарувчи дастурни кўрамиз:
8.1-дастур
Program Hex
var
n: Integer; {киритиладиган сон}
ch:Char; {натижа}
begin
Write (`n=`);
Readln (n); {сон киритилади}
{Соннинг 0…15 соћага тегишли эканлигини текшириш}
if (n>=0) and (n<=15) then
begin {ћа, соћага тегишли}
if n<10 then
ch:= chr (ord (`o`)+n)
else
ch:= chr (ord (`A`)+n-10);
writeln (`n=`, ch);
end
else {соћага егишли эмас}
writeln (`хато`)
end.
Ун олтилик саноќ системасида ћар бир разрядда 16 та раќам ишлатилади: 0 … 9 раќамлари разряднинг дастлабки мумкин бўлган 10 ќийматини, A … F ћарфлар эса ќолганларини билдиради.
Дастурда 0 … 9 раќамлари тўпламининг ва A … F ћарфлар ва улар кодларининг узлуксизлиги ва тартибга солинганлиги ћисобга олинган.
If оператори оддий ћолатининг умумлашган кўринишлари 8.1-жадвалда келтирилган.

8.1-жадвал

Тармоќдаги операторлар сони