Herunterladen Diese Seite drucken

Sharp PC-1500 Handbuch Seite 76

Vorschau ausblenden Andere Handbücher für PC-1500:

Werbung

Alland more
about
Sharp PC-1500
at
http:/lwww.PC-1500.info
PROGRAMMNAME:
DREISEITIGE
PLANUNG OHNE
PROGRAMM·NR.
3
WIEDERHOLUNG
PS-B-1
2
[ Tastenbetätigung
)
Sehritt-Nr.
Einga'"
Anzeige
Anmerkung
1
/OEFI
[AJ
a
=
-
Dimensionen von
Faktor
/\
2
2
/EN
TEAI
b
-
Dimensionen
von
Faktor
B
3
3 IENTEA)
c
=
-
Dimensionen
von
Faktor C
4
4
(U<rER
)
X(I,
1,
1)
-
?
5
2.0
IENTER)
X(l,
1,
2)
-?
Mehrfache
Dateneingabe
-
-
27
1.0
IENTER
)
X(2,
3,
4)
=
?
28
1.0 leNrEA
)
>
Ausdruck
[ Programmlisting )
18: "A•:
CLEAR
:CLS
3
80:1
:
1/CA*()!U•U/
5 90:0•
F•G: LPRINI
..
:
WAIT
8
CA1'8)
OFalb=
";O
28
: INPUf
•• o.:::'';
A:
310:V•V/(
600:V=V/Q
INPUI
"b
="
;
B
320:
FQR 1=0TO
A-
1
61
0 :0=Fl H:LPR
IHT
.
30:
INPUI
'"
c=";C.
330:1'QR J
=0
TO
C-
1
OFo.'-tc=
";
0
40:DJM
F<
B-
J,C-J
>
3
~0
:
w
=
w
G<J,J>•
Gcl
620:
w=W/0
,
G<ll
-
J,
C-
J
l,
Oe
• J )
630:0=GtH:LPRINT
"
C-1),0CB·
J)
3
50:
NEXT
J:NEXT
1
DFbtc
="
;O
50:P=0:J=0
.
" 360
:
~OR
J
=0TO
B
-
J
Cl1
0:'1=X/0
00:H=0:K=0
'3/0:
FQR
J•010
C-
1
690:Q
• Fl:Gl:ll!LPRINT
?S:BS=ST
RS
(
J+l
)+
380:X=X•FCJ,J
ltf(
j
''
OFe=
"
;
O
"
,
"
SfR$
CJ•
J)
' J)
7
00:P:
P/0
+",
"•STR$
(
1(
...
1
390 :NEXT
J
:
NEXI 1
?J
0
:
O=Al
B' I
CC-
1:
)
400:W:W/8
: ><•
X/A
LPRINT
''
OF
t
.;r";
?6:QS:"x(
"
•8S•
"):
430 :5=5 -R:LPRJN
T
.
0
.
Sa.='";
S
720:
l
PRINT
"Uo
.;
„;S
77:PRINT
As;
440:r:r-
R:
LPRINT
.
730:LPRJNT
"Ub~„;
T
80:
INPUT
E:
CLS
Sb="'
;
T
740:LPRJNT
„Uc:";
U
110:
Z=Z•E:i:E
450:U
=U-R:
LPR!NT
/50: LPR
JN
T
'"
Va
t
b
~"
1
20:~
c
J
,
KJ
=
FCJ,K
>
Sc=''
.iU
;u
E
460:
V=V-R-
1:
760:
LPR!
NT
''
Va
*c
=··
130:Gc
l
,KJ =G<l
,
KI•
LPR JNT
'' Sa1-'b
&i
"
:w
E
;
V
/70: LPR!N
T
"Ub*
c="
140:0c
KJ
=QC1
0
E
470:W=W
-R-
s
-
u:
:x
150: H=H•E.'
LPR
INT
··sa-
r
c="
ß00:LPRJNI
''
Vc
.c"
i
P
160:
IF
K<>C-
IL!'.f
K
:W
Blß: C: S/P!LPRINT
=K•
I
:
GOIO
75
480:
'1=X- R· T-
U:
l="
a.=";~
170:V=V•
H1:H
LPRINI
"Sbtc='
82ß:O:J/P:
LPR
!NT
..
180: OU
>=O<J
>•H
;
><
C"b=
„;
c:
19ß:P=P•H
51
0
:
l
=Z-
R
830:.-:U/P
:LPRINT
.
200:
IF
J<>B-
ILET
J
s20
: P=z-
s-
r
-u-v-w-
rc="';c:
,J
•J:GQ
TO
!i0
X:LPRIN
T
''
Sc
="
B40:
0:U/P:LPR!H
f
.
.
2
J0
:S=S•Pt
P
:P:
LPRJ
NT
"S
t
=
r
o.'*b=
''
i
~
22
0:R=R•P
.i?
850:
C=W/P
:LPR!NT
..
230:
1
F
l<>A-
IL
ET
1
53
0
:~=A
-
J
:
LPR!NT
"
F
Q.'tc="
;
f:
.~1
•1:G
O
T
O
50
OF
o.::
"
;
r
060
:C
=X,P: LPRINT
"
240:R=R*R/CA*B*CI
~
40
:5
=
S/
F
C:b1:c=";
F
250:5=$/C
B'!:C>
5
50:G=B- l:LPR
INT
890:ENO
260
:1'QR
1=0TO
B-
1
OFb=";
G
27ß:T=T•O<lll:O
(
J):
550:'=f/G
NEXT
1
~70:4•
C-J:LPRINT
.
280:~01?
1=0TO
C-
1
OF c=
"
;
"i
290:U=U•O<l>
OCJJ:
500
:
U=U/fl
STATUS 1
NEXT
1
1295
Do
not sale
this
PDF
!!!
-
70
-

Werbung

loading