Олий ва ўрта махсус таълим вазирлиги Наманган давлат университети

OK
 
tugmasini
 
chiqaradi.
Protsedura va funksiyalar
Delphi 
tilida dasturlashda dasturchining asosiy vazifasi xodisalarni qayta
 
ishlash protseduralarini (qism dasturlarni) ishlab chiqishdan iborat bo‘ladi. 
Protsedura strukturasi. 
Protsedura sarlavhadan boshlanadi.
 
So‘ngra
 
konstantalarni e’lon qilish bo‘limi, tiplarni e’lon qilish bo‘limi, o‘zgaruvchilarni 
e’lon qilish bo‘limi, ko‘rsatma-buyruqlar bo‘limi keladi. Protseduralar umumiy 
ko‘rinishda quyidagicha yoziladi:
procedure nom 
(Parametrlar ro‘yxati);
const

bu erda nomlangan konstantalar ro‘yxati beriladi; 
type



bu erda tiplar 
var
yordamida e’lon qilinadi;



bu erda o‘zgaruvchilar va ularning tiplari e’lon qilinadi; 
begin



bu erda dasturning buyruqlari yoziladi;

end;
Protsedura 
sarlavhasi 
procedure
dan 
boshlanadi. 
Undan 
keyin 
protseduraning nomi ko‘rsatiladi.
Quyidagi protsedurada umumiy xarid summasini topish masalasi hal 
qilingan. Agar 5000 so‘mdan ortiq summaga xarid qilinsa, umumiy summadan 
10% chegirib tashlanadi.

---

procedure 
Summa;
var
baho: real; 

narxi
miqdori: integer; 

harid qilingan bir hil buyumlar soni
s: real; 

summa
mes: string[255]; 

xabarnoma
begin
baho :

StrToFloat(Form1.Edit1.Text);
miqdori :

StrToInt(Form1.Edit2.Text);
s :

baho * miqdori;