Código: Seleccionar todo
10 PRINT "*******Escuela secundaria #48*******"
20 PRINT "*1. Matematicas *"
30 PRINT "*2. Fisica *"
40 PRINT "*3. Otro *"
50 PRINT "*4. salir *"
60 INPUT " que opcion deseas"; op
70 IF op = 1 THEN GOTO 110 ELSE 30
rem conexiones
80 IF op = 2 THEN GOTO 260 ELSE 40
90 IF op = 3 THEN GOTO 310 ELSE 50
100 IF op = 4 THEN GOTO 970 ELSE 60
REM aqui empiesa el menu de matematicas
110 PRINT "1. suma"
120 PRINT "2. resta"
130 PRINT "3. multiplicacion"
140 PRINT "4. division"
150 PRINT "5. area de un cubo"
160 PRINT "6. area de un circulo"
170 PRINT "7. salir"
180 INPUT " que opcion deseas"; op
190 IF op = 1 THEN GOTO 380 ELSE 120
rem conexiones
200 IF op = 2 THEN GOTO 450 ELSE 130
210 IF op = 3 THEN GOTO 520 ELSE 140
220 IF op = 4 THEN GOTO 590 ELSE 150
230 IF op = 5 THEN GOTO 660 ELSE 160
240 IF op = 6 THEN GOTO 740 ELSE 170
250 IF op = 7 THEN GOTO 20 ELSE 180
REM aqui empiesa el menu de fisica
260 PRINT "1. distancia / velocidad"
270 PRINT " 2. salir"
280 INPUT " que opcion deseas"; op
290 IF op = 1 THEN GOTO 810 ELSE 270
rem conexiones
300 IF op = 2 THEN GOTO 20 ELSE 280
REM aqui enpiesa el menu de otros
310 PRINT " 1. carita feliz"
320 PRINT " 2. salir"
350 INPUT "que opcon deseas"; op
360 IF op = 1 THEN GOTO 880 ELSE 320
rem conexiones
370 IF op = 2 THEN GOTO 30 ELSE 350
REM aqui empiesa programa de suma
380 CLS
390 INPUT "dame valor de z"; z
400 INPUT "dame valor de b"; b
410 LET k = z + b
420 PRINT "resultado es "; k
430 INPUT "deseas continuar [s/n]"; x$
440 IF x$ = "s" THEN GOTO 390 ELSE 110
REM aqui empiesa programa de resta
450 CLS
460 INPUT "dame valor de x"; x
470 INPUT "dame valor de y"; y
480 LET r = x - y
490 PRINT "resultado es"; r
500 INPUT "deseas continuar [s/n]"; x$
510 IF x$ = "s" THEN GOTO 470 ELSE 120
REM aqui empiesa programa de multiplicacion
520 CLS
530 INPUT "dame valor de p"; p
540 INPUT "dame valor de o"; o
550 LET m = p * o
560 PRINT "multiplicacion es"; m
570 INPUT "deseas continuar [s/n]"; x$
580 IF x$ = "s" THEN GOTO 540 ELSE 130
REM aqui empiesa programa de division
590 CLS
600 INPUT "dame valor de s"; s
610 INPUT "dame valor de f"; f
620 LET e = s / f
630 PRINT "resultado es"; e
640 INPUT "deseas continuar [s/n]"; x$
650 IF x$ = "s" THEN GOTO 610 ELSE 140
REM aqui empiesa programa de area de un cubo
660 CLS
670 INPUT "dame el valor de l"; l
680 INPUT "dame el valor de h"; h
690 INPUT "dame el valor de v"; v
700 LET a = v * l * h
710 PRINT "area es"; a
720 INPUT "deseas continuar [s/n] "; x$
730 IF x$ = "s" THEN GOTO 680 ELSE 150
REM aqui empiesa programa de area de un circulo
740 CLS
750 INPUT "dame valor de r", r
760 pi = 3.14
770 LET g = pi * r ^ 2
780 PRINT " area es"; g
790 INPUT " deseas continuar[s/n]"; x$
800 IF x$ = "s" THEN GOTO 760 ELSE 160
REM aqui empiesa programas de fisica distancia sobre velocidad
810 CLS
820 INPUT "dame velocidad", v
830 INPUT " dame distancia", d
840 LET t = d / v
850 PRINT " resultado es"; t
860 INPUT "deseas continuar [s/n]"; x$
870 IF x$ = "s" THEN GOTO 830 ELSE 260
REM aqui empies programas de otros
880 REM* this programa draws a happy face*
890 SCREEN 1
900 COLOR 5, 1
910 CLS
920 rpd! = .0174532
930 CIRCLE (160, 100), 70, 3
940 CIRCLE (135, 80), 10, 1
950 CIRCLE (185, 80), 10, 1
960 CIRCLE (160, 110), 30, 1, (180 * rpd!), (360 * rpd!)
970 END