Instructiuni pentru descrierea structurilor repetitive

Instructiuni pentru descrierea structurilor repetitive

Asa dupa cum am vazut, in descrierea algoritmilor se intalnesc situatii in care trebuie sa indicam repetarea de un anumit numar de ori sau in anumite conditii a unei instructiuni sau a unui grup de instructiuni. În aceasta situatie avem de a face cu structuri repetitive (de ciclare). În VB acestea se pot traduce prin instructiunile FOR, WHILE, DO.

Format general al instructiunii repetitive cu numar cunoscut de pasi FOR

For <contor> = <vali> To <valf> [Step <pas>]

<instructiuni>

[ExitFor]

Next <contor>

Efectul instructiuni FOR use urmatorul: Se repetaa, grupul de "instructiuni" pentru toate valorile contorului "contor" de la valoarea initiala "vali", pana la valoarea finala "valf", prin incrementarea automata a acestuia dupa fiecare iteratie, sau pana la intalnirea instructiunii ExitFor. În acest fel se va asigura repetarea grupului de "instructiuni" de cel mult [(vali-valf+1)/pas] ori.

Format general al instructiunii repetitive anterior conditionata WHILE

While <conditie>

<instructiuni>

Wend

Efectul acestei intructiuni WHILE este     urmatorul: Se evaluaza conditia "conditie". Cat timp aceasta ramane adevarata, se repeta grupul de "instructiuni". Atunci cand "conditie" devine falsa se iese din repetitiva, programul continuand cu instructiunea urmatoare cuvantului Wend.

Observatia1: Daca conditia este de la inceput adevarata, atunci grupul de "instructiuni" nu se executa nici macar o data.

Observatia 2: Grupul de "instructiuni" trebuie sa contina cel putin una care sa influenteze valoarea de adevar a conditiei "conditie", astfel incat sa se ajunga, la un moment dat, la incheierea repetitivei. În caz contrar se va genera un ciclu infinit.

Format general al instructiunii repetitive posterior conditionata DO

Do

<instructiuni>

[ExitDo]

Loop [ <conditie>]

Efectul instructiunii DO este urmatorul: Se asigura executarea grupului de "instructiuni" pana cand (Until) "conditie" devine adevarata, sau atata timp cat (While) "conditie" ramane adevarata.

Observatia 3: Grupul de "instructiuni" se executa cel putin o data, indiferent de valoarea de adevar a "conditie".

Observatia 4: Grupul de "instructiuni" trebuie sa influenteze valoarea de adevar a conditiei "conditie", astfel incat sa se ajunga, la un moment dat, la incheierea repetitivei. În caz contrar se va genera un ciclu infinit.

Exemplu: Se citesc de la tastaura cele n variante de pret pentru un produs. Sa se determine cea mai mica dintre variantele de pret.

Variata I (folosind instructiunea For):

Dim p, pmin As Single

Dim n, i As Byte

n=InputBox("Dati numarul de variante de pret=")

p=InputBox("Dati prima varianta de pret =")

pmin=p

For i=1 to n-1

p=InputBox("Dati alta varianta de pret =")

If p<pmin Then

pmin=p

End If

Next i

MsgBox "cea mai mica varianta de pret este "+Str(pmin)

Varianta II (folosind instructiunea While)

Dim p, pmin As Single

Dim n, i As Byte

n=InputBox("Dati numarul de variante de pret=")

p=InputBox("Dati prima varianta de pret =")

pmin=p

i=1

REM contorul i numara variatele de pret

While i<n

p=InputBox("Dati alta varianta de pret =")

If p<pmin Then

pmin=p

End If

i = i + 1

Wend

MsgBox "cea mai mica varianta de pret este "+Str(pmin)

Varianta III: (folosind instructiunea Do . Loop)

Dim p, pmin As Single

Dim n, i As Byte

n=InputBox("Dati numarul de variante de pret=")

p=InputBox("Dati prima varianta de pret =")

pmin=p

i=1

REM contorul i numara variatele de pret

Do

p=InputBox("Dati alta varianta de pret =")

If p<pmin Then

pmin=p

End If

i = i + 1

Loop Until i>n-1

MsgBox "cea mai mica varianta de pret este "+Str(pmin)

Pentru exerci'iu recomandam cititorului sa creeze si sa execute cate un proiect VB pentru fiecare dintre programele prezentate anterior. Dupa lansarea in executie a mediului de programare VB, se va crea o interfata ce va contine un singur obiect de tip buton de comanda. Acestuia i se va atasa codul program prin introducerea lui de la tastaura dupa accesarea editorului de programe prin operatia de dublu click pe butonul de comanda. Executia programului se va face prin accesarea funtiei Run din submeniul cu acelasi nume. Vor fi introduse de la tastatura cateva variate de pret. Daca variatele vor fi 10, 15, 9, 20, 16, iar programul a fost corect introdus, calculatorul va afisa in caseta de mesaj valoarea 9.