|
Algoritmlar. O’quv-uslubiy majmua
|
| bet | 119/179 | | Sana | 19.06.2024 | | Hajmi | 1,78 Mb. | | #264284 |
Bog'liq AlgoritmlarP rogramm ;
Label ;
Const ;
Type ;
Var ;
Prosedure
;
Begin
; - Dastur tanasi
End .
Dasturning asosiy vazifasi – bu EHMga ma’lumotlarni (berilganlarni) qayta ishlash bo`yicha buyruqlar berishdir.
Tarkibiy operator. Begin va End xizmatchi so`zlari orasiga olingan operatorlar ketma – ketligidan iborat. Tarkibiy operator ma’lum bir operatorlar ketma – ketligini operatorlar qavslari begin (boshi) va end (oxiri) xizmatchi so`zlari orasiga olib birlashtiriladi:
::=begin; {} end
Yuqoridan ko`rinadiki, yagona (tarkibiy) operatorga keltirilayotgan operatorlar soni bir dona bo`lishi ham mumkin. Agar ularning soni ikki yoki undan ortiq bo`lsa, ular nuqtali vergul bilan ajratiladi.
O’zlashtirish operatori. Hisoblangan qiymatni hisoblash jarayonining keyingi bosqichida foydalanish uchun eslab qolish zarur, bunday eslab qolish hisoblangan qiymatni ma’lum o`zgaruvchiga o`zlashtirish yo`li bilan amalga oshiriladi. Bunday amalni bajarish, asosiy operatorlardan biri hisoblanuvchi qiymat berish, ya’ni o`zlashtirish operatori bilan bajariladi. O’zlashtirish operatori sintaksis jihatdan quyidagicha aniqlanadi: A:=B. O’zlashtirish operatorning bajarilishida “:=” belgisining o`ng tomonidagi ifodaning qiymati hisoblanib, belgining chap tomonidagi o`zgaruvchi tomonidan ta’milnalanadi.
Misol. R radiusli sharning hajmini hisoblash dasturini tuzing.
Yechish. Avvalo bu formulani yozib olamiz. .
Dasturi quyidagi ko`rinishda bo`ladi:
Program ShH ;
Const Pi=3.14;
Var R, V: real;
Begin Writeln(`R radius qiymatini kiriting:` );
Read(R); V:=4*Pi*Exp(3*ln(R))/3;
Writeln; Writeln(‘natija:’); Writeln(‘Shar hajmi=’, V:8:3);
End.
|
| |
