10 CLS
20 PRINT "Cotas trig do ponto",
30 INPUT "Ang zenital";Z
40 INPUT "Altura instr";HI
50 INPUT "Altura visada";HV
60 INPUT "Dist horizontal";DI
70 INPUT "Cota estacao";CV
80 DH=DI
90 DN=DH*(1/TANZ)
95 C=0.0000000674*DH^2
100 CE=CV-HV+DN+HI+C
110 PRINT "Cota do Ponto";CE
20 PRINT "Cotas trig do ponto",
30 INPUT "Ang zenital";Z
40 INPUT "Altura instr";HI
50 INPUT "Altura visada";HV
60 INPUT "Dist horizontal";DI
70 INPUT "Cota estacao";CV
80 DH=DI
90 DN=DH*(1/TANZ)
95 C=0.0000000674*DH^2
100 CE=CV-HV+DN+HI+C
110 PRINT "Cota do Ponto";CE
Comentários
Enviar um comentário
Obrigado pelo seu contacto.