Sharp PC-1500 Anwenderhandbuch Seite 73

DOPPELSEITIGE PLANUNG
PROGRAMMNAME: onHNE WIEDERHOLUNG
| Programmlisting ]
1Q:"A"I CLEAR «CLS
>WAIT @
> INPUT "a="3A:
ENPUT "b="5
:DIM Q¢B-1)
>P=@: J=@
:BS=STR$ Cit+lo+
","4STR$ (J+1)
:AS="xC"+BS4" d=
'PRINT AS;
> INPUT E:CLS
:2=2+EXKE
>OCJISOCJOF+E
P=P+E
FF AJ PBHILET J
=J+1: GOTO 275
S=S+P¥P
R=R+P
PE. TDOAR=1T EET 1
=]+1: GOTO 32
R=R*¥R/ CAKB)
S=S/B
FOR 1=@TO B-1
T=T+OC]T>XOC1):
71 ?
:F=AQ-]:LPRINT "
DFa="5F
540: S=S/F
550: G=B-1:LPRINT "
DFh="3G
560: T=T/7G
698: 0=(A-1)*CB-1):
LPRINT "OFe=";5
Q
P=P/0
>O=AXB-1-LPRINT
"DFt="30
:LPRINT "Uae";
:LPRINT "Ub="5
:LPRINT "Ye";
:F=S/P:LPRINT
Fa="3F
:F=T/PtLPRINT "
Fo="3F
> END
STATUS 1]
PROGRAMMN-NR. 3
PS—B-10
Speicherinhalt ]
a (Anz. der Faktoren)
b (Anz. der Faktoren)
pS PA /b Sa Va
LO(I)*/a Sb Vb
Eingabe-Meldung
olB—1)} Berechnung von Dx?:j