Tabla de contenido
Publicidad
All
and more
about
Sharp
PC-1
500
at
http://www.PC-1500.info
La sentencia REAO
consiste
de
la
palabra
c lave REAO
segutda por
Uf1a
lista de
nombres
de
variables.
Estas
pueden ser variables
nu
méricas
o de
caracteres.
l
as
variables dentro
de
la
lista
cs·
t án
scpar~1das
por comas. La sentencia
READ
causa
que
u''º
o
m
ás
itcms
de
datos
sean
"leidos'
~
de u
na sentencia
DATA
y
alma.cenados
en
las
variables
asocindas.
Una
sentencia
AEAD
que
cotrespoc)de
a
nuestra previa sent enc
ia
DATA es:
120 READ
NS,
WT,
CS.
SXS,
L
La PC· 1500 insiste
e
n
q
ue
cada
vez
que
se
ejecuta.
una sentencia READ,
existe u
na
lista
d
e
d
atos
correspond ientes dentro de
una
sentencia
DATA.
As!,
el
pto9tama
siguiente producirá un
error
en
la
línea
30
porQoC todos
los items
de
datos
h
an
sido
utilizados por
la
sentencia
READ
er•
la línea
20:
10
DATA
1.
2.
3
20
READ
A
,
B. C
30
REAO
D
Para
corregir
esta
siH.JaCión
''osotros
podemos a
ih1d
ir
un ítem de
datos
a
la
linea
10:
10
DAT
A 1,2,3,65
o podemos
utilizar
otra
se
nte
ncia :separada DATA en cualquier
parte
del programa:
10 DAT
A
1,
2. 3
20 REAO
A, B.
C
30
READ D
40 DA
TA
65
Esto demuestra
Que la
PC·
1500 ve
todas las sentencias OA
T
A dentro
de un programa
como una
lis
ta única
de Oatos.
A medida que
la
computadora
e ncuentra cada
una de las
variables dentro
de u
na
sen tenc
ia READ,
asigna el
próxirno dato
de
la
lista
a esa
variable.
S
i
la
PC-1500
no puede
ejecutar
la petició
n
de
un
dato. la computadora parará
e
l
programa
y
señalará
u
n error.
Los datos
e
xtras. Que no soo
utilizados cuan<lo e
l
programa ocaba
de
una
manera
nol'mal,
son
ignorados.
Si
el
ripo
(carácter
o nú rnero)
del
próximo
ite
m
no corresponde al t
ipo
de
la
variable
que
t
iene
que
llenarse, un error
ocu
rr-irá. Los b uenos
programadores agrupan
los datos en
sentencias DATA
separadas.
cada una d
e
las cuales
cor-rcspo1
,de
a su sentencia
AEAD dentro
del
p rograma.
Esto
se n1uestra
en
e
l
pro9rama
siguient
e
Que lee
tres
datos cuatro
veces:
'º
DA TA
º'A"
,
1
20
DATA 2
...
8
...
3
30
DATA
5
.
..
C", 8
40
DATA
13, "O",
21
50
FOR
1=
1
TO
3
60
RE
AD
A.
A$,
Z
70
T
=
T+
A*Z
80
NEXT 1
61
Do not
sale
this PDF
!!!
Publicidad
Tabla de contenido
