Cím:	Az ABC/80 számítógép BASIC-nyelvének ismertetése II. Ciklusok, változók, függvények)
Szerző(k):	Appel György
Füzet:	1981/április, 168 - 171. oldal	PDF  |  MathML

A szöveg csak Firefox böngészőben jelenik meg helyesen. Használja a fenti PDF file-ra mutató link-et a letöltésre.   SZÁMÍTÁSTECHNIKAI ROVAT (Rovatvezető: Ada‐Winter Péter)   Az ABC/80 számítógép BASIC‐nyelvének ismertetése II. (Ciklusok, változók, függvények)   Ciklusnak nevezünk egy olyan programrészt, melyet többször egymásután szeretnénk végrehajtatni. Az eddigi ismereteink alapján a következőképpen tudunk ciklust készíteni (bal oldali program):   ${\displaystyle \begin{array}{cc}{\displaystyle \text{ 10 T=0 }}\hfill & {\displaystyle }\hfill \\ {\displaystyle \text{ 20 X =0}}\hfill & {\displaystyle \text{ X=0}}\hfill \\ {\displaystyle \text{ 30 IF T>10 THEN 80 }}\hfill & {\displaystyle \text{ 30 FOR T=0 TO 100 STEP 1}}\hfill \\ {\displaystyle \text{ 40 X=X+2*T+1 }}\hfill & {\displaystyle \text{ 40X=X+2*T+1}}\hfill \\ {\displaystyle \text{ 50 PRINT X }}\hfill & {\displaystyle \text{ 50 PRINT X}}\hfill \\ {\displaystyle \text{ 60 T=T+1 }}\hfill & {\displaystyle }\hfill \\ {\displaystyle \text{ 70 GOTO 30 }}\hfill & {\displaystyle \text{ 70 NEXT T}}\hfill \\ {\displaystyle \text{ 80 PRINT }}\hfill & {\displaystyle \text{ 80 PRINT }}\hfill \end{array}}$   Ez a programrészlet az egész számok négyzetét írja ki $1^2$-től egészen ${100}^2$-ig. Először a 10-es címkéjű sorban a ciklusváltozó, T kezdőértékét állítottuk be. A 30 címkéjű sorban a végértéket határoztuk meg, ha ezt az értéket (100-at) a ciklusváltozó értéke nem haladja meg, akkor a program az 50 címkéjű sorban a kívánt szám négyzetét kiírja. A 60-as sorban mondjuk meg, hogy mennyivel növekedjen a ciklusváltozó (ezt step-nek, lépésnek nevezzük). Míg fut a program, állandóan vizsgáljuk, hogy T értéke meghaladta-e már a 100-at. Ha igen, akkor a ciklus befejeződik, és a program egy sor emelése után folytatódhat.   Az ABC/80 számítógép   A BASIC nyelv lehetőséget ad a ciklusok egyszerűbb megírására a FOR‐NEXT utasításpár segítségével. Példánkban az előbbi programrészlet ciklusát ezzel az utasításpárral a jobb oldali oszlopba írtuk. A STEP szó után kell írni a lépésközt, ha ezt nem írjuk ki, akkor a lépésköz mindig $+1$. Ciklusok jól alkalmazhatók például különböző függvénytáblázatok készítésére. A túloldali program koszinusz-táblázatot készít, a függvényértékek $0$ radiántól $4$ radiánig terjednek $\mathrm{0,2}$-es lépésközzel. Az ABC/80 típusú géppel nemcsak a koszinusz függvényt, hanem más függvényeket is ki lehet íratni. Az alábbi táblázatban a felhasználható függvényeket, illetve azok gépi megfelelőit tüntettük fel.   A 30 címkéjű sorban az X és a COS(X) közti vessző biztosítja a táblázatos kiíratást [ lásd Lőcs ‐Sarkadi ‐ Nagy ‐ Szlankó: BASIC programozási nyelv, 68. oldal]. A ciklusok másik alkalmazási területe az indexes változók kezelése. Vektorok, mátrixok beolvasását is célszerű mindig ciklusban végezni. Az első részben megismert aritmetikai változókhoz hasonlóan a vektorok illetve mátrixok jelölésére is szimbolikus neveket használhatunk, ezek az ABC nagybetűinek és a 0‐9 számjegyek kombinációiból állnak. Vektoron rendezett számsorozatot értünk. Egy vektor adott elemét úgy kaphatjuk meg, hogy leírjuk a vektor nevét (azonosítóját), és utána zárójelben az elemhez tartozó indexet, például $A\left(7\right)$. A vektorok indexei $0$-tól indulnak és egyesével nőnek. Mátrixon olyan $n\times m$-es számtáblázatot értünk, mely $n$ sorból és $m$ oszlopból áll. Megadásakor a következőképpen járunk el: megadjuk a mátrix azonosítóját és utána zárójelben, vesszővel elválasztva először a sor- majd az oszlopindexet. Például $B\left(\mathrm{7,2}\right)$. A sorok illetve oszlopok indexei $0$-tól indulnak. A vektorokat és a mátrixokat a programozási gyakorlatban tömböknek nevezzük. A tömbök kijelölése a tárban a DIM utasítással történhet (lásd az idézett könyv 81. oldalán). A DIM B(3), C(2, 3) utasítással egy B nevű, 4 elemű vektort (az indexek 0, 1, 2 és 3), valamint egy C nevű $3\times 4$ méretű mátrixot definiálunk. Az alábbi, bal oldali programrész az A vektor $\mathrm{0,1,2}\text{...}\mathrm{,}N$ indexű elemeinek értékét megnöveli kettővel, majd kikeresi a megnövelt értékek közül a legnagyobbat.   ${\displaystyle \begin{array}{cc}{\displaystyle \text{ 10 M=A(0) }}\hfill & {\displaystyle \text{ 10 INPUT C, D }}\hfill \\ {\displaystyle \text{ 20 FOR X=0 TO N }}\hfill & {\displaystyle \text{ 20 FOR I=1 TO C STEP 20}}\hfill \\ {\displaystyle \text{ 30 A(X)=A(X)+2 }}\hfill & {\displaystyle \text{ 30 FOR N=2 TO D STEP 2}}\hfill \\ {\displaystyle \text{ 40 IF M>A(X) THEN 60 }}\hfill & {\displaystyle \text{ 40 PRINT I+N}}\hfill \\ {\displaystyle \text{ 50 M=A(X) }}\hfill & {\displaystyle \text{ 50 NEXT N}}\hfill \\ {\displaystyle \text{ 60 NEXT X }}\hfill & {\displaystyle \text{ 60 NEXT I}}\hfill \\ {\displaystyle \text{ 70 PRINT M }}\hfill & {\displaystyle \text{ 70 END}}\hfill \end{array}}$   Gyakran előfordul, hogy egy cikluson belül újabb ciklust is beiktatunk. Ezt a ciklusok ,,egymásba skatulyázásának" nevezzük. Ez történt a fenti jobb oldalon látható programban is. Ha ezt a programot futtatjuk, a képernyőn a következők jelennek meg: RUN ?, 6, 4 3 4 5 5 6 7 7 8 9 Az első sorban a RUN szó indítja a program futását. A kérdőjel utáni két szám a C illetve D értéke, azt mi adjuk meg. A ,,RETURN" gomb megnyomása után kapjuk a harmadik sort, ez a program végeredménye. Jól látható, hogy a ciklusok hogyan, milyen sorrendben futnak le. * Az alábbi feladatok megoldását a következő címre lehet küldeni:   Appel György tanár FPI Oktatástechnika Budapest, Bródy Sándor u. 14. 1088.   3. feladat. Oldjuk meg a következő egyenletrendszert az ABC/80 segítségével: $\begin{array}{c}{\displaystyle \mathrm{3,5}x+\mathrm{0,3}y=\mathrm{15,44}}\\ {\displaystyle \mathrm{24,3}x-\mathrm{48,5}y=\mathrm{53,2}}\end{array}$   4. feladat. Írjunk olyan BASIC-programot, amely kiszámítja és kiírja az 1000 és 5000 közötti prímszámokat.