Mirsaid Aripov, Nurillo Otaxanov

Hususiyat
Qiymati
Form1 .Caption	Case dan foydalanishga misol dasturi
Editl. Text
Label1 . Caption	Davlatni tanlang
Label2 .Caption	Davlatlar
Label3 . Caption	Funtlar
Button1 . Caption	Xisoblash

4.3-listing. Og’irlikni funtdan kilogrammga o`tkazish.

procedure TForm1.FormCreate(Sender: TObject);

begin

{

ListBox1.items.add('Rossiya');

ListBox1.items.add('Avstriya');

ListBox1.iterns.add('Angliya');

ListBox1.items.add('Germaniya');

ListBox1.items.add ('Daniya');

ListBoxl.items.add('Islandiya');

ListBox1.items.add ('Italiya');

ListBox1.item.add ('Niderlandiya'); }

ListBox1.itemindex : 0;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

funt:real;  funtdagi og’irlik

kg:real;  kilogrammdagi og’irlik

k:real;  qayta xisoblash koeffitsienti

begin

case ListBox1.Itemindex of

0: k : 0.4095;  Rossiya

1: k : 0.453592;  Angliya

2: k : 0.56001;  Avstriya

3..5,7: k : 0.5;  Germaniya, Daniya, Islandiya, Niderlandiya

6: k : 0.31762;  Italiya

end;

funt : StrToFloat(Edit1.Text);

kg : k*funt;

label4.caption : Edit1.Text  ' f. - bu '

 FloatToStrF(kg,ffFixed, 6,3)  'kg.';

end;

FormCreate protsedurasi forma ochilgan zahoti ishga tushadi. Undan ro`yhatga boshlang’ich qiymatlarni kiritish, shu jumladan yangi elementlarni qo`shish uchun foydalanish mumkin. Keltirilgan misolda ro`yxat muharriri tomonidan dastur yordamida tashkil qilingan.

4.4. TSikllar

Ko`plab masalalarni yechish jarayonida ayrim buyruqlar ketma-ketligini bir necha marta takroran bajarishga to`g’ri keladi. Masalan, bilimlarni test orqali tekshirish dasturi savol beradi, javobni qabul qiladi, javob uchun bahoni ballar yig’indisiga qo`shadi, so`ngra bu amallarni to testdan o’tuvchi toki hamma savollarga javob berib bo`lmaguncha bir necha marta takroran bajaradi.

B


4.12-rasm. For blok-sxemasi.
ir qator buyruqlar ketma-ketligini takroran bajarilishi tsikl, buyruqlar ketma-ketligining o’zi esa tsikl tanasi deb ataladi.

Delphi da tsiklli jarayonlarni dasturlash uchun uch hil ko`rinishdagi buyruqlardan foydalanish mumkin: for, while va repeat.