Tabla de contenido
Publicidad
All
and
more
about Sharp
PC-1500
at
http://www.PC-1500.info
¿Pero,
cómo
discierne 1a
PC·
1500 el final de las sentencias que forman la
subrutina?
La
respuesta
es
Que
usted debe informarla
con l;i
sentencia
RETU
RN.
La
forma
de
la
sentenci
a
GOSU
B
es:
GOSUB numero de linea
donde
el
número de línea
es
el c>0rrespondiente
a la
primera
linea de
la
subrutina.
La
torma
de
1
.3
sentencia
RETU RN
es
simplemen
te:
RETURN
Como ejernplo de
una
subrutina
erl
acción,
considere
un programa que computa y compara el
área de dos rectángu los dado
el
largo y
el
ancho
de
los lados:
Listado
del
Programa
:
10
REM LEER LARGO
Y
ANCHO
20 REM
DE
DOS
RECTANGU
LOS
30 FO R
1
=
1
TO
2
40
PAUSE
"RECTANGU LO
"
;
1;
··
:
..
50
INPUT
"ENTRE
LARGO,
ANCHO",
L, W
60 GOSUB
200
70 IF
1
=
1 LET A1
=
A
80 IF
1=
2
LET A2
=
A
90
NEXT 1
100 REM
IMP
RIMA
Y
COMPAR
E
LAS
110
REMAR E.AS
DE RECTANGU
LOS.
120
PRINT
"AREA DE
RECTANGU
LO
'"
A
1
130
PRINT
"AREA DE RECTANGU LO
2 ...
A2
140
IF
A
1
>A2
THEN
170
150
PR INT
"AREA
DE
2 ES> AREA
1"
160 GOTO 180
170
PRINT
"
A
REA DE
1
ES > AREA 2"
180 END
200 REM SUBRUTINA COMPUTAR
EL
AREA
2 10 REM
DEL
RECTANGULO DANDO LA
205 REM
LONGITUD
DE LOS
LADOS
220 REM EN
L
Y W
230 A
=
L
*
W
240 RETURN
64
Do
not
sale this PDF
!!!
Publicidad
Tabla de contenido
