Basic programozási nyelv
Elágazás
A hétköznapi életben is gyakran kell döntenünk. A döntésünk mindig valamilyen feltételtől függ.
A számítógépes programok gyakori része az elágazás.
Az elágazás során a program egy vagy több utasítást csak akkor hajt végre, ha valamilyen adott feltétel teljesül.
Feladat redmenta:
Feladatlap címe: Folyamatábrával megadott algoritmusok.
Direktcím: 76339
Gondoljatok az Ebadós algoritmusunkra!
Az algoritmusban és a programozási nyelvekben is fontos, hogy egyértelmű legyen, hogy mettől meddig tartsanak az adott feltételtől függő utasítások.
A basic programozási nyelvben ez így valósul meg.
If feltétel Then
utasítás
utasítás
End If
Írjuk meg a programot!
Option Explicit
Dim tomeg, ado
tomeg=InputBox("A kutya tömege=")
If tomeg<=10 Then
ado=1000
End If
If tomeg>10 and tomeg < 100 Then
ado=5000
End If
If tomeg>=100 Then
ado=10000
End If
MsgBox("Az adó mértéke= " & ado)
Az elágazás feltétele, hogy 10 és 100 kg közötti kutyákra vonatkozó adó is gyakran több részből áll. Ilyenkor az egyes részeket az És (and), illetve a Vagy (or) logikai műveletekkel kapcsoljuk össze.
Házi feladat:
Készíts osztályozó programot, amely a dolgozatra kapott pontszámok alapján megadja az osztályzatot! A program úgy készüljön el, hogy bármilyen megadott elérhető pont alapján ki tudja számolni az osztályzatot. Első lépésként készítsd el a folyamatábrát!
Javaslom, hogy az elérhetőpont, elértpont és százalék legyen a változók neve.
A ponthatárok %-ban a következők:
0-33 %-ig elégtelen
34 - 50 %-ig elégséges
51 - 75 %-ig közepes
76 – 90 %-ig jó
91 %-től jeles
Segítség:
A program indulásakor be kell adni az elérhető és az elért pontszámot
A programnak kell kiszámolni a %-os értéket.
A kiszámolt %-os érték után kell kiíratni.
pl: maximális pont 50
Elért pont: 40
%-os érték 40/50*100
Kiírja, hogy Az osztályzatod 80 % „ jó
