if s > 500
then begin s :
s * 0.9;
mes :
10% li chegirma ayrib tashlandi.b
#13;
end; mes :
mes
‘Xarid narxi : b
FloatToStrF(s,ffFixed,4,2)
’ sum;
Forml.Label3.Caption :
mes;
end; Funksiya strukturasi funksiyaning sarlavhasi,
konstantalar,
tiplar,
o‘zgaruvchilarni e’lon qilish bo‘limlari hamda buyruqlar bo‘limidan iborat
bo‘ladi. Funksiya umumiy holda quyidagicha ko‘rinishda tashkil qilinadi:
function nom (Parametrlar ro‘yxati) :
Tip;
const
konstantalar ro‘yxati bo‘limi
type
tiplarni e’lon qilish bo‘limi
var
o‘zgaruvchilarni e’lon qilish bo‘limi
begin
buyruqlar bo‘limi
Result :
qiymat;
funksiya nomini qiymat bilan bog‘lash
end; Dasturda buyruqlarni yozish. Har bir buyruq boshqasidan nuqtali vergul bilan ajratiladi. Boshqacha
aytganda, har bir buyruqdan keyin nuqtali vergul belgisi qo‘yiladi.
Ayrim buyruqlarni (
if, case, repeat, while va x.k.) bir nechta satrga yozish
qabul qilingan. Ularning strukturasini boshqalaridan ajratish maqsadida satrning
chap chegarasidan buyruqlarni bir oz chekintirib yozish tavsiya etiladi. Bu dastur
matnini o‘qish va tushunishni osonlashtiradi.
Then va
else bir-birlarining ostiga hamda
if ga nisbatan bir hil masofada
chekintirib yozilganiga e’tibor bering.
End so‘zi