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
|
Dostları ilə paylaş: |
