Tortendiagramm - Listing

Dokumentation ansehen
Programmspeicher-Image laden

10	"K"CLEAR :WAIT 0:DIM U$(1)*39:DEGREE
20	LPRINT CHR$ &1B+"@"
30	INPUT "Ueberschrift 1.Zeile : ";U$(0),"2.Zeile :";U$(1)
40	COLOR 0,7
50	LPRINT U$(0):LPRINT U$(1)
60	INPUT "Anzahl Posten : ";A
70	DIM I$(A)*24,G(A)
80	FOR I=1 TO A
90	CLS
100	PRINT I;
110	CURSOR 4,0
120	INPUT "Posten : ";I$(I):CURSOR 0,1:INPUT "Groesse : ";G(I)
130	S=S+G(I)
140	NEXT I
150	GRAPH :GLCURSOR (220,-230):SORGN
160	FOR I=1 TO A
170	W=V:V=V+G(I)*360/S:M=(W+V)/2
180	X=20*COS M:Y=20*SIN M:F=I-H*7-1
190	CIRCLE (X,Y),195,F,W,V,1,1,1
200	ON H+1 GOTO 210 ,220 ,230 ,240 ,250 ,260 ,270 ,280
210	PAINT 5,F:PAINT 6,F:GOTO 290
220	PAINT 4,F:PAINT 3,F:GOTO 290
230	PAINT 6,F:GOTO 290
240	PAINT 9,F:GOTO 290
250	PAINT 5,F:GOTO 290
260	PAINT 1,F:PAINT 2,F:GOTO 290
270	PAINT 1,F:GOTO 290
280	PAINT 2,F:GOTO 290
290	IF I/7=INT (I/7) LET H=H+1
300	IF B=1 THEN 380
310	NEXT I
320	H=0:GLCURSOR (-220,-250):SORGN
330	B=1
340	FOR I=1 TO A
350	F=I-H*7-1
360	CIRCLE (75,0),75,F,165,195,1,1,1
370	GOTO 200
380	COLOR 0,7
390	LTEXT
400	LPRINT " "+I$(I)
410	P=INT (G(I)*100/S+.5)
420	LPRINT "	"+STR$ G(I)+" = "+STR$ P+" %"
430	GRAPH
440	GLCURSOR (0,-30):SORGN
450	NEXT I
460	END

Dokumentation ansehen
Programmspeicher-Image laden