Kreisberechnung - Listing

Dokumentation ansehen
Programmspeicher-Image laden

10	"K" CLEAR :WAIT 0:CLS
20	INPUT "X1 = ";A,"Y1 = ";B,"X2 = ";C,"Y2 = ";D,"X3 = ";E,"Y3 = ";F:CLS
30	IF A=C AND B=D OR (A=E AND B=F) OR (C=E AND D=F)BEEP 2:GOTO 10
40	H=(F-B)*(C-A)-(D-B)*(E-A):IF H=0 GOTO 120
50	K=E*E-A*A+F*F-B*B:L=C*C-A*A+D*D-B*B
60	Y=(K*(C-A)-L*(E-A))/2/H
70	IF A=C LET X=(K-2*Y*(F-B))/2/(E-A):GOTO 90
80	X=(L-2*Y*(D-B))/2/(C-A)
90	R=SQR ((A-X)^2+(B-Y)^2)
100	PRINT "Xm = ";X:PRINT "Ym = ";Y:PRINT "r = ";R
110	END
120	IF A=C PRINT "Gerade :":PRINT "x=";A:END
130	M=(D-B)/(C-A):Z=B-M*A
140	PRINT "Gerade y = mx + b":PRINT "m = ";M:PRINT "b = ";Z
150	END

Dokumentation ansehen
Programmspeicher-Image laden