CLS
PRINT "SADEYA/INFORTECNICA"
PRINT "EVOLUCION EPIDEMIA"
10 PRINT
PP = 1
DIA2 = 0
INPUT "CONTAGIADOS INICIALES="; INI
INPUT "RAZON PROGRESION CONTAGIO 1-4="; RAZ
INPUT "INCREMENTO DIAS DESDE EL INICIO="; DIA
INPUT "POBLACION DEL AREA="; POB
20 CONT = INI * PP * RAZ ^ DIA
DIA2 = DIA + DIA2
PRINT "DIA DESDE INICIO="; DIA2
PRINT "CONTAGIADOS="; CONT
NCON = POB - CONT

PRINT "NO CONTAGIADOS="; NCON
REM PRINT "PROB. CONT.="; PP
PRINT


INPUT "SECUENCIA SI=1"; SEC
IF SEC > 1 THEN 100
INI = CONT
PP = ((NCON) / (POB))
IF PP < .5 THEN 90
GOTO 20
90 PRINT "INFLEXION 50 POR CIENTO CONTAGIOS"
PRINT



100 INPUT "NUEVO CALCULO SI=1 "; NC
IF NC = 1 THEN 10
END