А. А. Медатов, М. К. Абдувохидов, О. А. Маматқулов

program Trapetsiya;
var a, b, h: integer;
s: real;
begin
write(‘a, b, h – o`zgaruvchilarni kiriting’);
readln(a,b,h);
s:=(a+b)/(2*h);
writeln(‘s=’,s);
end.
Мисол 2.  ни ҳисоблаш дастури тузилсин.
program sodda_dastur;
var x,y,z,a:real;
begin
read (x,y,z,a);
z:=(cos(x)+sin(x))/(abs(xy)+1)ln(a);
writeln('z=',z);
end.


5. Шартли ўтиш оператори.
Шартли ўтиш операторининг бажарилиши жараёнида берилган шартнинг чин ёки ёлғонлигига қараб дастурнинг бажарилиш кетмакетлиги ўзгартирилади. Ушбу операторнинг икки хил кўриниши мавжуд:
1) if e1  e2 then A else B;
2) if e1  e2 then A;
Бунда if (агар)  оператор номи, e1  e2  текширилаётган шарт, then (бўлса) ва else (акс ҳолда)  ёрдамчи сўзлар,  - текширилаётган шарт (>, <, >=, <=, <>, = муносабат амалларидан бири), A  текширилаётган шарт чин бўлганда бажарилиши керак бўлган қисми, B эса ёлғон бўлганда бажарилиши керак бўлган қисми.
Иккинчи кўринишда else ёрдамчи сўз тушириб қолдирилган. Бу ҳолда текширилаётган шарт бажарилса A оператор бажарилиб, сўнгра ўзидан кейинги операторни бажаришга ўтади. Акс ҳолда кейинги операторни бажаришга тўғридан-тўғри ўтилади.
Шартли ўтиш оператори ҳам шартнинг бажарилиши ёки бажарилмаслигига қараб бир марта бажарилади.
Мисол.
ни ҳисоблаш дастури тузилсин.


program shart;
var a,x,y:real;
begin
read (a,x);
if x>1 then y:=2_sin(x)+a else y:=2_ax;
writeln('y=',y);
end.


6. Таркибли (қўшма) операторлар.
Таркибли оператор ёки қўшма оператор begin ва end операторлари орасида ёзилади. Бу оператор битта операторнинг ўрнига бир нечта оператор ёзиш имконини беради.
Масалан if операторидаги then (else) ёрдамчи сўзидан кейин, цикл операторларидаги do ёрдамичи сўзидан кейин фақат битта оператор ёзилишига рухсат берилган. Агар бу ёрдамчи сўзлардан кейин бир нечта операторлар бажарилиши керак бўлса, у ҳолда бу операторлар begin ва end орасига олиб ёзилади.
Бичими: