Cím:	A BASIC-nyelv ismertetése IV. (Az értékadás egy más módja, tabulálások)
Füzet:	1981/szeptember, 19 - 21. 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)   BASIC-nyelv ismertetése IV.   (Az értékadás egy más módja, tabulálások)   Az 1981. évi márciusi számunkban már szó esett a LET értékadó utasításról, amellyel többek között a változók kezdeti értékét állítjuk be. Ennek az utasításnak az a hátránya, hogy ha új kezdőértékkel akarjuk a programot futtatni, több utasítást is meg kell változtatnunk. A programok készítésénél célszerű ezeket a kezdő adatokat különválasztani a program más részleteitől, mert így könnyebb kicserélni őket. Ezt a READ‐DATA értékadó utasításpárral oldhatjuk meg. A DATA utasításban csak számok lehetnek (szemben a LET-tel), és a DATA bárhol lehet, a READ ,,megkeresi". Hogyan is néznek ki ezek az utasítások?   ${\displaystyle \begin{array}{ccc}{\displaystyle \text{<br>}}\hfill & {\displaystyle }\hfill & {\displaystyle \text{ Sorszám READ a változók nevei vesszővel elválasztva}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ Sorszám DATA a változók értékei }}\hfill \end{array}}$ A DATA adatokat tárol, melyek a READ utasítással olvashatók ki. A DATA-ban legalább annyi adatnak kell lenni, mint amennyi változó a READ-ben van. A következő példában a két értékadó módszert hasonlítjuk össze: ${\displaystyle \begin{array}{ccc}{\displaystyle }\hfill & {\displaystyle \text{ 10 READ A, B, C }}\hfill & {\displaystyle \text{ 10 INPUT A, B, C}}\hfill \\ {\displaystyle }\hfill & {\displaystyle \text{ 20 DATA 2, 8, 6 }}\hfill & {\displaystyle \text{ 20 LET X=A*(B+C)}}\hfill \\ {\displaystyle }\hfill & {\displaystyle \text{ 30 PRINT A*(B+C)}}\hfill & {\displaystyle \text{ 30 PRINT X}}\hfill \\ {\displaystyle }\hfill & {\displaystyle \text{ 40 END }}\hfill & {\displaystyle \text{ 40 END }}\hfill \\ {\displaystyle }\hfill & {\displaystyle \text{ RUN }}\hfill & {\displaystyle \text{ RUN}}\hfill \\ {\displaystyle }\hfill & {\displaystyle \text{ 28 }}\hfill & {\displaystyle \text{ 1, 2, 8, 6 }}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 28 }}\hfill \end{array}}$ Ha összetett függvények helyettesítési értékeit kell kiszámítani, akkor a   ${\displaystyle \begin{array}{ccc}{\displaystyle \text{<br>}}\hfill & {\displaystyle }\hfill & {\displaystyle \text{ DEF FN ,,valamilyen betű" változók = képlet }}\hfill \end{array}}$ segítségével dolgozhatunk: ${\displaystyle \begin{array}{ccc}{\displaystyle \text{<br>}}\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 10 DEF FNA (A, B)=SQR(A**3+B**3)}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 20 READ A, B }}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 30 DATA 4, 8, 21}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 40 LET X=FNA(A, B)}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 50 PRINT A, B, X}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 60 END}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ RUN}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 4.8 21 96.81 }}\hfill \end{array}}$ Ha egy PRINT utasítást egy pontosvesszővel zárunk le, akkor a következő PRINT utasítás eredménye is ugyanabba sorba kerül, egyébként a következő sorba. Ezt a lehetőséget használhatjuk arra, hogy a kiíratás formáját áttekinthetőbbé tegyük. Hasonló célt szolgál a TAB(x) utasítás is. Ebben $x$ azt a pozíciót jelöli meg, melyre az adott soron belül a következő karakter kerül. Nézzünk erre is egy példát, a már II. részben elemzett $\text{sin}$ illetve $\text{cos}$ függvény táblázat készítését: ${\displaystyle \begin{array}{ccc}{\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 10 DEF FNA(X)=COS(X)}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 20 DEF FNB(X)=SIN(X) }}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 30 LET T=1}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 40 DEF FNC(X)=T*3.14/180}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 50 PRINT,,FOK"; TAB(20); ,,COS"; TAB(40); ,,SIN"}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 60 PRINT T; TAB(20); FNA(FNC(T)); TAB(40); FNB(FNC(T))}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 70 LET=T+2}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 80 PRINT T; TAB(20); FNA(FNC(T)); TAB(40); FNB(FNC(T))}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 90 END }}\hfill \end{array}}$ ${\displaystyle \begin{array}{ccccccccc}{\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{RUN}}\hfill & {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle }\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{FOK}}\hfill & {\displaystyle }\hfill & {\displaystyle \text{COS}}\hfill & {\displaystyle }\hfill & {\displaystyle \text{SIN}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{1}}\hfill & {\displaystyle }\hfill & {\displaystyle \text{0.9998}}\hfill & {\displaystyle }\hfill & {\displaystyle \text{0.0175}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{3}}\hfill & {\displaystyle }\hfill & {\displaystyle \text{0.9986}}\hfill & {\displaystyle }\hfill & {\displaystyle \text{0.0523 }}\hfill \end{array}}$ Végezetül az elmondottakra egy összefoglaló példa. Számítsuk kiaz $y7x^2+2x+2$ függvény értékét az $x=\mathrm{1,2,}\text{...}\mathrm{,6}$ helyeken: ${\displaystyle \begin{array}{ccc}{\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 10 DEF FNA(X)=X**2+2*X+2}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 20 READ B, C, D) }}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 30 PRINT FNA(B); TAB(10); FNA(C); TAB(20); FNA(D)}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 40 READ E, F, G) }}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 50 PRINT FNA(E); TAB(10); FNA(F); TAB(20); FNA(G)}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 60 DATA 1, 2, 3, 4, 5, 6}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{ 70 END}}\hfill \end{array}}$ ${\displaystyle \begin{array}{ccccccccc}{\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{RUN}}\hfill & {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle }\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{5}}\hfill & {\displaystyle }\hfill & {\displaystyle \text{10}}\hfill & {\displaystyle }\hfill & {\displaystyle \text{17}}\hfill \\ {\displaystyle }\hfill & {\displaystyle }\hfill & {\displaystyle \text{26}}\hfill & {\displaystyle }\hfill & {\displaystyle \text{37}}\hfill & {\displaystyle }\hfill & {\displaystyle \text{50 }}\hfill \end{array}}$ $\begin{array}{c}{\displaystyle \star }\end{array}$ Az eddig kitűzött 6 feladatra érkezett dolgozatok megoszlása a következő volt:   ${\displaystyle \begin{array}{|ccccc|}\hline \hfill {\displaystyle }\hfill & \hfill {\displaystyle \text{Jó}}\hfill & \hfill {\displaystyle \text{Részben jó}}\hfill & \hfill {\displaystyle \text{Hibás}}\hfill & \hfill {\displaystyle \text{Összesen}}\hfill \\ \hfill {\displaystyle \text{1. feladat}}\hfill & \hfill {\displaystyle \text{368}}\hfill & \hfill {\displaystyle \text{48}}\hfill & \hfill {\displaystyle \text{19}}\hfill & \hfill {\displaystyle \text{435}}\hfill \\ \hfill {\displaystyle \text{ 2. feladat}}\hfill & \hfill {\displaystyle \text{431}}\hfill & \hfill {\displaystyle \text{13}}\hfill & \hfill {\displaystyle \text{25}}\hfill & \hfill {\displaystyle \text{409}}\hfill \\ \hfill {\displaystyle \text{ 3. feladat}}\hfill & \hfill {\displaystyle \text{54}}\hfill & \hfill {\displaystyle \text{102}}\hfill & \hfill {\displaystyle \text{69}}\hfill & \hfill {\displaystyle \text{225}}\hfill \\ \hfill {\displaystyle \text{ 4. feladat}}\hfill & \hfill {\displaystyle \text{32}}\hfill & \hfill {\displaystyle \text{15}}\hfill & \hfill {\displaystyle \text{4}}\hfill & \hfill {\displaystyle \text{51}}\hfill \\ \hfill {\displaystyle \text{ 5. feladat}}\hfill & \hfill {\displaystyle \text{49}}\hfill & \hfill {\displaystyle \text{25}}\hfill & \hfill {\displaystyle \text{-}}\hfill & \hfill {\displaystyle \text{74}}\hfill \\ \hfill {\displaystyle \text{ 6. feladat}}\hfill & \hfill {\displaystyle \text{57}}\hfill & \hfill {\displaystyle \text{31}}\hfill & \hfill {\displaystyle \text{8}}\hfill & \hfill {\displaystyle \text{96}}\hfill \\ \hfill {\displaystyle \text{Összesen}}\hfill & \hfill {\displaystyle \text{991}}\hfill & \hfill {\displaystyle \text{234}}\hfill & \hfill {\displaystyle \text{125}}\hfill & \hfill {\displaystyle \text{1350 }}\hfill \\ \hline\end{array}}$ Örömmel tapasztaltuk, hogy az 1350 beküldő közül 228 általános iskolai tanuló volt, elsősorban miskolci, kecskeméti iskolákból. A feladatok ABC/80 számítógépen való megoldására, programok futtatására továbbra is lehetőség van, ha ezt előre írásban kérik az alábbi címen. Felhívjuk a figyelmet arra, hogy a következő hónaptól kezdve a Számítástechnikai Rovatunk is pontversenyt indít. 7. feladat: Írjunk BASIC programot, amely kiszámítja és kinyomtatja $100!$ (száz faktoriális) pontos értékét. 8. feladat: A DEF, READ, DATA, TAB utasítások segítségével rajzoljuk ki az $F\left(x\right)=4x^{\frac{2}{3}}$ függvény képét az alábbi elhelyezésben:  (Némethy Katalin) A feladatok megoldásait a következő címre kérjük küldeni: Appel György Fővárosi Pedagógiai Intézet Oktatástechnikai Csoport, Budapest, VIII. Bródy Sándor u. 14. 1088