Щозирда инсоният фаолиятининг барча жабщаларига шахсий электрон щисоблаш машиналари (шэщм) шахдам =адамлар билан кириб бормо=д



Download 0,99 Mb.
bet17/36
Sana08.03.2022
Hajmi0,99 Mb.
#486298
1   ...   13   14   15   16   17   18   19   20   ...   36
Bog'liq
delphi7 LABORATOR

for i:=1 to SIZE do
a [ i ]:= Memo1.Lines[i-1];
bu yerda:

  • SIZE — massivning o‘lchamini aniqlovchi nomlangan konstanta;

  • а — massiv;

  • Memo1 — Memo komponentasining nomi;

  • Lines — Memo komponentining hususiyati. Satrlarga murojaat etish uchun ishlatiladi.

Topshiriqni bajarish namunasi.


Topshiriq: Massivning eng kichik (eng katta) elementini izlash.


2. Topshiriqning algoritm blok-shemasi.

Massivning eng kichik (eng katta) elementini izlash algoritm quyidagicha: dastlab massivning birinchi elementi eng kichik (eng katta) deb tasavvur qilinadi, so‘ngra massivning qolgan elementlari ketma-ket ushbu elementi bilan solishtirib boriladi. Agar navbatdagi solishtirish vaqtida tekshirilayotgan element eng kichik (eng katta) deb olingan elementdan kichik (katta) bo‘lsa, u holda bu element eng kichik (eng katta) deb olinadi va qolgan elementlarni tekshirish davom etadi.


Massivning eng kichik elementini izlash ilovasining muloqot oynasiga massiv elementlarini kiritish uchun StringGrid1 komponenti, xabar va dastur natijasini chiqarish uchun Label1 va Label2 komponentlari, hamda Button1 buyruq tugmasi qo‘yilgan. 3.4-jadvalda StringGrid1 komponentining hususiyat qiymatlari keltirilgan.
3.4-jadval.

Hususiyat

Qiymat

ColCount

5

FixedCols

0

RowCount

1

DefaultRowHeight

24

Height

24

DefaultColWidth

64

Width

328

Options . goEditing

True

Options . AlwaysShowEditing

True

Options .goTabs

True




Download 0,99 Mb.

Do'stlaringiz bilan baham:
1   ...   13   14   15   16   17   18   19   20   ...   36




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish