Resolución de programas basados en conversaciones
Los programas en los que las conversaciones tienen una gran importancia son numerosos en la enseñanza. Y hoy, este programa que se plantea aquí, es uno de ellos. Por otra parte, a la hora de realizar esta explicación, no se ha pretendido responder con precisión a este tipo de programas (aunque para ello se base en un caso concreto), sino mostrar cómo se puede actuar ante este tipo de programas.
Por lo tanto, y como tú, lector, podrás confirmarlo, la resolución del programa que aquí se plantea es bastante sencilla y comprensiva. El ordenador nos pedirá radio y altura si es necesario. A continuación, y según órdenes dadas, calculará el volumen de una esfera, cono o cilindro indicando el resultado.
A modo de aclaración, el organigrama de este programa es el siguiente:
PROGRAMA DE ENTREVISTA 10 REM *** 20 CLS 30 LET PI=3.141592 40 PRINT "Mediante este programa se calculan los volúmenes de esferas, conos o cilindros" 50 FOR T = 1 TO 1200 60 I = I + 1 70 NEXT T 80 CLS 90 ¿qué tipo de PRINT desea calcular 100? 110 PRINT 120 PRINT "Si es de esfera, numerar 1" 130 PRINT "Si es de cono, poner 2" 140 PRINT "Si es de cilindro, poner 3" 150 INPUT A 160 IF A = 1 THEN GOSUB 200: GOTO 430 170 IF A = 2 THEN GOSUB 270: GOTO 430 180 IF A = 3 THEN GOSUB 350: GOTO 430 190 GOTO 80 200 REM ** Volumen de la esfera ** 210 CLS : PRINT "El volumen de la esfera es: V = 4 * PI * R> 3/3" 220 INPUT "Cuánto vale el radio de la esfera"; R 230 LET V = 4 * PI * R> 3/3 240 PRINT : PRINT "Volumen de la esfera: V ="; V 250 RETURN 260 REM ** Fin de volumen de la esfera ** 270 REM ** Volumen del cono ** 280 CLS : PRINT "El volumen del cono es: V = PI * R\ 2 * H/3" 290 INPUT "Cuánto vale el radio del pie del cono"; R 300 INPUT "Y la altura del cono"; H 310 LET V = PI * R< 2 * H/3 320 PRINT "Volumen del cono: V ="; V 330 RETURN 340 REM ** Fin de volumen del cono ** 350 REM ** Volumen del cilindro ** 360 CLS : PRINT "El volumen del cilindro es: V = PI * R> 2 * H" 370 INPUT "Cuánto vale el radio del pie del cilindro"; R 380 INPUT "Y la altura del cilindro"; H 390 LET V = PI * R< 2 * H 400 PRINT "Volumen del cilindro: V ="; V 410 RETURN 420 REM ** Fin de volumen del cilindro ** 430 INPUT "¿Quieres calcular otro volumen (SI/NO)"; C$ 440 IF C$ = "SI" OR C$ = " THEN GOTO 20 450 IF PRINT$ 470 NO Intentad llevar a cabo un programa similar, adiós." 500 END
Zu idazle
Zientzia aldizkaria
