Polynommultiplikation - Listing

Dokumentation ansehen
Programmspeicher-Image laden

10	"=" CLEAR :WAIT 0:CLS
20	INPUT "Grad Polynom A : ";N," Polynom B : ";M
30	DIM A(N),B(M),E(N+M)
40	FOR I=N TO 0 STEP -1
50	CURSOR 0,3:PRINT "A";STR$ I;" =                   ":CURSOR 5,3:INPUT " ";A(I)
60	NEXT I
70	FOR I=M TO 0 STEP -1
80	CURSOR 0,3:PRINT "B";STR$ I;" =                   ":CURSOR 5,3:INPUT " ";B(I)
90	NEXT I
100	CLS :PRINT "":PRINT " *** BUSY ***"
110	FOR I=0 TO N
120	FOR J=0 TO M
130	E(I+J)=E(I+J)+A(I)*B(J)
140	NEXT J:NEXT I
150	CLS :PRINT "Das Ergebnispolynom E hat den Grad ";STR$ (N+M)
160	CURSOR 0,3:WAIT :FOR I=N+M TO 0 STEP -1
170	PRINT "E";STR$ I;" = ";E(I)
180	NEXT I
190	CLS :END

In Zeile 50 und 80 handelt es sich um jeweils 19 Leerzeichen in Folge.

Dokumentation ansehen
Programmspeicher-Image laden