FSR - QBasic Seite 15

AG Informatik

Öffne gegebenenfalls die Datei GGT1.BAS. Wähle im Menü Bearbeiten den Punkt Neue Sub .... In der folgenden Dialogbox trägst du bei Name den Text "Tausche" ein. Das Programm schaltet um zum Modul Tausche.
Gib dann den folgenden Programmcode ein:
```
       SUB Tausche (x,y)
         merke=x
         x=y
         y=merke
       END SUB
```
Wähle im Menü Bearbeiten den Punkt Neue Function .... In der folgenden Dialogbox trägst du bei Name den Text "ggT" ein. Das Programm schaltet um zum Modul ggT.
Gib dann den folgenden Programmcode ein:
```
       FUNCTION ggT (x,y)
         DO
           rest = INT(y / x)
           w = rest * x
           rest = y - w
           result = x
           IF rest < 1 THEN EXIT DO
           y = x
           x = rest
         LOOP
         ggT=result
       END FUNCTION
```
Speichere das Programm an dieser Stelle unter dem Namen GGT2.BAS in Deinem Datenverzeichnis ab. Das Programm kann jetzt mit <Shift> F5 gestartet werden.

Schreibe ein Programm zur Berechnung des kleinsten gemeinsamen Vielfachen (kgV) zweier Zahlen. Das kgV der Zahlen a und b wird berechnet, indem man die Zahlen a und b multipliziert und das Ergebnis durch den ggT der Zahlen a und b dividiert.

Hinweise:

Öffne gegebenenfalls die Datei GGT2.BAS und speichere sie unter dem Namen KGV1.BAS ab.
Wähle im Menü Bearbeiten den Punkt Neue Function .... In der folgenden Dialogbox trägst du bei Name den Text "kgV" ein. Das Programm schaltet um zum Modul kgV.
Das Modul kgV benötigt als Parameter zwei Variablen a und b. Der Modulkopf sieht also wie folgt aus:
FUNCTION kgV(a,b)
Die Berechnung erfolgt nach:
kgV = a * b / ggT(a,b)
Ändere die übrigen Teile des Hauptmoduls und speichere das Programm.