Resolució de programes basats en converses
Els programes en els quals les converses tenen una gran importància són nombrosos en l'ensenyament. I avui, aquest programa que es planteja aquí, és un d'ells. D'altra banda, a l'hora de realitzar aquesta explicació, no s'ha pretès respondre amb precisió a aquesta mena de programes (encara que per a això es basi en un cas concret), sinó mostrar com es pot actuar davant aquesta mena de programes.
Per tant, i com tu, lector, podràs confirmar-ho, la resolució del programa que aquí es planteja és bastant senzilla i comprensiva. L'ordinador ens demanarà ràdio i altura si és necessari. A continuació, i segons ordres donades, calcularà el volum d'una esfera, con o cilindre indicant el resultat.
A manera d'aclariment, l'organigrama d'aquest programa és el següent:
PROGRAMA D'ENTREVISTA 10 REM *** 20 CLS 30 LET PI=3.141592 40 PRINT "Mitjançant aquest programa es calculen els volums d'esferes, cons o cilindres" 50 FOR T = 1 TO 1200 60 I = I + 1 70 NEXT T 80 CLS 90 quin tipus de PRINT desitja calcular 100? 110 PRINT 120 PRINT "Si és d'esfera, numerar 1" 130 PRINT "Si és de con, posar 2" 140 PRINT "Si és de cilindre, posar 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 ** Volum de l'esfera ** 210 CLS : PRINT "El volum de l'esfera és: V = 4 * PI * R> 3/3" 220 INPUT "Quant val el radi de l'esfera"; R 230 LET V = 4 * PI * R> 3/3 240 PRINT : PRINT "Volum de l'esfera: V ="; V 250 RETURN 260 REM ** Fi de volum de l'esfera ** 270 REM ** Volum del con ** 280 CLS : PRINT "El volum del con és: V = PI * R\ 2 * H/3" 290 INPUT "Quant val el radi del peu del con"; R 300 INPUT "I l'altura del con"; H 310 LET V = PI * R< 2 * H/3 320 PRINT "Volum del con: V ="; V 330 RETURN 340 REM ** Fi de volum del con ** 350 REM ** Volum del cilindre ** 360 CLS : PRINT "El volum del cilindre és: V = PI * R> 2 * H" 370 INPUT "Quant val el radi del peu del cilindre"; R 380 INPUT "I l'altura del cilindre"; H 390 LET V = PI * R< 2 * H 400 PRINT "Volum del cilindre: V ="; V 410 RETURN 420 REM ** Fi de volum del cilindre ** 430 INPUT "Vols calcular un altre volum (SI/NO)"; C$ 440 IF C$ = "SI" OR C$ = " THEN GOTO 20 450 IF PRINT$ 470 NO Intenteu dur a terme un programa similar, adéu." 500 END
Zu idazle
Zientzia aldizkaria
