Sharp CE-140P Manual do Utilizador descarregar pdf (Página 26)

·B

,

.

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

·

_.

.. ' .

. .

,

--

--_.

#111

__

.

....

____

•

FRAGE -

UND

-

ANTWORT

Programm

Sehr

geehrte

Herren

~==================

H:

erm

it

sende

i ch i

hnen

e

in

Prog,.Qmm, clas

Ihnen

Frage

unci

Antwort

steht.

Dieses

Programm

duerfen

sie

gerne

in

ihr

er

~eitschrift

abdrucken.

Einfach

eintippen

,mit

7

RUN'

starten

und

s ich

ueberraschen

lassen.Es

ist

normaler

we

ise

e

in

Programm

fuer

den

M~-700,

laes

st

sich

aber

mit

geringfue9igen

Aenderun

gen

fur

andere

Computer

benutz~n.

Hi

erm

it

moechte

i ch

si

e und

anclere

anreg

en

auch

mal

wiecler

Spiele

oder

sinnvol

~e

Pro9ramme

fuer

den

M~-700

an

ihre

~eit

sc~rift

zu

schicken

unci

abzuclrucken.Also

vlel

Spass,COMPUTER-FREAKS22

CflRS

TEN

SCHM

IT~

DODO

100

CLS

105

LET

T$::;"GENIE"

110

DIM

U~CI0),N$(10),At(10)

120

DIM

T$(10),S$(10),B$(2)

130

DIM

Mt(30),Qt(30),CC30)

135

DIM

Ut(9),WtC9)

138

DIM

~t(5)

140

REM

OATEN

WERDEN

EINGElESEN

150

GOSUB

10'il0

155

GOSUB

2200

210

INPUT"WIE

HEISSEN

SIE

?";O$

.

220

PRINT

230

PRINT"SPRECHEN

SIE

MIT

MlR,

"jOt

240

INPUT

1$

250

IF

It::;"ENDE"

THEN

GOTO

910

300

REM

ANTWORT

DES

COMPUTERS

310

LET

AN::;INTCRND(1)t8+1)

320

IF

AN(6THEN

~OTO

490

325

IF

AN::;7

THEN

GOTO

2000

700

LET

R$::;"WAS

HALTEN

SIE

VON

"+N$(H)+"

?"

710

GOTO

340

720

LET

R$=S$(l)+"

. "+0$+"

-MEINEN

SIE

ETW-

A,DASS

ALLE

LEUTE

SO

"'+A$CG)+" SINO?"

730

GOTO

340

740

LET

R$="ICH

HABE

GEHOERT,

DASS

SIE

".

+Ate

G)

+"

SINO

"i"H

CH)

i"

".

"+0$

750

GOTO

340

760

LET

R$=S$(l)+"

"i"D$i"

" ,ICH

GLAUBE

SI

E

SINO

GENAUSO

"i"A$CG)

765

LET

R$::;Rt+"

WIE

DIE

ANDEREN

LEUTEN

M

IT

OENEN

ICH

GESPROCHEN

HABE."

770

GOTO

340

780

LET

R$::;"ICH

FUEHLE

MICH

JET~T

"i"AtCG

)

790

GO

TO

340

800

PRINT:PRINT"PSST

..•..

ICH

OENKE

...

"

810

LET

R$="WIR

WOLLEN

"i"U$(F)i"" "+N$(H)

i""

ICH

MEINE

"i"N$CHh"

1ST

"i"A$CG)

820

GOTO

340

830

LET

R$="ER~AEHLEN

SIE

MlR

ETWAS

UEBE

R "+NtCH)+", "+0$

840

GOTO

340

850

LET

R$::;"OENKEN

SIE,DASS

1CH

"i"A$CG)+

" BIN, "i"0$i" " 7"

860

GOTO

340

870

LET

R$::;"l-:lOLLEN

WIR

"i"U$CF)+"ODER LIE

BER

UEBER

"+At(G)+"

REDEN

?"

880

GOTO

340

890

LET

Rt::;"RATEN

SIE

WAS

1CH

UON

'''+Ot+

",

HALTE

900

GOTO

340

910

REM

ABSCHLUSS

UNTERPROGRAMM

920

PRINT"HABEN

SIE

JET~T

GENUG?,r

930 PRINT"WILL

NOCH

JEMANO

MIT

MlR

REDEN

?"

940

INPUT

Xt:IF

X$::;"JA"

GOTO

210

950 PRINT:PRINT"OANN

AUF

WIEDERSEHEN2222

960

END

1000

REM

WORT

FUER

WORT::;PRUEFUNG

1010

FOR

1::;1

TO

30:READ Q$CI):NEXT

1020

DATA

WER

330

GOTO

600

340

PRINT

350

PRINTRt

350

PRINT

400.

REM

PRUEFUNG,WIEUIELE

ANTWORTEN

405

LET

T=0

410

FOR

K=1

TO

30

420

LET

T=T+CCK)

430

NEXT

K

440

IF

~(12

THEN

GOTO

450

450

FOR

K=1

TO

30:LETCCK)=0:NEXT K

460

LET

T=0

470

GOTO

240

490

REM

PRUEFUNG

DES

AUSDRUCKES

500

FOR

~A=1

TO

30

510

LET

Ll=LEN(Q$C~A))

520

LET

L2=LENCIt)

530

FOR

YE=1

TO

L2

540

IF MIO$CIt,YE,L1J=QtClAJ

THEN

GOT056

-e

550

NEXT

YE:NEXT

lA:GOTO

500

560

IF

CC~A)

)0

THEN

GOTO

550

~70

LET

CClAJ=C(lAJ+l

580

LET

R$=M$(lAJ

590

GOTO

340

600

REM

ERlEUGUNG

DES

AUSDRUCKES

610

LET

E=INTCRNDC1J*10+1)

620

LET

F=INTCRNDC1JtI0+1J

630

LET

G=iNTCRND(1)tI0+1)

640

LET

H=INTCRNDC1JtI0+1J

650

LET

L=INTCRNDC])*10+1)

650

ONEGOT0700,720,740,750,780~800,830,8

50,870,890

al'i

PMP

-

1ST,

WAS,

?,

BEOEUTET,

WA~

UM,

IHR

1030

DATA

"MICH

","ICH

",

"ES

",

SPRECHE

N,

"

NEIN

"

Hl40

DATA.

7,"

SIND

",

"MEIN

","JA",SIE,?

1050

DATA

DENKEN,

KLUG,

GROB,

DANKE,

" A

US"

11260

DATA

SIE,?,

UNTER,"

NICHT

","

1ST"

1070

DATA

~U,

7,

WISSEN

1110

FOR

1::;1

TO

30:READ

MtCI):

NEXT

1120

DATA

ICH

BIN

NUR

EIN

COMPUTER

1130

DATA

DAS

MACHT

NICHTS,

DAS

1ST

GUTE

FRAGE

EINE

1140

DATA

ICH

WEISS

NICHT,"NUN,WARUM

NIC

HT?"

1150

DATA

WIE

MEINEN

SIE

DAS

,

"WER

SIND

SIE7"

1160

DATA

OH,

WAS

BEDEUTET

'ES'

1170

DATA

SOLL

ICH

LIEBER

STILL SEIN

1180

DATA

SIE

SAGEN

MlR,

WIE

MEINEN

SIE

1190

DATA

OH

JE

OH

JE,

ALSQ

STIMMEN

SIE

MlR

~U

1200

DATA

SIE

MOEGEN

MICH

WOHL

NICHT

1210

DATA

WARUM

,

ENTSCHLIESSEN

SIE

SICH

,

DANKE

1220 .

DATA

BIS

JET~T

HA

BEN

SIE

NOCH

NICHT

S

ERLEBT

1230

DATA

NEHMEN

SIE

ES

NICHT

UEBEL

1240

DATA

UNO

SIE,

DAS

1ST

MlR

GLEICH

WAS

FUER

EINE

OUMME

FRAGE

1250

DATA

SIE

HABEN

WOHL

EINEN

NIEDRIGEN

1.

Q.,

UNSINN

FortsetzUng

nachste

Se

i

te

SHARP

'

-Computer

Heft

16

Sei

te

26

~~~----~----~----~----~~------~~--

1 2 ... 21 22 23 24 25 26 27 28 29 30 31 ... 59 60

Comentários a estes Manuais

Sem comentários