MODELO
CLS
SCREEN 9
COLOR 14, 17
10 CLS
LOCATE 2, 22: PRINT "================================"
LOCATE 3, 22: PRINT "CALCULO DE LA NOTA DE TECNOLOGIA"
LOCATE 4, 22: PRINT " LORENZO PRIETO "
LOCATE 5, 22: PRINT "================================"
LOCATE 8, 5: INPUT "PRUEBA ESCRITA (30%): ", CONCEP
CONCEPRESUL = CONCEP * .3: LOCATE 8, 55: PRINT "ES UN "; CONCEPRESUL
LOCATE 10, 5: INPUT "PRACTICAS+TRABAJOS ESCRITOS+LIBRETA (10%): ", PRACT
PRACTRESUL = PRACT * .1: LOCATE 10, 55: PRINT "ES UN "; PRACTRESUL
LOCATE 12, 5: INPUT "OBJETO CONSTRUIDO SEGUN PROYECTO (30%): ", OBJET
OBJETRESUL = OBJET * .3: LOCATE 12, 55: PRINT "ES UN "; OBJETRESUL
LOCATE 14, 5: INPUT "MEMORIA DEL PROYECTO (10%): ", MEMO
MEMORESUL = MEMO * .1: LOCATE 14, 55: PRINT "ES UN "; MEMORESUL
LOCATE 16, 5: INPUT "ACTITUD ENTE EL TRABAJO INDIVIDUAL (20%): ", ACTI
ACTIRESUL = ACTI * .2: LOCATE 16, 55: PRINT "ES UN "; ACTIRESUL
NOTA = CONCEPRESUL + PRACTRESUL + OBJETRESUL + MEMORESUL + ACTIRESUL
LOCATE 20, 20: PRINT "NOTA RESULTANTE (100%): ", NOTA
LOCATE 21, 20: PRINT "=======================", "----"
LOCATE 19, 20: PRINT " ", "----"
LOCATE 24, 5: INPUT "Pulsa INTRO para continuar, FIN para salir: ", fin$
IF fin$ = "fin" OR fin$ = "FIN" THEN END ELSE 10
100 END
|