Mavzu: Delphi dasturlash tilida sikllar

protsedurasi TForm1.Button3Click(Sender: TObject);
varn,k:longint;
boshlanishi
sg1.Rows[sg1.Row].Clear;
n:=0;
takrorlang
mzap[n].prod:='';
mzap[n].onng:=0;
Mzap[n].plan:=0;
mzap[n].onkg:=0;
mzap[n].svocep:=0;
n:=n+1;
n>=200 gacha;
n:=1;
takrorlang
agar sg1.Cells[0,n]<>'' bo'lsa, boshlang
Mzap[n].prod:=sg1.Cells[0,n];
Mzap[n].onng:=strtoint(sg1.cells[1,n]);
Mzap[n].plan:=strtoint(sg1.cells[2,n]);
Mzap[n].onkg:=strtoint(sg1.cells[3,n]);
Mzap[n].svocep:=strtofloat(sg1.cells[5,n]);
oxiri;
n:=n+1;
n>=sg1.RowCount gacha;
cleansg(jo'natuvchi);
n:=0;k:=1;
takrorlang
agar Mzap[n].prod<>'' keyin boshlang
sg1.Cells[0,k]:=Mzap[n].prod;
sg1.Cells[1,k]:=inttostr(Mzap[n].onng);
sg1.Cells[2,k]:=inttostr(Mzap[n].plan);
sg1.Cells[3,k]:=inttostr(Mzap[n].onkg);
sg1.Cells[5,k]:=floattostr(Mzap[n].svocep);
k:=k+1;
cleanit (Yuborish); //tahrirlarni tozalash uchun qo'ng'iroq qiling
oxiri;
n:=n+1;
n>=200 gacha;
autorachet (jo'natuvchi);
oxiri;


protsedura TForm1.sg1Click(Sender: TObject);
boshlanishi
edit1.Text:=sg1.Cells[0,sg1.Row];
edit2.Text:=sg1.Cells[1,sg1.Row];
edit3.Text:=sg1.Cells[2,sg1.Row];
edit4.Text:=sg1.Cells[3,sg1.Row];
edit5.Text:=sg1.Cells[5,sg1.Row];
memo1.Lines.Insert(0,DateTimeToStr(Now)+' - Yozuv # '+inttostr(sg1.Row)+ 'tanlangan');
oxiri;


protsedurasi TForm1.N8Click(Sender: TObject);
boshlanishi
ShellExecute(form1.Handle, nil,PChar('mailto:[e-mail]?Subject=EcoInfo'),'','', 0);
oxiri;


protsedurasi TForm1.N5Click(Sender: TObject);
boshlanishi
to'xtatish ;
oxiri ;

oxiri .
8. Bajarilgan hisob-kitoblar natijalari va ularni tahlil qilish.

Ushbu kurs ishida biz rejalashtirilgan davr uchun sotish hajmini va ulgurji narxlarda sotishning butun hajmini hisoblashimiz kerak edi. Hisob-kitoblar uchun bizga rejalashtirilgan davrda mahsulot sotishdan tushgan daromadlar bo'yicha dastlabki ma'lumotlar berildi (1-jadval).

1-jadval. Rejalashtirilgan davrda mahsulot sotishdan tushgan tushumlar to'g'risida ma'lumot.

Mahsulot nomi	Yil boshidagi qoldiq	Chiqarish rejasi	Yil oxiridagi qoldiq	Sotish hajmi, dona.	Ishlab chiqarish birligining ulgurji narxlarida tannarxi, rub.	Sotishning butun hajmining ulgurji narxlarida qiymati, ming rubl.
1	2	3	4	5	6	7
olma	711	40 000	500		200000
apelsin	236	80 000	100		500150
Ananas	348	60 000	200		400000
mandarin	117	90 000	50		550000
Greypfrut	284	50000	150		450000
Banan	173	70 000	300		350 000
O'rik	513	95000	450		300000
shaftoli	286	65000	600		250 000
Uzum	482	85 000	300		600000
Nok	136	40000	150		650000

Hisob-kitoblar quyidagicha amalga oshirildi:

• 
  Rejalashtirilgan davr uchun mahsulot sotish hajmini hisoblang. Sotish hajmi, bizning holatlarimizda, sotilgan mahsulotning har bir turi uchun yil oxiridagi qoldiqlarni chiqarish rejasi bilan yil boshidagi qoldiqlar yig'indisiga teng (2-jadval).
  

2-jadval. Rejalashtirilgan davrda mahsulot sotishdan tushgan tushumlar to'g'risida ma'lumot.

Mahsulot nomi	Yil boshidagi qoldiq	Chiqarish rejasi	Yil oxiridagi qoldiq	Sotish hajmi, dona.	Ishlab chiqarish birligining ulgurji narxlarida tannarxi, rub.	Sotishning butun hajmining ulgurji narxlarida qiymati, ming rubl.
1	2	3	4	5	6	7
olma	711	40 000	500	40211	200000
apelsin	236	80 000	100	80136	500150
Ananas	348	60 000	200	60148	400000
mandarin	117	90 000	50	90067	550000
Greypfrut	284	50000	150	50134	450000
Banan	173	70 000	300	69873	350 000
O'rik	513	95000	450	95063	300000
shaftoli	286	65000	600	64686	250 000
Uzum	482	85 000	300	85182	600000
Nok	136	40000	150	39986	650000

• 
  Mahsulot birligining ulgurji narxlaridagi tannarxni bilib, biz butun sotish hajmining ulgurji narxlardagi tannarxini sotish hajmining mahsuloti va mahsulot birligining ulgurji narxlaridagi tannarxini hisoblashimiz mumkin (3-jadval).
  

3-jadval. Rejalashtirilgan davrda mahsulot sotishdan tushgan tushumlar to'g'risida ma'lumot.

Mahsulot nomi	Yil boshidagi qoldiq	Chiqarish rejasi	Yil oxiridagi qoldiq	Sotish hajmi, dona.	Ishlab chiqarish birligining ulgurji narxlarida tannarxi, rub.	Sotishning butun hajmining ulgurji narxlarida qiymati, ming rubl.
1	2	3	4	5	6	7
olma	711	40000	500	40211	200000	8042200
apelsin	236	80 000	100	80136	500150	40080020.4
Ananas	348	60 000	200	60148	400000	24059200
mandarin	117	90 000	50	90067	550000	49536850
Greypfrut	284	50000	150	50134	450 000	22560300
Banan	173	70 000	300	69873	350 000	24455550
O'rik	513	95000	450	95063	300000	28518900
shaftoli	286	65000	600	64686	250 000	16171500
Uzum	482	85 000	300	85182	600000	51109200
Nok	136	40000	150	39986	650000	25990900

Hisoblash ma'lumotlarini tahlil qilib, sotuvchiga 600 000 rubl narxda ishlab chiqarish va sotish eng foydali ekanligini aytishimiz mumkin. uzum ushbu mahsulot xaridor tomonidan eng ko'p talab qilinadi va ishlab chiqaruvchi buning uchun eng yuqori foyda oladi (51109200 ming rubl). 500 150 va 550 000 rubl narxida ishlab chiqarish va sotish ham foydali bo'ladi. navbati bilan apelsin va mandarin. ushbu mahsulotlarni sotish uchun ishlab chiqaruvchi yuqori foyda oladi (mos ravishda 40080020,4 va 49536850). Ananas (400 000 rubl), greyfurt (22 560 300 rubl), banan (24 455 550 rubl), o'rik (28 518 900 rubl), shaftoli (16 171 500 rubl), nok (29 090 rubl) kabi mahsulotlarni ishlab chiqarishda yaxshi foyda oladi. lekin xaridorning ehtiyojlariga moslashgan holda sotishdan turli hajm va narxlarda. Ushbu mahsulotlar asosiy bo'lmagan biznesda uchinchi tomon xaridor tomonidan sotish uchun buyurtma berish uchun tayyorlanishi mumkin. 200 000 rubl narxda ishlab chiqarish va sotish uchun foydali mahsulot emas. va hajmi 40 000 dona. olma, chunki bu mahsulot yaxshi foyda keltirmaydi.

Tahlil natijasida shunday xulosaga kelishimiz mumkinki, korxona uchun uzum, apelsin va mandarinlarni ishlab chiqarish va sotish eng foydali hisoblanadi, chunki. ushbu mahsulotlar iste'molchi tomonidan eng ko'p talab qilinadi va korxona uchun katta foyda keltiradi.
Delphi vizual muhitida ObjectPascal algoritmik tilida yaratilgan dasturda amalga oshirildi . Natijalarni hisoblash va ko'rish qulayligi uchun barcha mahsulot nomlari avtomatik ravishda alifbo tartibida joylashtirilgan. Memo maydonida biz eng yuqori foyda va hisob-kitob natijasini ko'rishimiz mumkin bu erda bu ma'lumotlar ham avtomatik ravishda kiritiladi (5-rasm).



5-rasm. Hisoblash va natijalar bilan arizaning umumiy ko'rinishi.