Sharp CE-125 - Page 35

118
8$ { 0)
Inpu t d a t a (fu n cti on val ue )
Y (N )
z
F un ct i on e qu at i o n Y
y
.J Fun c tion e qu at i o n X x
W $
v
u
T
.J, Min . v alue of Y { i), inte g rat i on v a l ue
s
R
a
p
f l a g for inputting or usi n g eq u a t i o n
0
Num b er of divi s io n s N
h
M
L .J, M a x . v a lue o f Y (i)
· K · ·· · · · • · i e rm cii e ' ftici a il fdiirlii9 i'rl t e iir a ti oil " " · . .. - ·
H
G
E
D
PROGRAM u s r
. ,
10: "A " : CL EA R : WA IT 0 : \ .: 2 2 0;vfo =' f i l.= L+M ; \ 1E X T 1 ' I '
1 ·· " · " ·· · · 1- NPUT - · · ~ F( X) HNP U T::.lt .
: END
! CA L. ;;~ ;; ; '.?,-;' _ ;;Q : G OT O 16 "" 3 0 0: · ; r • : s =vc 0) · : c:; s : " F iJ R · - ~ "'• ' '
' 1 5 : END I ' ! . ; ; - ) J ! I = 0 T O Ni IF S>Y <I Y ' ' ' ; , .: i ' . \; ; ,f :
i ~ U ; i I F . co :-i ) + -d J=:2 )()f - - - -j - - - - - - - - - --- l £T - - S = Y - (- l · )- - - · - - - - - , c _
., · ! '. I - } _ · ~ : ;i ~ N °A ~,. . ~ • .r ,. ~ ' ~ -· ~~: · 1 ( f , \ ', .; · .. L . .. . ~ , · ~ _ 1 . - ~ ; . . • -. : , ~ . '. : 1 , \, ' i - : :: : • \ : j\ j ·, . ~ ~:: . ~! ~i 0 ~ + x J ~o 1 - ; ' . :;:i • ;; -
_ _ . • . ~ - . . . . . • 330 : FO R I = l TO N - 1 : IF I . :"-'-- · _, - , . ,, , , ;
30 : IN P; UT J, " iB~ . "' : i B : . : c P : ~Trn ~ /: -- ~ - -- - · - - ~ - . ~- · -- - / 2 -< · > · I H 1 · ; · < ~ I" "1 2) - · tET -1< - -- · - - - - - +- - - :
· - - 4 . ~ : ~ ~;1 ~ ~ ]) ) ~~ ' _ 1 ; 1 ~: ; _ '.'.'. ' ~ · '.:) . - ~ 3A0S . ~:~ ~ - ~0~ ~ ! 3 ~ ~ · < ~ ~ ~ - - - --- - · : ! ~ \
I 4 5 : ' i F ' - 1-i ) i ( > : : 1 ~ t ) < t ;V i f ;/ I ! 3 5 0: S =S+K*V,q> : N E XT - ! I : s - ----: ,._ l ,. _ _ )
·\ G O T O 4 0 • · " "" ' ": . : .. . : .i i I = S*M / 3 : ' U PRI I H · · ' ! v : - , , ! · ,
· I 4 , [ q.;P P, U ff . : : " !i c: :!; i -i' 1 : , , : - ; :i : ::, ~ , - : · - -- - - - -- - - - - - - - -- t PR-rN r - · ~ = · ; s : END - -- - - - .. - --- -: - .. - - -'
, 50 : M= ( B - fj ) / N . : . . : D ;IM i '! ~ N )x ii . 9 00l Y = ~<X ~ :Z ) *X~ l? , *X f ~ ·
, - -- -- - :s :s< 0 >. : L :=A : -- IF 0 =2 - - ~-i-- .. - -- 91. 11 . : RHU R t L · _ · : : · _::-_ · : . -- --- - -, - - - ·
1 · ; ~ ~ , = : ~ ~ : ; :F;~:i '. ~s ~ h : ~w~ . ~~ , '. ·
8 1 4
I ~~~ - ~ ~~ ,· - - - - ) : ,1 ,
J 70 :PAU S E 11$ (0 ) ; y;_ ; c i -, ; i! ; · . : : : r -:-- ;--- - -l- 1 - -- - ----- L_..;.
r - ·a 0 : I NPU T Y 'd T i" i..PR fN l' · .. -r-r- : - - -- . -A. -- - - . l at e gra t io h. i nterv a l . sta r ti n g poin t
I U SIN G • 111111 • ;r+li" ·• ; . B l ntegr ai iop i nt e rval e n d i n g p o i n t
· · · · · - · · B$(0 H • IJ S !N G IYO ) : t · ,. _ _ "(;' " ' , · · ~- . . · · · ·
=L+M : G O T O '1 0
ss: G OTO 70
90 :N E XT I
· · · 9 'f :" E FID .. . .. ... - • -- --
100 : ' B' : J HIP. . IJJ:; "~ RE V ISIO N I
N • • ? = ' i H : G O T O 1 1 0 I
' i05 - : i:; o To · 1 · 40 ·-- .... · - ·. ·
11 0 : : 1 ~ f, n <H ~;;0 · ) i+ . . ( H ) N;t: M : ;;;il1 ·'
; .. - -- .. G OT O 1 0 0 _ .. . · . . . .
:; 1 20 : HIPUT '' R E l/I S 1 ' N I/ ALU
E= ' ; Y< H -1 ) : LP R IN T
· - -- · .. ( .is T H G ·- · • · ; ii i l ' " i l ff· - - i= <· 1 · ;- .
STR$ ( A +M ~ ( H - 1 ) );• )=
• ; U S I NG l Y ( H-1 ) :
GO T O 1 0 0
1 3 0 : G O TO 1 2 0
140:[NPU T 'AL L DATA
PRINT ? ( Y I N ) ' ; ws
! 50 : IF ( W$= " Y " l + C W$ = ' N' )
O l G O T O 1 40
1 6 0 : IF W$ = 'N' E ND
17 0 :LP R I NT • • : L P R IN T • A
='JA: L PR IN T 'B= ' iBI
LP R H ff " N = '' ; H
IS0 1 M =( B-A )1 N: L•A : FOR I
=0 TOH
190 :LP RI NT US I NG ' 11 1111")(
I + l ) ;• F (" i S T RS L ; '
)= " i U S IN G i ' /(l)
1 95 : L=L+ M : N E XT I : E ND
200 tLP RI N T " ': FOR I=0
TO t l: X= L: G OS U B 900
2 !0 : L P RINT USING ' 11 11 11 ' ; (
I +l) i " F ('; STR S L i "
): • ; U SIN G ;y
promsoft.com