CLS


PRINT "SADEYA/INFORTECNICA"
PRINT
PRINT "INTENSIDAD SEĽAL RADIO"

10 PRINT
INPUT "DISTANCIA EMISORA EN Km."; DK
DK = DK * 1000
ALTM = (DK * DK) / 12742000

INPUT "POTENCIA DE EMISION kW."; KW
KW = KW * 1000
IT = KW / (DK ^ 3)

DEC = (LOG(IT) / LOG(10)) * 10 + 125


PRINT "DECIBELIOS RECEP.="; DEC

IF DEC > 75 THEN PRINT "SEĽAL EXCELENTE"
IF DEC < 75 AND DEC > 65 THEN PRINT "SEĽAL BUENA"
IF DEC < 65 AND DEC > 55 THEN PRINT "SEĽAL ACEPTABLE"
IF DEC < 55 AND DEC > 45 THEN PRINT "SEĽAL DEBIL"
IF DEC < 45 THEN PRINT "SEĽAL DIFICIL"

PRINT " ALTURA MINIMA METROS="; ALTM
PRINT

GOTO 10