Sharp CE-140P User Manual download pdf (Page 49)

~~~rqh

h~~rm~·~

.~--r"-

-""

•

•.

. -

. .

.....

;::..

9h1;

~.jqhh~

____

"'IV"

Seite

-2-

Programme

fuer

den

Sharp

1500A

1Q):

"A"CLEAR :INF'UT

"Zahl

";A$,"Basis

";B:Z=VAL

A$:IF

B=1121

INPUT

Basis

";B:I=Z-INT

Z:GOTO·15

11:

FOR

T=ITO

LEN

A$:IF

MID$

(A:t,T,l

12:

Al$==LEFT$

(A$,

T-1)

A2$=MID$

(A$,

T+1,

16)

A2$="

GOTO

13:

FOR

T=ITO

LEN

A2$:A=ASC

MID$(A2$,T,I)-48:A=A-7*(A

9):

I=I+A/B

T:NEXT

14:

FO~

T=ITO

LEN

Al$=A~ASC

M!D$(Al$,T,I)-48:A=A-7*(A

)

9):

I=!+A*B-" (LEN

Al$-T):

GoTo

"A"

15:

M=Z:Z=INT

(Z/B):M=M-Z*B:N$=CHR$

(M+48+7*(M>9)}+N$~IF

Z>12I

GoTo

16:

I<>I2ILET

I=I*B:M=INT

I:I=I-M:I$=I$+CHR$

(M+48+7*(M>9»~

K=K+l:IF

1«16GoTo

17:

PRINTN$;".

;I$:GoTo

"A"

Programm

Nr.

Inverse

Matrix

Eirie

Inverse

Matrix

l~Bt

s~ch

mit

verschiedenen

Verfahren

berechnen;

das

hier

vorgestellte

ist

das

Austauschverfahren.

Nach

dem

Start

wird

die

Dimension

eingegeben

und

ein

"J,

falls

riach

jedem

Austausch

ein

Zwischenergebnis

angezeigt

werden

5011.

2121:

CLEAR :WAIT

121:

INPUT

"Dimension

";N,"Zwischenerg.

";A$:

DIM

A(N,N)

21:

FOR

T=ITO

N:FoR

Y=ITo

N:PRINT

"A(";T;IO,";Y;")

lip

INPUT

A(T,Y):CLS

:NEXT Y:NEXT

T:WAIT

22:

FOR

T=ITO

N:PV=A(T,T}:C=1/PV:FoR

Y=ITO

N:IF

Y<>TLET A(I2I,Y)=

-A(T,Y)/PV:A(T,Y)=A(I2I,Y)

23:

Y:FOR

U=ITO

N:IF

U=TTHEN

24:

FOR

I=ITO

N:IF

I<>TLET

A(U,I)=A(U,I)+A(I2I,I)*A(U,T)

25:

26:

U:FoR

Y=ITo

N:IF

TLET

A(Y,T)=A(Y,T}/PV

27:

Y:IF

A$="JIIGOSUB

29:NEXT

T:END

28:

T:GoSUB

29:END

29:

FOR

R=ITo

N:FOR

E=ITO

N:PRINT

"A(";R;",";E;")=

";A(R,E):

E:NEXT R:RETURN

Programm

Nr.

Passwort

Bei

vielen

Sharp-Rechnern

kdnnen

die

Programme

mit

einem

Passwort

g~schUtzt

werden;

mit

folgendem

Programm

i~t

dies

nun

auch

beim

15121121A

mdglich.

Bedienung:

Nach

dem

Einschalten

des

Rechners

wird

nach

dem

Passwort

gefragt,

das

eine

max .

L~nge

von

Zeichen

haben

kann.

Durch

Druck

auf

kanh

die

Eingabe

geldscht

werden,

mit

den

Tasten

SHIFT/DEF/SML/:/RCL/+/1/~/?/MoDE

wird

jeweils

das

letzte

Zeichen

geloscht.

1st

das

Passwort

ngegeben,

nach

Druck

.f ENTER

uberpruft.

Bei

einem

falschem

Passwort

wird

das

Programm

erneut

gestartet.

Mit

der

OFF-Taste

ist

der

Rechner,

wihrend

das

Programm

l~uft,

abschaltbar.

Damit

die

Routine

nach

dem

Einschalten

a k

tiviert

wird,

ist

darauf

achten,

da8

der

Rechnir

beim

Ausschalten

RUN-Modus

~teht.

ARUN

:POKE#

&FQ)I2ID,&82:PoKE

&764E,64:CLEAR

:CL8

:WAIT

121

CURSOR

I2I:PRINT

"Passwort

";AA$;CHR$

95;"

A$=INKEY$

:IF

A$=""GoTo

A$=CHR$

15PoKE#

~-(FI2II2ID,

121:

CALL

&CD71

A$=CHR$ 13GOTo 9

A$=CHR$ 24GOTo 1

A$(IO

"LET

AA$=LEFT$

(AA$,ABS

(LEN

AA$-I)~:GoTO

AA$=AA$+A$:GoTO 2

AA$< >

"Passwort"GOTo

1121:

POKE#

&FI2IQ)D,I2I!END

Programm

Nr.

Musikprogramm

Das

Programm

belegt

die

Tastatur

des

15121I21A

von

A,S,D

bis

mit

ganzen

und

die

Tasten

W,E,T,Y,U,O,P

mit

halben

Noten.

1121:

"A":

CLS : WAIT

121:

"Musi

kprogramm"

11:

ERROR

GOTO

12:

A$=INKEY$ :·

A$=""GOTo

...,

13:

A$="A"+A$:RE~TORE

A$:READ

H,L:BEEP

1,H,I~0+L:GOT01~

14:

"AA"DATA

255,

121

15:

"AS"DATA

223,10

"2:

"AL"DATA

11218,

8121

27:

"AT"DATA

177,3121

16:

"AD"DATA

2121121,

2121

:;3.

"A4"DATA

95,1121121

28:

"AY"DATA

157,

4121

17:

"AF"DATA

186,

3121

24;

"A5"DATA 88,12121

29:

"AUi'DATA

138,

5121

18:

"AG"DATA

16.8,

4121

"5:

"AW"DATA

239,

1121

3121:

"AO"DATA

114,

9121

19:

"AH"DATA

147,

51Z!.

26:

"AE"DATA

211,

2121

31:

"AP"DATA

11211,10121

2121:

"AJ"DATA

129,

6121

21:

"AI<"DATA

121.

7121

~.~~

·-

Wel.

PI#I#

~-:-'

L ==- ...

.,e_-

___

............

4'." -

Sei

ARP-Compu

.-.

.'"

1 2 ... 44 45 46 47 48 49 50 51 52 53 54 ... 59 60

Jl,{MlQfI!'ll/tJJll 1
Literaturangebot 2
, , I 4
-' 5
SI:IBRP-Com 6
J)'B(3 7
') 7
* •••••• 8
* CE-12'P • 8
Pock~t-Co~puter 9
M~sikprogiamme 9
PC-1260/ 10
PC-1261 10
--- - - -- -- 11
JOUI" 12
11 . U 13
;8 14
AlfRlfl 15
PC-1251 16
I $,r 17
~nderung 18
D~en und 18
(c)="; 19
". 20
SHaRP-Comput 20
DEI IIIIIt 21
I I i I I -' 21
1 NEIN 22
";;" 23
-Handbuch 24
SCHREIB-SERVICE 25
26
':py\"'" 27
"-ll 27
PM" 28
.' 28
'sI:lA R 29
,' 30
'"' 31
::.:.a.: 31
'X 32
3' 32
.." 33
<r:,C 34
~& 35
- 18.00 36
'1_ 37
LISTING 38
BRIDGESTONE 38
"jQ$: 39
PC-1500 40
HARD-UNO 40
SOFTWARE 40
1'511 41
I PMP. 42
.a-_MUM' 43
"_" 44
"_I! 44
+'uet-' 45
SYSTEMHANDBUCH 46
PC-2500 46
" 47
"'.' 47
:l4(--~~ 48
"'IV" 49
"4" 50
~~~~~~~~~~~= 51
HARP-Comp-ut 52
'0) 53
:,.:,:,:" 54
;" : : ., : 54
.'-" 55
,. : : .' : 56
& A & 58
(L1~~A~Ff 59
Aufbau des 60
Spieffeldes 60

Comments to this Manuals

No comments

Sharp CE-140P User Manual Page 49

Comments to this Manuals

Related products and manuals for Print & Scan Sharp CE-140P