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

 
Dastur natijasi: 
3.5 {kiritilgan qiymat } 
a= 0.8969 b= 4.42 
{natija hosil bo`ladi} 
Misol–2: Guruhlarning nomlari “Dasturchilar” va “Paskal” guruhlari degan yozuvni 
ekranga chiqarish dasturi: 
Dasturni tekshirish uchun “Ctrl+F9” tugmasi orqali dasturni tekshiramiz va “Alt+F5” tugmasini 
bosish orqali natijani olamiz. 
yoki
Misol – 3. 2 ta son berilgan. Berilgan sonlarning kublarining o’rta arifmetigini toping. 

---

15 
Izoh: Paskal algoritmik tilida berilgan masalalarni yechish uchun siz boshqa fanlardan ya’ni 
fizika, algebra, geometriya kabi fanlarni yetarli bilimga ega bo’lishingiz kerak.
Natija:
 
1-masala: Ikki tomoni va ular orasidagi burchagiga ko`ra uchburchak 
yuzasini topish. 
var 
a,b: real; {tomonlar uzunligi} 
f: real;{graduslarda ifodalovchi burchak kattaligi} 
s: real; {uchburchak yuzi} 
begin 
writeln (`Uchburchak yuzini topish`); 
writeln (`Uchburcha tomonlari uzunligi (sm):`) 
write (`->`); 
readln (a,b); 
writeln (`Uchburchak ikki tomoni orasidagi burchak kattaligi (gradus):`); 
readln [f]; 
3
3
2
a
b
y



---

16 
{s=a*h/2, h (uchburchak balandligi) h=b*sin(f) formula bilan hisoblanishi mumkin. Lekin, 
Turbo Paskalda Sin funksiyasining argumenti radianlarda ifodalanishi kerak (1 
rad.=180/3.1415925, bu yerda, 3.1415925-“PI” soni)} 
s:=a*b*sin (f*3.1415925/180)/2; 
writeln; 
writeln (`uchburchak yuzi:`,s:6:2, `sm.kv.`); 
readln; 
end.