ggT kgV - Listing

ggT = größter gemeinsamer Teiler
kgV = kleinstes gemeinsames Vielfaches

Javascript-Version
Dokumentation ansehen
Programmspeicher-Image laden

10	"G" CLEAR :CLS :WAIT 0:PRINT "ggT/kgV von    Zahlen":CURSOR 12,0:INPUT M
20	DIM A(M),B(M)
30	FOR N=1 TO M
40	CURSOR 0,2:PRINT N;" Zahl: ":CURSOR 11,2:INPUT A(N)
50	IF A(N)<>INT A(N) OR A(N)<=A(N-1) BEEP 2:GOTO 40
60	B(N)=A(N):NEXT N:CLS :PRINT =LPRINT :FOR I=1 TO M:PRINT STR$ A(I);" ";
70	NEXT I:PRINT ""
80	FOR I=1 TO M-1:A=A(I):B=A(I+1):GOSUB 110 :A(I+1)=G:C=B(I):D=B(I+1):GOSUB 140 :B(I+1)=K:NEXT I
90	PRINT "ggT = ";STR$ G:WAIT :PRINT "kgV = ";STR$ K
100	CLS :PRINT =PRINT :LF 5:END
110	R=A-INT(A/B)*B
120	IF R=0 LET G=B:RETURN
130	A=B:B=R:GOTO 110
140	P=C*D
150	R=C-INT(C/D)*D
160	IF R=0 LET K=P/D:RETURN
170	C=D:D=R:GOTO 150

Anmerkung:
In Zeile 10 befinden sich zwischen "von" und "Zahlen" vier Leerzeichen!

Javascript-Version
Dokumentation ansehen
Programmspeicher-Image laden