Filial buyrug'i to'liq va emas. Ko'rsatmalar va topshiriqlar BASIC tilida tarmoqlangan misollar bilan algoritmlar

Mavzular: “BASIC-da tarmoqli va tsiklli dasturlar, ish

massivlar bilan."

Vazifa bir necha qismlardan iborat:

- mavzu bo'yicha ma'ruza materialini o'qish (1-5-betlar) va misollarni tahlil qilish;

- bajarmoqmashq 1(5-bet);

- mavzu bo'yicha ma'ruza materialini o'qish (6-8-betlar) va misollarni tahlil qilish;

- bajarmoqmashq qilish2 (bilan.8-9 );

- mavzu bo'yicha ma'ruza materialini o'qish (9-14-betlar) va misollarni tahlil qilish;

- bajarmoqvazifa 3(14-bet);

- “matritsa” tushunchasi va matritsalar bilan ishlash misollari bilan tanishish (15-17-bet).

Yechilgan topshiriqlarni maktabning elektron pochta manziliga xat orqali yuboring

"Mavzu" bo'limida "Kaverina N. E. informatika" ni ko'rsating. Matn boshida

harflar familiyangizni, sinfingizni, topshiriqni bajarish sanasini va ko'rsatadi

ish raqamlari (13 - 1 7 ). Topshiriqlarni nusxa ko'chiring va keyin javoblarni yozing.

DIQQAT! Topshiriq 12 yanvargacha topshirilishi kerak.

Algoritm va dasturlarda tarmoqlanish.

Ushbu mavzu bo'yicha ma'ruza materialini ko'rib chiqing, misollarni tahlil qiling,

Agar sizda biron bir savol bo'lsa, ularni xat bilan so'rang.

Tarmoqlanish algoritmi shartga qarab u yoki bu harakatlar ketma-ketligi bajariladigan algoritmdir.

Ko'pgina hollarda, muayyan sharoitlarda bir harakatlar ketma-ketligi va boshqa sharoitlarda bajarilishi talab qilinadi.

Butun dastur buyruqlardan (operatorlardan) iborat. Buyruqlar oddiy yoki murakkab bo'lishi mumkin (boshqa buyruqlar ichida joylashgan buyruqlar). Kompozit buyruqlar odatda boshqaruv tuzilmalari deb ataladi. Bu shuni ta'kidlaydiki, ushbu bayonotlar dasturning keyingi borishini nazorat qiladi.

Basicda shartli gap yozishni ko'rib chiqamiz.

Operatorning oddiy shakli quyidagicha ko'rinadi:

AGAR<УСЛОВИЕ>KEYIN<ОПЕРАТОР>

AGAR<УСЛОВИЕ>
<ОПЕРАТОР 1>
<ОПЕРАТОР 2>
…
<ОПЕРАТОР N> OXIRI AGAR

Agar shart rost, keyin dastur amalga oshiradi kalit so'zdan keyin keladigan operator KEYIN(yoki kalit so'zdan bir qator iboralar KEYIN oldin BO'LSA), keyin esa odatdagi tartibni bajaring. Agar holat bajarilmagan , keyin operator KEYIN(yoki bir qator bayonotlar KEYIN oldin BO'LSA) Yo'q amalga oshirildi, va dastur darhol normal ishlashga qaytadi.
Dizayn AGAR... KEYIN shartning haqiqiyligiga qarab, bayonotni bajarish yoki bu bayonotni o'tkazib yuborish imkonini beradi.
Dizayn AGAR...KEYIN...TUGANSA AGAR shartning haqiqiyligiga qarab, operatorlar guruhini bajarish yoki ushbu guruh operatorlarini o'tkazib yuborish imkonini beradi.

Shartlar mantiqiy ifodaning yana bir turidir. Ular quyidagilardan foydalanadilar taqqoslash operatorlari:





	ko'proq yoki teng
	kamroq yoki teng

Taqqoslash belgisining o'ng va chap tomonida bir xil turga tegishli miqdorlar bo'lishi kerak. Taqqoslash natijasida TRUE yoki FALSE qiymatiga ega bo'lgan mantiqiy qiymat olinadi.

Misol:
5<7 - ИСТИНА;
8=12 - FALSE (8 ning 12 ga tengligini tekshiramiz, Biz 8=12 ekanligini tasdiqlamaymiz, tekshiramiz);

Oldingi dizaynlar shartning haqiqiyligiga qarab bir qator bayonotlarni chetlab o'tish yoki bajarish imkonini berdi. Bu hali filial emas edi. Hisob-kitoblarni bir necha yo'nalishda tarmoqlanishiga ruxsat berish uchun dizayn AGAR...SHUNDA...BOSHQA...TUGAN AGAR.

AGAR<УСЛОВИЕ>KEYIN
<ОПЕРАТОРЫ 1>
BOSHQA
<ОПЕРАТОРЫ 2>
BO'LSA

Agar shart rost (TRUE) bo'lsa, u holda<операторы 1>(orasida turish KEYIN Va BOSHQA), A<операторы 2>(orasida turish BOSHQA Va BO'LSA) o'tkazib yuboriladi.
Agar shart to'g'ri bo'lmasa (FALSE), keyin<операторы 1>e'tiborga olinmaydi va bajariladi<операторы 2>.

AGAR - agar, THEN - keyin, ELSE - aks holda.

Agar Xona qorong'i, Keyin chiroqni yoqish kerak.

Agar yomg'ir yog'adi, Keyin Men soyabon olishim kerak
aks holda, soyabon olmang.

Misol: Kiritilgan raqam ma'lum bir qiymatga teng yoki yo'qligini tekshiring va agar u teng bo'lsa, ekranda raqamlarning tengligi haqida xabarni ko'rsating.

REM ma'lum qiymatga ega raqamni solishtiradi
KIRISH “a kiriting”, a
AGAR a=7 bo'lsa, "Raqamlar teng" BO'LING.
OXIRI

Dasturni ishga tushirgandan so'ng, kiritilgan qiymat etti ga teng yoki yo'qligi tekshiriladi. Agar teng bo'lsa, ekranda "Raqamlar teng" xabari ko'rsatiladi.

Misol: Ikki raqamdan kattasini aniqlang, uni ekranda ko'rsating, keyin uni ikkiga ko'paytiring va natijani ekranda ko'rsating.

KIRISH “a kiriting”, a
KIRISH “B”ni kiriting, b
AGAR a>b KEYIN
PRINT "Kattaroq raqam: ", a
s=2*a
BOSHQA
PRINT "Kattaroq raqam: ", b
s=2*b
BO'LSA
PRINT "natija: ", c
OXIRI

Avval dastur ikkala raqamni so'raydi, keyin a>b shartini tekshiradi. Agar shart rost bo'lsa, u holda ekranda a raqami ko'rsatiladi, keyin bu raqam ikki barobarga ko'payadi. Aks holda, ekranda b raqami ko'rsatiladi, keyin b soni ikki baravar ko'payadi. Nihoyat, ekranda kattaroq raqamning ikki barobar qiymati ko'rsatiladi.

E'tibor bering: dasturda bitta kamchilik bor - u kiritilgan raqamlar teng bo'lgan holatni hisobga olmaydi. Keling, bir shartni boshqasiga joylashtirish orqali buni tuzatamiz.

REM ikkita raqamdan kattasini aniqlaydi ...
KIRISH “a kiriting”, a
KIRISH “B”ni kiriting, b
AGAR a=b TNEN
"Raqamlar teng" BOSHQARMASI
s=2*a
BOSHQA
AGAR a>b KEYIN
PRINT "Kattaroq raqam: ", a
s=2*a
BOSHQA
PRINT "Kattaroq raqam: ", b
s=2*b
BO'LSA
BO'LSA
PRINT "natija: ", c
OXIRI

Bu dasturda ikkita shartli operator mavjud bo'lib, birinchisi raqamlarning tenglik shartini tekshiradi va agar bajarilsa, raqamlar tengligi haqida xabar paydo bo'ladi, agar raqamlar teng bo'lmasa, ikkinchi shart tekshiriladi. ...

Misol: Kvadrat tenglamani yechish.
Kvadrat tenglamaning yechimi diskriminantning qiymatiga bog'liq.

REM Kvadrat tenglamani yechish
INPUT "A koeffitsientini kiriting: ", va
INPUT "B koeffitsientini kiriting: ", b
INPUT "c koeffitsientini kiriting: ", c
d=b*b-4*a*c
AGAR d<0 THEN
"Ildiz yo'q" BO'LIM
BOSHQA
AGAR d=0 bo'lsa
x=-b/(2*a)
PRINT "tenglama ildizi: ", x
BOSHQA
x1=(-b-SQR(d))/(2*a)
x2=(-b+SQR(d))/(2*a)
PRINT "tenglama ildizlari: ", x1, x2
BO'LSA
BO'LSA
OXIRI

1-mashq.

1. Ko'paytirish jadvali bo'yicha bilimingizni tekshirish dasturini yozing (siz tanlagan bitta ustun). Respondentning keyingi qadamlarini tushuntirish uchun izohlardan foydalaning.

2. 3 ta raqam berilgan (ularni klaviaturadan izohlar bilan kiriting) a, b, c. Kattaroq sonni tanlaydigan va chop etadigan dastur yozing.

3. Y ning qiymatini hisoblash dasturini tuzing, agar bilsangiz:

o" matnda paydo bo'lsa, barcha harflarni ko'rib chiqish kerak. Bu dasturning soddaligiga qaramay, uni bajarish odam uchun juda qiyin, lekin kompyuter uchun bu bir necha soniya davom etadigan vazifadir.

Round robin algoritmi - ma'lum bir necha marta yoki belgilangan shart bajarilgunga qadar takrorlanishi kerak bo'lgan harakatlar tavsifi.

Takroriy harakatlar ro'yxati tsiklning tanasi deb ataladi.

Misol uchun, jismoniy tarbiya darsida stadion bo'ylab bir nechta aylanishlarni yugurishingiz kerak.

Bunday tsikllar deyiladi - qarama-qarshi halqalar.

Basicda ular quyidagicha yoziladi:

FOR Counter=StartValue TO EndValue
halqa tanasi
KEYINGI [Taymer]

Kvadrat qavs ichida ko'rsatilgan parametrlar ixtiyoriydir (ular o'tkazib yuborilishi mumkin). Odatiy bo'lib, pastadir qadami bitta, ya'ni har safar halqa tanasidan o'tgandan so'ng, hisoblagich bittaga oshiriladi.

Misol: 1 dan 100 gacha bo'lgan barcha raqamlarni ko'rsatish. Buning uchun quyidagi dasturni yozishingiz mumkin:

REM 1 dan 100 gacha raqamlarni chiqaradi
Chop etish 1
Chop etish 2
Chop etish 3
Chop etish 4
Chop etish 5
Chop etish 6
Chop etish 7
...
Chop etish 98
Chop etish 99
100 CHOSMA
OXIRI

Faqat 102 qator :-). Xuddi shu dasturni ancha qisqaroq yozish mumkin bo'lsa-da:

REM 1 dan 100 gacha raqamlarni chiqaradi
UCHUN I=1 dan 100 gacha
Chop etish I
KEYINGISI
OXIRI

Dasturni biroz to'g'rilab, uni a dan b gacha bo'lgan barcha raqamlarni chop etishga majbur qilishingiz mumkin.

REM a dan b gacha raqamlarni chop eting
a=55
b=107
FOR I=a TO b
Chop etish I
KEYINGISI
OXIRI

Bunda sikl orqali birinchi o'tishdagi hisoblagich a o'zgaruvchining qiymatini oladi, shundan so'ng NEXT kalit so'zigacha bo'lgan operatorlar bajariladi. Shundan so'ng, hisoblagich bittaga ko'paytiriladi va b o'zgaruvchining qiymati bilan taqqoslanadi; agar hisoblagich kamroq bo'lsa, tsikl yana bajariladi.

Dasturda raqamlarni teskari tartibda chop etish oson. Buning uchun pastadir qadami -1 (minus bir) ga teng bo'lishi kerak. Bunday holda, har bir tsikl tugaganda hisoblagich qiymati bittaga kamayadi.

REM b dan a gacha raqamlarni chop eting
a=55
b=107
I=b GA QADAM UCHUN -1
Chop etish I
KEYINGISI
OXIRI

Misol: Ikki xonali natural sonlar yig‘indisini hisoblang.

REM Ikki xonali natural sonlar yig'indisini hisoblang
UCHUN I=10 dan 99 gacha
s=s+I
KEYINGISI
PRINT "Natija = ",s
OXIRI

Dastur har safar amallarni bajarganida 10 dan 99 gacha raqamlarni aylantiradi s=s+I. Matematik nuqtai nazardan, bu mutlaqo ma'nosiz kirish, ammo keling, uni diqqat bilan ko'rib chiqaylik.
Hisoblash muammosini hal qilish jarayoni o'zgaruvchilar qiymatlarini ketma-ket o'zgartirish jarayonidir. Natijada, ma'lum o'zgaruvchilarda natija olinadi. O'zgaruvchi natijada ma'lum bir qiymatga ega bo'ladi topshiriqlar. Esingizda bo'lsa, topshiriq buyruqni bajarish natijasida o'zgaruvchi uchun ajratilgan katakka ma'lum bir qiymatni kiritishdir.
Operatsiya natijasida a=5 o'zgaruvchan A 5 qiymatini oladi.
Operatsiya natijasida s=a+b o'zgaruvchan Bilan o'zgaruvchi qiymatlari yig'indisiga teng qiymat oladi A Va b.
Operatsiya natijasida s=s+I o'zgaruvchan s o'zgaruvchining oldingi qiymati yig'indisiga teng qiymat oladi s va o'zgaruvchan qiymatlar I. Ya'ni, agar tayinlash operatsiyasidan oldin qiymat bo'lsa s 5 ga teng edi va o'zgaruvchi I 3 bo'lsa, operatsiyadan keyin o'zgaruvchining qiymati s 8 ga teng bo'ladi (5+3, eski qiymat s+ qiymat I).
Bu shuni anglatadiki, dasturimizni bajargandan so'ng, s o'zgaruvchisi 10 dan 99 gacha bo'lgan barcha ikki xonali sonlar yig'indisini saqlaydi.

REM Sonning faktorialini hisoblang
a=5
f=1
FOR I=1 TO a
f=f*I
KEYINGISI
CHAPATMA f
OXIRI

Siz, albatta, tsikl boshlanishidan oldin f o'zgaruvchisiga birga teng qiymat berganimizni payqadingiz. Aks holda, natijada biz nolga erishamiz.

Vazifa 2.

1. Operatordan foydalanish UCHUN...KEYINGI, X argumenti -5 dan +5 gacha o‘zgarganda Y=5/X funksiyaning qiymatini 0,5 ga oshib, hisoblash va chop etish dasturini yozing.

2. Operatordan foydalanish UCHUN...KEYINGI, Dastlabki 10 ta butun sonning yig‘indisini hisoblaydigan va natijani ekranga chiqaradigan dastur tuzing.

3. Dasturni bajarish natijasini yozing:

10 X=1,5 TO 0 QADAM UCHUN -0,5

Massivlar . Bir o'lchovli massivlar.

Bir xil turdagi ko'p sonli ma'lumotlar bilan ishlashda massivlardan foydalanish juda qulay.

Xo'sh, massivlar nima ...
Massiv o'zgaruvchining bir turi. Bu sizga kerakli qiymatlarni bir xil nom ostida saqlashga imkon beradi. Har bir massiv qiymatiga raqamli indeks orqali kirish kerak.

Massiv - bir xil nomga (identifikator) ega bo'lgan, lekin seriya raqamlari (indekslari) bilan farq qiluvchi o'zgaruvchilar to'plami.

Odatda, massivlar ko'plab umumiy xususiyatlarga ega bo'lgan o'zgaruvchilarni guruhlash uchun ishlatiladi. Misol uchun, agar sinfda 30 nafar o'quvchi bo'lsa, unda har bir talabaning nomi alohida qator o'zgaruvchisida saqlanishi mumkin: name1, name2, ... Lekin 30 ta yangi o'zgaruvchini kiritish juda noqulay. Buni oddiyroq qilish mumkin: 30 ta elementdan iborat bitta massiv nomini () e'lon qiling. Muayyan elementga murojaat qilish zarur bo'lganda indeks qavs ichiga joylashtiriladi.

Ko'p tillarda massiv elementlarini hisoblash noldan boshlanadi. Shunday qilib, birinchi (sinf registriga ko'ra) o'quvchining ismi name(0) o'zgaruvchisida, ikkinchisi - name(1) o'zgaruvchisida va oxirgi (o'ttizinchi) - nomida(29) saqlanadi. o'zgaruvchan.

Massivdan foydalanish uchun uni avvalo dasturda e’lon qilish kerak. Buning uchun operatordan foydalaning DIM. Odatiy bo'lib (operator bo'lmasa DIM dasturda) 10 ta elementdan iborat massiv berilgan deb hisoblanadi.

DIM a(100) ASKI BUTUN
Bu yuzta elementdan iborat massiv bo'lib, ularning har biri butun son bo'lishi mumkin.
DIM nomi(30) STRING AS
DIM massivi (20)
Bu 20 ta elementdan iborat massiv, o'zgaruvchining turi aniq ko'rsatilmagan.

DIM mas1(10) BUTUN AS

Massiv elementlariga kirish:

a(24)
ism (5)
mas(2)
mas(3)

Massivlarning har xil nomdagi o'zgaruvchilarning odatiy to'plamidan asosiy afzalligi shundaki. kerakli element indeksini raqam sifatida emas, balki o'zgaruvchi sifatida yozish yoki hatto ifoda yordamida hisoblash mumkinligi. Bu massivlarni looplar ichida ishlatishga imkon beradi - bu aslida ular uchun ixtiro qilingan. Agar dastur massivni o'z ichiga olsa, unda siz unda tsiklni ham topasiz.

Bundan tashqari, massivni quyidagi tarzda e'lon qilishingiz mumkin:

DIM mas2(1 dan 10 gacha) INTEGER AS

yoki hatto shunday:

DIM a2(5 dan 10 gacha) INTEGER AS

Farqi nimada? Bunday holda, massiv elementlarini indekslash noldan emas, balki sizga kerak bo'lgan indeksdan boshlanadi (misolda, massiv mas2 1 dan 10 gacha indekslarga ega, massiv a2- 5 dan 10 gacha).

Aytaylik, bir sinfda 30 nafar o‘quvchi bor. Faraz qilaylik, fan bo'yicha ularning baholarini saqlash uchun massiv yaratilgan DIM belgisi(30) AS BUTUN. Quyidagi dastur har bir talabaga 3 dan 5 gacha tasodifiy baho qo'yadi. Albatta, siz bunday baho qo'yishingiz mumkin emas, lekin bu misol shuni ko'rsatadiki, agar sinfda 30 emas, balki yuzta o'quvchi bo'lsa, dastur murakkablashmaydi. va ellik million. Massivlar va pastadirlarning kombinatsiyasi ajoyib soddalikka imkon beradi.

REM bahosi :)
DIM belgisi(30) AS INTEGER
UCHUN I=0 dan 29 gacha
belgi(I)=3+INT(RND*3)
KEYINGISI
OXIRI

Basic tilida tasodifiy sonlar yaratish uchun standart funksiyadan foydalaning RND. U 0 dan 1 gacha bo'lgan oraliqda tasodifiy son hosil qiladi. Uni 3 ga ko'paytirsak, biz 0 dan 3 gacha bo'lgan tasodifiy sonni olamiz. Va undan butun sonni olib (INT funktsiyasidan foydalanib), biz butun son tasodifiy sonni olamiz. 0 dan 2 gacha bo'lgan diapazon. Unga 3 raqamini qo'shib, biz 3 dan kam bo'lmagan va 5 dan ko'p bo'lmagan tasodifiy baho beramiz.

Misol: 15 ta elementdan iborat massivni 1 dan 10 gacha bo'lgan oraliqdagi tasodifiy sonlar bilan to'ldirish dasturini tuzing. Massivni ekranda ko'rsatishni ta'minlang.

DIM mas(15) INTEGER AS
UCHUN I=0 dan 14 gacha
mas(I)=1+INT(RND*10)
KEYINGISI
CLS
“Masiv chiqishi”ni CHAPATING
UCHUN I=0 dan 14 gacha
PRINT mas(I);
KEYINGISI
OXIRI

CLS- ekranni tozalash. Bayonotda nuqta-vergul (;). Chop etish qatorga massiv elementlarini chiqarish imkonini beradi.

Xuddi shu vazifa, lekin massiv deklaratsiyasida farqlanadi:

REM Massivni to'ldirish va chiqarish
DIM mas(1 dan 15 gacha) INTEGER AS
UCHUN I=1 dan 15 gacha
mas(I)=1+INT(RND*10)
KEYINGISI
CLS
“Masiv chiqishi”ni CHAPATING
UCHUN I=1 dan 15 gacha
PRINT mas(I);
KEYINGISI
OXIRI

Hammasi juda oddiy. Qaysi variantdan foydalanish sizga bog'liq.

Misol: manfiy massiv elementlari sonini chop eting.

REM Salbiy elementlar sonini chop eting

DIM mas(n) AS INTEGER
UCHUN I=0 TO n-1

KEYINGISI
CLS
“Masiv chiqishi”ni CHAPATING
UCHUN I=0 TO n-1
PRINT mas(I);
KEYINGISI
UCHUN I=0 TO n-1
IF mas(I)<0 THEN k=k+1
KEYINGISI
Chop etish
PRINT "Salbiy elementlar soni: ",k
OXIRI

Massivning salbiy elementlari soni siklda hisoblanadi:
UCHUN I=0 TO n-1
IF mas(I)<0 THEN k=k+1
KEYINGISI

Misol: Massivning eng katta elementi va uning sonini hisoblash dasturini yozing.

Eng katta massiv elementi va uning sonini hisoblashning REM
INPUT "Masiv elementlari sonini kiriting", n
DIM mas(n) AS INTEGER
UCHUN I=0 TO n-1
INPUT “Masiv elementini kiriting”, mas(I)
KEYINGISI
CLS
“Masiv chiqishi”ni CHAPATING
UCHUN I=0 TO n-1
PRINT mas(I);
KEYINGISI
max=mas(0)
raqam = 1
UCHUN I=0 TO n-1
AGAR mas(I)>max KEYIN
max=mas(I)
raqam=I+1
BO'LSA
KEYINGISI
Chop etish
PRINT "Maksimal element: ", maks., "raqamli", nomer
OXIRI

Vazifa quyidagi qatorlarda amalga oshiriladi:
max=mas(0)
raqam = 1
UCHUN I=0 TO n-1
AGAR mas(I)>max KEYIN
max=mas(I)
raqam=I+1
BO'LSA
NEXT Birinchidan, massivning birinchi elementi sifatida eng katta elementni olaylik mas(0). Keyin, barcha elementlarni birma-bir ko'rib chiqamiz, biz ularni qiymat bilan taqqoslaymiz maks va agar mas(I)>maks, keyin bu elementni eng kattasi sifatida qabul qilamiz.

Misol: massivni o'sish tartibida tartiblash dasturini yarating.

REM massivini saralash
INPUT "Masiv elementlari sonini kiriting", n
DIM mas(n) AS INTEGER
UCHUN I=0 TO n-1
mas(I)=1+INT(RND*10)
KEYINGISI
CLS
“Masiv chiqishi”ni CHAPATING
UCHUN I=0 TO n-1
PRINT mas(I);
KEYINGISI
REM massivini saralash
FOR I=0 TO n-2
UCHUN J=I+1 TO n-1
AGAR mas(I)>mas(J) KEYIN
REM kichikroq elementni topsak, ularni almashtiring
a=mas(I)
mas(I)=mas(J)
mas(J)=a
BO'LSA
KEYINGI J
KEYINGI I
Massivlarni saralashning REM oxiri
Chop etish
PRINT “Saralangan massivni chiqarish”
UCHUN I=0 TO n-1
PRINT mas(I);
KEYINGISI
OXIRI

Ba'zan ma'lumotlarni kiritish uchun operatorlardan foydalanish qulay DATA Va O'QING.
DATA keyingi iboralar tomonidan o'qilishi kerak bo'lgan qiymatlarni belgilaydi O'QING. O'QING bu qiymatlarni o'qiydi va ularni o'zgaruvchilarga tayinlaydi. QAYTA QILISH imkon beradi O'QING ko'rsatilgan bayonotdagi qiymatlarni qayta hisoblang DATA.

DATA konstantalari
READ o'zgaruvchilari

Misol: DATA operatori yordamida massivni kiritish.

REM DATA dan ma'lumotlarni kiritish
DIM mas(5) INTEGER AS
DATA 2, -4, 1, 5, 9
REM massivini kiritish
UCHUN I=0 dan 4 gacha
READ mas(I);
KEYINGISI
REM massivining chiqishi
UCHUN I=0 dan 4 gacha
PRINT mas(I);
KEYINGISI
OXIRI

Vazifa 3.

1. 4 dan katta massiv elementlarining yig’indisi va ko’paytmasini hisoblash dasturini yozing. A massiv 15 ta elementdan iborat.

2. B massivning 20 ta elementdan iborat minimal elementini topish dasturini tuzing.

3. 20 ta elementdan iborat A va B massivlar berilgan. A) X(I)=2a(i)-b(i) ekanligi ma’lum bo‘lsa, 20 ta elementdan iborat yangi X massivni olish dasturini tuzing. B) y(I)=a(i)+3b(i) ekanligi ma’lum bo‘lsa, 15 ta elementdan iborat yangi Y massivni olish dasturini tuzing.

Massivlar. Ikki o'lchovli massivlar.

Ikki o'lchovli massivlarni xujayralarida massiv elementlarining qiymatlari saqlanadigan jadvallar va qator elementlarining indekslari qator va ustun raqamlari sifatida ko'rib chiqish mumkin.

Ikki o'lchovli massivlar o'zgaruvchilar va bir o'lchovli massivlar kabi e'lon qilinadi. Masalan, 3 qator va 4 ustundan iborat butun sonli massiv quyidagicha e'lon qilinadi:

DIM tab(3 ,4) AS INTEGER

DIM tabl1 (1 dan 3 gacha, 1 dan 4 gacha) INTEGER AS

Ikki o'lchovli 9x9 massiv va ikkita ichki ko'chadan foydalanib, siz ko'paytirish jadvalini amalga oshiradigan dasturni osongina yaratishingiz mumkin. Faktorlar qator va ustun indekslarining qiymatlari, ularning mahsulotlari esa massiv elementlarining qiymatlari bo'ladi.

DIM tablum (1 dan 9 gacha, 1 dan 9 gacha) INTEGER AS

REM ko'paytirish jadvali
DIM tabum (1 dan 9 gacha, 1 dan 9 gacha) INTEGER AS
REM Massivni to'ldirish - ko'paytirish jadvalini yaratish
UCHUN I=1 dan 9 gacha
J=1 dan 9 gacha
tabum(I, J)=I*J
KEYINGI J
KEYINGI I

UCHUN I=1 dan 9 gacha
J=1 dan 9 gacha
PRINT jadvali (I, J);
KEYINGI J
Chop etish
KEYINGI I
OXIRI

Misol: 3x4 o'lchamdagi jadvalda manfiy elementlar sonini, juft elementlar yig'indisini va ikkinchi qator elementlarining ko'paytmasini hisoblang.

REM miqdorini hisoblash ...
DIM tabl (1 dan 3 gacha, 1 dan 4 gacha) INTEGER AS
REM massivini to'ldirish
UCHUN I=1 dan 3 gacha
J=1 dan 4 gacha
INPUT “Masiv elementini kiriting:”, tabl(I, J)
KEYINGI J
KEYINGI I
REM Massivni ekranda jadval sifatida ko'rsatish
CLS
UCHUN I=1 dan 3 gacha
J=1 dan 4 gacha
Chop etish yorlig'i (I, J);
KEYINGI J
Chop etish
KEYINGI I
REM talab qilinadigan hisob-kitoblar
k=0
s=0
p=1
UCHUN I=1 dan 3 gacha
J=1 dan 4 gacha
IF jadvali (I, J)<0 THEN k=k+1
IF tabl(I, J) MOD 2 = 0 KEYIN s=s+tabl(I, J)
AGAR I=2 boʻlsa, p=p*tabl(I, J)
KEYINGI J
KEYINGI I
Chop etish
PRINT "natija:"
PRINT "salbiy elementlar: ", k
PRINT "juft elementlar yig'indisi: ", s
PRINT "ikkinchi qator elementlarining mahsuloti: ", p
OXIRI

3-dars

Algoritm va dasturlarda tarmoqlanish.

Tarmoqlanish algoritmi - shartga qarab u yoki bu harakatlar ketma-ketligi bajariladigan algoritm.

Ko'pgina hollarda, muayyan sharoitlarda bir harakatlar ketma-ketligi va boshqa sharoitlarda bajarilishi talab qilinadi.

Basicda shartli gap yozishni ko'rib chiqamiz.

Operatorning oddiy shakli quyidagicha ko'rinadi:

AGAR<УСЛОВИЕ>KEYIN<ОПЕРАТОР>

AGAR<УСЛОВИЕ> <ОПЕРАТОР 1>[:<ОПЕРАТОР 2>:…:<ОПЕРАТОР N>]

Agar shart rost, keyin dastur amalga oshiradi kalit so'zdan keyin keladigan operator KEYIN(yoki kalit so'zdan bir qator iboralar KEYIN oldin oxiri), keyin esa odatdagi tartibni bajaring. Agar tutmoqYo'q adolatli, keyin operator KEYIN(yoki bir qator bayonotlar KEYIN) Yo'q amalga oshirildi, va dastur darhol normal ishlashga qaytadi.
Dizayn AGAR... KEYIN shartning to‘g‘riligiga qarab, yoki bayonni bajarishga yoki bu bayonotni o‘tkazib yuborishga imkon beradi.Qurilish AGAR...KEYIN... shartning haqiqiyligiga qarab, operatorlar guruhini bajarish yoki ushbu guruh operatorlarini o'tkazib yuborish imkonini beradi.

Shartlar mantiqiy ifodaning yana bir turidir. Ular quyidagilardan foydalanadilar taqqoslash operatorlari:

ko'proq yoki teng

kamroq yoki teng

Taqqoslash belgisining o'ng va chap tomonida bir xil turga tegishli miqdorlar bo'lishi kerak. Taqqoslash natijasida TRUE yoki FALSE qiymatiga ega bo'lgan mantiqiy qiymat olinadi.

5<7 - ИСТИНА;

8=12 -FALSE (8 ning 12 ga tengligini tekshiramiz, Biz 8=12 ekanligini tasdiqlamaymiz, tekshiramiz);

AGAR<УСЛОВИЕ>KEYIN<ОПЕРАТОРЫ 1>BOSHQA<ОПЕРАТОРЫ 2>
Agar shart rost (TRUE) bo'lsa, u holda<операторы 1>(orasida turish KEYIN Va BOSHQA), A<операторы 2>(keyin keladi BOSHQA) o'tkazib yuboriladi.
Agar shart to'g'ri bo'lmasa (FALSE), keyin<операторы 1>e'tiborga olinmaydi va bajariladi<операторы 2>.

AGAR - agar, THEN - keyin, ELSE - aks holda.

Agar Xona qorong'i, Keyin chiroqni yoqish kerak.

Agar yomg'ir yog'adi, Keyin Men soyabon olishim kerak aks holda, soyabon olmang.

Misol: Kiritilgan raqam ma'lum bir qiymatga teng yoki yo'qligini tekshiring va agar u teng bo'lsa, ekranda raqamlarning tengligi haqida xabarni ko'rsating.

REM ma'lum qiymatga ega raqamni solishtiradi
KIRISH “a kiriting”, a
AGAR a=7 bo'lsa, "Raqamlar teng" BO'LING.
OXIRI

Dasturni ishga tushirgandan so'ng, kiritilgan qiymat etti ga teng yoki yo'qligi tekshiriladi. Agar teng bo'lsa, ekranda "Raqamlar teng" xabari ko'rsatiladi.

Misol: Ikki raqamdan kattasini aniqlang, uni ekranda ko'rsating, keyin uni ikkiga ko'paytiring va natijani ekranda ko'rsating.

KIRISH “a kiriting”, a
KIRISH “B”ni kiriting, b
AGAR a>b BO'LSA "Kattaroq raqam: ", a:s=2*a
ELSE PRINT "Kattaroq raqam: ", b:s=2*b
PRINT "natija: ", c
OXIRI

E'tibor bering: dasturda bitta kamchilik bor - u kiritilgan raqamlar teng bo'lgan holatni hisobga olmaydi. Keling, bir shartni boshqasiga joylashtirish orqali buni tuzatamiz.

REM ikkita raqamdan kattasini aniqlaydi ...
KIRISH “a kiriting”, a
KIRISH “B”ni kiriting, b
IF a=b TNEN PRINT "Raqamlar teng":c=2*a
BOSHQA AGAR a>b BO‘LSA “Katta raqam: “, a: s=2*a
ELSE PRINT "Kattaroq raqam: ", b: s=2*b
PRINT "natija: ", c
OXIRI

Misol: Kvadrat tenglamani yechish.
Kvadrat tenglamaning yechimi diskriminantning qiymatiga bog'liq.

REM Kvadrat tenglamani yechish
INPUT "A koeffitsientini kiriting: ", va
INPUT "B koeffitsientini kiriting: ", b
INPUT "c koeffitsientini kiriting: ", c
d=b*b-4*a*c
AGAR d<0 THEN PRINT "Корней нет"
BOSHQA AGAR d=0 BO‘LSA X=-b/(2*a) : PRINT “tenglama ildizi: “, x
BOSHQA x1=(-b-SQR(d))/(2*a): x2=(-b+SQR(d))/(2*a) : PRINT "tenglama ildizlari: ", x1, x2
OXIRI

Mantiqiy shartlar chaqiriladi oddiy, filialning ikkita filiali bo'lsa va murakkab, agar ikkitadan ortiq filial mavjud bo'lsa.

VA va

YOKI yoki

EMAS

Hisoblash

Vazifa 1.

Define - tomonlari A, B, C teng yon tomonli uchburchak.

INPUT "A, B, C uchburchak tomonlarining o'lchamlarini kiriting"; A, B, C

Visual Basic dasturidagi kod qatori dastur bayoni deyiladi. Dastur bayonoti Visual Basic kalit so'zlari, xossalari, funktsiyalari, arifmetik yoki mantiqiy operatorlari va belgilarning kombinatsiyasi bo'lib, ular birgalikda Visual Basic kompilyatori tomonidan tan olingan haqiqiy bayonotni tashkil qiladi.

93. Massivlar va sikl operatsiyalari

22-dars. sikl operatorlari For...Next va For Every

VB.NET dagi tsikllar boshqa dasturlash tillaridagi sikllarga o'xshaydi. Ushbu darsda biz ikki turdagi sikllarni ko'rib chiqamiz - For...Next va For Every tsikllari. For...Keyingi sikllar ma'lum bir necha marta bajariladi. Ya'ni, agar siz siklingiz necha marta bajarilishi kerakligini oldindan bilsangiz, u holda biz For...Keyingi sikldan foydalanamiz. For Every tsikli to'plamlar va massivlar elementlarini takrorlash uchun ishlatiladi. Masalan, For Every dan foydalanib, siz formadagi barcha elementlarni sanab o'tishingiz (o'tish) yoki ma'lumotlar bazasidagi barcha qatorlarni qayta ishlashingiz mumkin.

For...Next operatoriga misol:

Dim A(10) Butun son sifatida

Dim i Integer

"Masivni kvadratchalar bilan to'ldiring

"Masiv elementlarini olish

Console.WriteLine(A(i))

Bu misolda 10 ta butun sonli massiv avval raqamlar kvadratlari bilan to'ldiriladi, so'ngra massivning elementlari ekranda ko'rsatiladi. Chiziq o'rniga

Siz yozishingiz mumkin

For...Keyingi sikllarida sikl hisoblagichi (bu holda i) avtomatik ravishda o'zgaradi.

Keltirilgan misolda, sikl har safar o'tkazilganda hisoblagich 1 ga ortadi.Agar sizga boshqa qadam kerak bo'lsa, biz qadam bilan konstruktsiyadan foydalanamiz:

i = 0 dan 9 gacha 2-qadam uchun

“Biz nimadir qilyapmiz

Ushbu tsikl 5 marta bajariladi.

Keling, For Every tsiklidan foydalangan holda misolni ko'rib chiqaylik:

Dim z Butun son sifatida

Dim A(10) Butun son sifatida

"A massivini to'ldiring

Har bir z In A uchun

Agar z > 10 bo'lsa

Console.WriteLine(z)

Ko'rib turganingizdek, biz siklimizda A massivdagi barcha elementlardan o'tamiz (buni In A konstruktsiyasidan ko'rish mumkin). Agar massiv elementi 10 dan katta bo'lsa, biz uni ekranda ko'rsatamiz.

Odatda, For Every tsikllari turli to'plamlardagi elementlarni sanab o'tish uchun ishlatiladi (masalan, formadagi elementlar yoki Windowsdagi barcha shriftlar).

Muammolarni hal qilishda ma'lumotlar to'plamidan foydalanish. VB dagi massivlar. Indekslangan o'zgaruvchilar. Massivlarning tavsifi. Massiv indekslarining quyi va yuqori chegaralarini belgilash tartibi. Boshqaruv massivlari. Boshqaruv massivlarini yaratish tartibi. Massiv indekslangan o'zgaruvchini saqlash uchun ajratilgan xotira kataklari qatori bo'lishi mumkin. X1,Y2, Zt+1, Mi,j+1 – indeks o‘zgaruvchilari. => X(1), Y(2), Z(i+1), M(I, f+1) – YAPVUda sonlar qatori bilan ishlash uchun moʻljallangan. dlina (1), dlina (2), dlina (3) - bir o'lchovli massiv. Dim dlina (1 dan 3 gacha) As Integer – dasturdagi massivning tavsifi, 1 qatorning pastki chegarasi, 3 qatorning yuqori chegarasi. Massivlarni indekslash 0 yoki 1 dan boshlanishi shart emas.Index xossasi yordamida boshqaruv elementlari massivi tuziladi, Index xossasini belgilash orqali kompyuterga bu obyekt massiv elementi hisoblanishini aytamiz. Boshqaruv massivi - bu raqamlangan ob'ektlar qatori. Yaratish usuli: 1) Dizayn bosqichida Index xossasini belgilash. 2) Win-ga nusxalash orqali (nusxalash/joylashtirish). 3) Dasturiy ravishda (1(1) matnni yuklash - usul). Load formaga Text1(1) nomli obyektni yuklaydi. Ikki o'lchovli massivlar. Ular bir o'lchovlilarga o'xshash tarzda belgilanadi: Dim dlina (1 dan 3 gacha, 1 dan 4 gacha) Integer sifatida, ikki yo'nalishdagi chegaralar vergul bilan ajratilgan qavslar ichida ko'rsatilgan, birinchi (1 dan 3 gacha) chegaralar vertikal va ikkinchisi gorizontal (1 dan 4 gacha). Ikki oʻlchovli massiv elementiga kirish: dlina(1,3) – birinchi qatordagi element, uchinchi ustun.

Ma'lumotlar massivlari bir nechta o'zgaruvchan qiymatlarni saqlash uchun ishlatiladi:

Statik x(2) Butun son sifatida (x=0,1,2).

Agar massivning o'lchamini oldindan aniqlash mumkin bo'lmasa, u holda dinamik massiv ishlatiladi:

Dim Y() butun son sifatida.

Konstantalarni aniqlash uchun kalit so'z ishlatiladi:

Const Pi = 3.142.

Massiv protsedura parametri sifatida

Rem Program_2.5 – massiv protsedura parametri sifatida

Dim n Integer

Dim yolg'iz

Dim x(2) Yagona

x(1) = 5: x(2) = 15: s = 0

Sumir(x(), n, s) ‘ ga qo‘ng‘iroq qiling ‘ massiv elementlarini yig‘ish protsedurasini chaqiring

MsgBox "s = " & Str(lar)

Sub sumir (x() Yakka, n Butun son, s Yakka)

Dim i Integer

Funksiya deganda asl nom ostida birlashtirilgan operatorlar guruhi tushuniladi. Funktsiya nomidagi oxirgi belgi u qaytaradigan qiymat turini belgilaydi.

Foydalanuvchi tomonidan aniqlangan funksiyalar (foydalanuvchi tomonidan tuzilgan kutubxona funksiyalari emas) kodni tahrirlash oynasiga Function kalit so‘zidan iborat sarlavha va undan keyin qavslar ichida kerakli argumentlar bilan funksiya nomini kiritish orqali e’lon qilinadi. Shundan so'ng, quyidagi shablon avtomatik ravishda paydo bo'ladi:

FUNCTION_NAME funksiyasi

Funksiya nomi va End Function kalit so'zlari orasidagi bo'shliqqa kerakli iboralar kiritiladi.

Agar funktsiyani chaqirayotganda unga har qanday qiymatlar (argumentlar) berilishi kerak bo'lsa, unda funktsiya nomidan keyin sarlavhada tegishli o'zgaruvchilar vergul bilan ajratilgan holda ro'yxatga olinishi kerak.

Funktsiyani aniqlashning umumiy sintaksisi:

FUNCTION_NAME funksiyasi(PARAMETER_1[, PARAMETER_2]...)

OPERATOR_1

[OPERATOR_2]

FUNCTION_NAME = ISFODA

bu yerda PARAMETER – funksiya chaqirilganda unga uzatiladigan ma’lumotlar elementi; Statik - agar ushbu kalit so'z funksiya deklaratsiyasida mavjud bo'lsa, funktsiya tanasida e'lon qilingan mahalliy o'zgaruvchilar ushbu funktsiyaga qo'ng'iroqlar orasida o'z qiymatlarini saqlab qoladilar.

Funksiyalarni chaqirish usullari: X = fun1(Y), yoki fun1 Y chaqirish.

Agar funktsiya belgi (string) qiymatini qaytarishi kerak bo'lsa, uning nomidagi oxirgi belgi $ belgisi bo'lishi kerak.

Har bir funktsiya har doim faqat bitta qiymatni qaytaradi.

Funktsiyalarga misollar:

1. Funksiyadan parametrni uzatish

Rem Program_2.6 – Funksiyadan parametrni uzatish

Dim x Single, y As Single, s As Single

s = sumir(x, y) ‘ ikkita sonni yig‘ish funksiyasini chaqiring

MsgBox "s = " & Str(lar)

Funktsiya yig'indisi! (x!, y!) ‘ ikki sonni yig‘ish funksiyasining ta’rifi

sumir! = x! +y!

Oddiy o'zgaruvchilarga qo'shimcha ravishda siz qiymatlarni saqlash uchun massivlardan foydalanishingiz mumkin. Massiv - bir xil nomli va turli indekslarga ega bo'lgan o'zgaruvchilar to'plami. Har bir bunday o'zgaruvchi massiv elementi deb ataladi. Massivda saqlanadigan elementlar soni massivning o'lchami deyiladi. Massivning o'lchami RAM miqdori va massiv elementlarining ma'lumotlar turi bilan chegaralanadi. Barcha massiv elementlari bir xil turga ega. Biroq, agar massiv tipli variant bo'lsa, u holda alohida elementlar har xil turdagi ma'lumotlarni o'z ichiga olishi mumkin. Masalan, ba'zi elementlar raqamlar bo'lishi mumkin, boshqalari qatorlar yoki ob'ektlar bo'lishi mumkin. Visual Basic da qat'iy o'lchamli massivlar va dinamik massivlar mavjud. Ruxsat etilgan o'lchamli massiv e'lon qilinganida ko'rsatiladigan qat'iy o'lchamga ega. Dinamik massivlar bajarilish vaqtida hajmini o'zgartirishi mumkin. Ikki o'lchovli massiv nima? Bu bir xil turdagi ma'lumotlar to'plami bo'lib, ularning har bir elementining joylashuvi bitta indeks bilan emas, balki ikkita bilan belgilanadi. Masalan, bolaligidan "dengiz jangi" o'ynaganlar uchun o'yin maydonining har bir katagi ikkita belgi - harf va raqam bilan belgilanganligi kashfiyot bo'lmaydi, masalan, A5 - "o'tkazib yuborilgan", I10 - "urdi", Z7 - "o'ldirildi" ". Faqat BASICda indeks sifatida butun sonlardan foydalanish odatiy holdir. Ikki o'lchovli massivlardan foydalanishning haqiqiy hayotiy misoli - kino yoki teatr chiptalari, har bir tomoshabin uchun ikkita koordinata - qator va o'rindiq.

Shunga o'xshash massivlar BASIC tilida bir xil xiralashtirish operatori yordamida tasvirlangan, shundan so'ng massivning ikki o'lchami qavs ichida ko'rsatilgan - qatorlar soni va ustunlar soni.

DASTURLASH TILI VISUAL BASIC. FILIALLARNI DASTURLASH

Visual Basic-da filiallar quyidagilar yordamida tashkil etiladi:

shartli IF bayonoti;
o'rnatilgan IIF funktsiyasi;
CASE tanlash operatori.

Bitta shartni sinab ko'rish va bayonot yoki bayonotlar blokini bajarish uchun foydalaning shartli gap IF...SHUNDAN. Bu operator turli sintaksislar bilan ishlatilishi mumkin: bir qatorli (chiziqli) va ko'p qatorli (blok).

Chiziqli operator quyidagi sintaksisga ega:

Agar<условие>Keyin<операторы!>

Blok operatori quyidagi sintaksisga ega:

Agar<условие>Keyin
<блок операторов 1>
Agar tugaydi

Agar berilgan shart True bo'lsa, operator bloki bajariladi, aks holda operator bloki2 bajariladi. Agar Else bandi belgilanmagan bo'lsa, agarShart bajarilganda boshqaruv darhol If dan keyin keyingi operatorga o'tkaziladi.

If operatori ichkariga joylashtirilishi mumkin, ya'ni operator bloklari ichida joylashgan. Bir nechta shartlarni sinab ko'rish va bir nechta bayonot bloklaridan birini bajarish uchun shaklning kengaytirilgan shartli bayonotidan foydalaning:

Agar<условие 1>Keyin
<блок операторов 1>
Boshqa<условие 2>Keyin
<блок операторов 2>
Boshqa<условие n>Keyin
<блок операторов n>
Agar tugaydi

Ba'zi shartlarni qondirish yoki muvaffaqiyatsizlikka qarab qiymatlardan birini tanlash uchun quyidagi sintaksisga ega bo'lgan IIF shartli funktsiyasidan foydalaning:

IIF(<условие>, <значение1>, <значение2>)

Agar shart rost bo'lsa, bu funktsiya qiymat 1 ni va shart noto'g'ri bo'lsa, qiymat2 ni qaytaradi.

Siz mantiqiy ifodani True yoki qaytaradigan shart sifatida ishlatishingiz mumkin

False yoki har qanday arifmetik ifoda (nol qiymat Falsega, nolga teng bo'lmagan qiymat esa Truega ekvivalentdir).

SELECT CASE bayonoti bitta shartni sinab ko'rish va bir nechta bayonot bloklaridan birini bajarish uchun ishlatiladi.

Operator yozuvi formati:

Case-ni tanlang<проверяемое выражение>
Case<список выражений 1>
<операторы 1>Case<список выражений 2>
<операторы 2>Case<список выражений 3>
<операторы 3>
Boshqa holat
<операторы группы Else>
Tanlovni tugatish

Tekshirilayotgan ifoda Select Case operatorining boshida baholanadi. Bu ifoda har qanday turdagi qiymatni qaytarishi mumkin (mantiqiy, raqamli, satr).

Ifodalar roʻyxati standart ajratuvchi belgi (nuqtali vergul) bilan ajratilgan bir yoki bir nechta ifodadir.

Operator bajarilganda, ushbu ro'yxat elementlaridan kamida bittasi tekshirilayotgan ifodaga mos keladimi yoki yo'qmi tekshiriladi.

Ushbu iboralar ro'yxati aliment quyidagi shakllardan birini olishi mumkin:

<выражение>- berilgan ifodaning iboralardan biri - ro'yxat elementlari bilan mos kelishini tekshiradi;
<выражение 1>Bu<выражение 2>- berilgan ifodaning belgilangan diapazonga tushishini tekshiradi;
< Is <логический оператор> < выражение>- berilgan ifoda uchun belgilangan shartning bajarilishini tekshiradi.

Filial buyrug'i to'liq va emas. Ko'rsatmalar va topshiriqlar BASIC tilida tarmoqlangan misollar bilan algoritmlar

1. 4 dan katta massiv elementlarining yig’indisi va ko’paytmasini hisoblash dasturini yozing. A massiv 15 ta elementdan iborat.

2. B massivning 20 ta elementdan iborat minimal elementini topish dasturini tuzing.

3. 20 ta elementdan iborat A va B massivlar berilgan. A) X(I)=2*a(i)-b(i) ekanligi ma’lum bo‘lsa, 20 ta elementdan iborat yangi X massivni olish dasturini tuzing. B) y(I)=a(i)+3*b(i) ekanligi ma’lum bo‘lsa, 15 ta elementdan iborat yangi Y massivni olish dasturini tuzing.

93. Massivlar va sikl operatsiyalari

3. 20 ta elementdan iborat A va B massivlar berilgan. A) X(I)=2a(i)-b(i) ekanligi ma’lum bo‘lsa, 20 ta elementdan iborat yangi X massivni olish dasturini tuzing. B) y(I)=a(i)+3b(i) ekanligi ma’lum bo‘lsa, 15 ta elementdan iborat yangi Y massivni olish dasturini tuzing.