<0'30"9&:.$%,&
!
/,!+1&!Kc"^8'4&!.!<'4&!0,!*'+!3&+!0<D%&<&*+&4?!+1&!'*%3!U#3!+'!U20+&!D2'52#<!('2!
+1&!&<9%#+'2!0,!+12'951!+&R+!(0%&,-!"1&3!<9,+!$&!,9((0R&4!U0+1!k-IT6l!#*4!%0N&!+1&!'2050*#%!
=RSIT6D!+#D&,!;#*!$&!'(!+U'!('2<#+,]!ksimple,program”!'2!kall,programs,and,
variablesl-!
!
>.9?$%&<0'30"9&:'09"+&
!
"1&!('2<#+!0,!V&23!,0<D%&]!Z9,+!&*+&2!+1&!$#,0;!%0*&,!0*!#,;&*40*5!'24&2-!='2!0*,+#*;&?!#!
D2'52#<!(0*40*5!+1&!2&#%!2''+,!'(!#!6
*4
!4&52&&!&e9#+0'*!U0%%!%''N!%0N&]!
!
10 INP "A",A,"B",B,"C",C:D=B*B-4*A*C:PRT "D=";D:IF D<0 THEN 10
20 PRT (SQR D-B)/A/2,(-B-SQR D)/A/2:GOTO 10
b0N&!+1&!2&#%!=`SIT6D?!'*%3!9DD&2;#,&!%&++&2!#2&!,9DD'2+&4-!
B1'9%4!3'9!*&&4!,'<&!V#20#$%&,!+'!$&!0*0+0#%0[&4!('2!+1&!D2'52#<!+'!29*?!3'9!;#*!#44!
+1&<!$&('2&!+1&!,'92;&!;'4&]!
!
A=1
B=78
C=64
D=13000
1 WAIT 0:PRT"**POLARIS**","*COPYRIGHT A.TONIC*"
2 A=INT(RAN#*600+900:T=INT(RAN#*9+25:G=INT(RAN#*9+1
3 L=0:R=0:V=0:E=INT(RAN#*D+D:P=0:N=INT(RAN#*6+28:S=0:SET F0
/*4!3'9!;#*!;'<<&*+!3'92!;'4&-!/!;'<<&*+!0,!#!&*+02&!%0*&!D2&(0R&4!$3!&0+1&2!//, /*
'2!\*
!
-$$&<0'30"9,&"*2&="0."#$%,&:'09"+&
!
"1&!,3*+#R!0,!$#,0;#%%3!+1&!,#<&!#,!#!,0*5%&!D2'52#<!$9+!U0+1!#!1&2!('2!+1&!D2'52#<!
*#<&?!D2'52#<!*9<$&2,!+'!,&D#2#+&!@T!+'!@L!#*4!'D+0'*#%!D#,,U'24,-!
!
All programs: "UTILS2"
P0
Password: "0"
1 INP "A",A,"B",E,"N",N:FOR Z=1 TO N:C=(A+E)/2:B=(A+C)/2
2 D=(C+E)/2:X=B:GSB 10:F=Y:X=C:GSB 10:IF F>Y;E=C:GOTO 5
3 F=Y:X=D:GSB 10:IF F<Y;A=C:GOTO 5
4 A=B:E=D
5 NEXT Z:X=(A+E)/2:GSB 10:PRT "T=";X,"MAX F=";Y:GOTO 1
15 RET
P1
To Next Page
Loading...
Need help?
General
