Mavzu: Paskal dasturlash tili r e j a: Kirish 1

 
2-masala: Ikki parallel ulangan elementlardan iborat elektr zanjir 
qarshiligini hisoblash. 
var 
r1,r2: real; {zanjir elementlari qarshiligi}; 
r: real; (zanjir umumiy qarshiligi); 
begin 
writeln (`Elementlari parallel ulangan elektr zanjir qarshiligini hisoblash`); 
writeln (`Boshlang`ich qiymatlarni kiriting`); 
write (`Birinchi qarshgilik kattaligi (Om) ->`); 
radln (r1); 
write (`Ikkinchi qarshgilik kattaligi (Om) ->`); 
readln (r2); 
r:=r1*r2/(r1+r2); 
writeln; 
writeln (`Zanjir qarshiligi:`,6:2,`Om`); 
readln; 
end. 
 
 
3-masala: Dala hovliga borish va qaytish qiymatlarini hisoblash. 
var 
mas: real; {dala hovligacha bo`lgan masofa} 
sarf: real; {100 km.ga benzin sarfi}  
baho: real; {1 litr benzinning bahosi} 
sum: real; {dala hovliga borish va qaytish qiymati} 

---

17 
begin 
writeln (`Dala hovliga borish va qaytish qiymatini hisoblash`); 
write (`Dala hovligacha masofa (km)
`); 
readln (mas); 
write (`Benzin sarfi (100 km masofaga, litr) 
`); 
readln (sarf); 
write (`Litr benzin bahosi (so`m) 
`); 
readln (baho); 
sum:=2*mas/100*sarf*baho; 
writeln; 
writeln (`Dala hovliga borish va qaytish qiymati`, sum:6:2,`so`m.`); 
readln; 
end. 

4-masala: Silindr sirt yuzasini hisoblash. 
var 
r: real; {silindr asosi radiusi} 
h: real; {silindr balandligi} 
s: real; {silindr sirt yuzasi} 
begin 
writeln (`Silindr sirt yuzasini hisoblash`); 
writeln (`Boshlang`ich qiymatlar:`); 
write (`Asos radiusi (sm) 
 `); 
readln (r); 
write (`Silindr balandligi (sm) 
`); 
readln (h);