| ejemplos de lenguaje de programacion |
| ||| bienvenida ||| Variantes |
|
Ejemplo 1: Simple Saludo PRINT "Hola mundo"
Ejemplo 2: BASIC original no estructurado 10 INPUT "Cuál es su nombre:"; NN$ 20 PRINT "Bienvenido al 'asterisquero' ";NN$ 25 PRINT 30 INPUT "con cuántos astericos inicia [Cero sale]:"; N 40 IF N<=0 THEN GOTO 200 50 AS$="" 60 FOR I=1 TO N 70 AS$=AS$+"*" 80 NEXT I 90 PRINT "AQUI ESTAN:"; AS$ 100 INPUT "Desea más asteriscos:";SN$ 110 IF SN$="" THEN GOTO 100 120 IF SN$<>"S" AND SN$<>"s" THEN GOTO 200 130 INPUT "CUANTAS VECES DESEA REPETIRLOS [Cero sale]:"; VECES 140 IF VECES<=0 THEN GOTO 200 150 FOR I=1 TO VECES 160 PRINT AS$; 170 NEXT I 180 PRINT 185 REM A repetir todo el ciclo (comentario) 190 GOTO 25 200 END
|
Ejemplo 3: Equivalente en BASIC estructurado
DEFINT I-N
iTrue=-1
INPUT "¿Cuál es su nombre"; NombreUsuario$
PRINT "Bievenido al 'asterisquero',"; NombreUsuario$
DO
PRINT
INPUT "¿Con cuántos asteriscos inicia [Cero
sale]:"; NroAsteriscos
IF NroAsteriscos<=0 THEN EXIT DO
Asteriscos$ = ""
FOR I=1 TO NroAsteriscos
Asteriscos$=Asteriscos$ + "*"
NEXT I
PRINT "AQUI ESTAN: "; Asteriscos$
DO
INPUT "Desea más asteriscos:";SN$
LOOP UNTIL SN$<>""
IF SN$<>"S" AND SN$<>"s" THEN EXIT DO
INPUT "CUANTAS VECES DESEA REPETIRLOS [Cero
sale]:";iVeces
IF iVeces<=0 THEN EXIT DO
FOR I = 1 TO iVeces
PRINT Asteriscos$;
NEXT I
PRINT
LOOP WHILE iTrue
END |
