home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 08 / grdlagen / while_5.bas < prev    next >
Encoding:
BASIC Source File  |  1989-05-31  |  1.0 KB  |  23 lines
  1. 1   'GGTA.BAS   ≡ Berechnung des größten gemeinsamen Teilers
  2. 10   DEFINT A-Z  : EINGABE = -1
  3. 20   WHILE EINGABE = -1
  4. 30     INPUT"Eingabe zur Berechnung des GGT von x,y "; EX,EY
  5. 40     IF EX<>0 AND EY<>0 THEN X=ABS(EX):Y=ABS(EY):EINGABE=0
  6. 50   WEND  'Eingabe, nur  bei zulässigen Zahlen zu verlassen
  7. 60         'Dezimalbruchteil wird schon durch INPUT gerundet
  8. 70
  9. 100  IF X=Y THEN GOTO 190   'nach "Ausgabe" <┐ ───┐
  10. 110  IF X<Y THEN GOTO 150   'nach "y-x" ──┐  │    │
  11. 120  X=X-Y                  '      <────┐ │  │    │
  12. 130  IF Y<X THEN GOTO 120   'nach "x-y" ┘ │  │    │
  13. 140  GOTO 100               'nach "=" ──────>│    │
  14. 150  Y=Y-X                  '      <────┐<┘  │    │
  15. 160  IF X<Y THEN GOTO 150   'nach "y-x" ┘    │    │
  16. 170  GOTO 100               'nach "="    ────┘    │
  17. 180                         '                     │
  18. 190  PRINT "GGT von "EX" und " EY TAB(34) "ist";'<┘
  19. 195  PRINT TAB(44) X
  20. 200 'So kompliziert war früher ein "Spaghettiprogramm"
  21. 210 'in Anlehnung an übliche Assemblertechnik
  22. 999  END
  23.