Table of Contents
Advertisement
59
■
Challenge of French Study
We used
to
study
french
words using
word-notebooks. Smart
and
more
simplified word-notebooks
are available using
the
com¬
puter.
French words and their
meanings are contained in
separate
files. The
computer
gives
two
types
of questions:
one
asking
about the
meanings
of
French words
retrieved
from the file and
the other asking English
to
be translated
to
French. In the
pro¬
gram,
the
primary string array is
used
as the files containing Freeh
words and their
meanings.
Executing the following program,
try
to test
your
French vocabulary, answering
a
variety of questions
the
computer
will ask
you.
10 DIM
AS
( 1 0), BS
(1
0),
CS
( 1 0)
20 FOR J=
1
TO 10
30 READ AS
(J).
BS (J)
40
CS
(J) =
AS (J)
+ BS
(J)
50 NEXT J
60 K
=
INT(10*
RND (1) ) + 1
70 PRINT"
S WHAT
IS
MEANING OF THE WORD?
80
PRINT AS
(K),
90 INPUT
XS
100
AX$
= AS
(K)
+ XS
1 10 IF CS (K) =
AXS THEN PRINT "OX. !!
"
120 PRINT "WRONG"
:
FOR M = 1 TO
1000
130
PRINT
"
B "
;
SPACES (10)
:
PRINT
"
140 PRINT" Q
GOTO 80
150 K = INT (10
*
RND (1) ) + 1
160
PRINT"
&
TRANSLATE TO FRENCH
170
PRINT
BS(K),
180 INPUT
YS
190 YBS
=
YS +
BS
(K)
200 IF
CS
(X) =
YBS THEN PRINT
"O.K.!!" :
210 PRINT "WRONG"
:
FOR M = 1 TO 1000
220 PRINT"
□
SPACES (10): PRINT"
230 PRINT
"
□
"
: GOTO 1 70
240 END
250 DATA CHAT,
CAT,
PORTE,
DOOR,
MAISON, HOUSE,
CHIEN
260 DATA DOG,
CANARD.
DUCK, POISSON, FISH,
MAIN.
HAND
270
DATA
FENETRE, WINDOW,
FILLETTE.
GIRL,
FEMME
280 DATA WIFE
RUN
WHAT IS MEANING OF THE WORD
?
POISSON
?
We//-..
:
FOR M = 1 TO 3000 :
NEXT
:
GOTO 1 50
NEXT M
□
E]
";
TAB (12) :
SPACES
(25)
FOR M =
1
TO 3000
:
NEXT M :
GOTO
60
NEXT M
□ □
"; TAB (12); SPACES (25)
In this
case,
the question about the meaning of poisson is
answeres
by keying-in that English. Display of OX.!!
is
on
the CRT screen
to
indicate
you are
correct.
For
any
other answer,
error
display
is
made. Conversely,
furthermore,
there is the
case
when
you answer
"POISSON" when asked about translation.
Advertisement
Table of Contents
