Atps Algoritmo
Trabalho Escolar: Atps Algoritmo. Pesquise 860.000+ trabalhos acadêmicosPor: Samukafagundes • 8/10/2013 • 642 Palavras (3 Páginas) • 324 Visualizações
Algoritmo para cálculo da força eletrostática;
algoritmo "1 - Forca Eletrostatica"
// Função : Fazer o Calculo da Forca eletrica.
// Autor : GRUPO ATPS
// Data : 13/09/2013
// Seção de Declarações
//mult - o multiplicador de unidade, ou seja, kilo, mili, micro etc...
//op - opcao do usuario.
//q1 - Carga um.
//q2 - Carga dois.
//d - distancia.
//k - constante.
//f - forca.
//mult - multiplicador de de unidade.
var
mult,q1,q2,d,k,f:real
op: inteiro
inicio
// Seção de Comandos
escreva("ENTRE COM A FORCA Q1: ")
leia(q1)
escreva("DIGITE: 1 - MEGA\n 2 - KILO\n 3 - UNIDADE\n 4 - MILI\n 5 - MICRO: ")
leia(op)
se(op=1)entao
mult<-1000000
fimse
se(op=2)entao
mult<-1000
fimse
se(op=3)entao
mult<-1
fimse
se(op=4)entao
mult<-0.001
fimse
se(op=5)entao
mult<-0.000001
fimse
q1<-q1*mult
escreva("ENTRE COM A FORCA Q2: ")
leia(q2)
escreva("DIGITE: 1 - MEGA\n 2 - KILO\n 3 - UNIDADE\n 4 - MILI\n 5 - MICRO: ")
leia(op)
se(op=1)entao
mult<-1000000
fimse
se(op=2)entao
mult<-1000
fimse
se(op=3)entao
mult<-1
fimse
se(op=4)entao
mult<-0.001
fimse
se(op=5)entao
mult<-0.000001
fimse
q2<-q2*mult
escreval("DESEJA ENTRE COM A CONSTANTE OU USAR CONSTANTE NO VACUO? ")
escreva("(1) - VACUO (2) - DIGITAR CONSTANTE: ")
leia(op)
se op=1 entao
k<-9000000000
senao
escreva("ENTRE COM O VALOR DA CONSTANTE: ")
leia(k)
escreva("DIGITE SUA UNIDADE: 1 - MEGA\n 2 - KILO\n 3 - UNIDADE\n 4 - MILI\n 5 - MICRO: ")
leia(op)
se(op=1)entao
mult<-1000000
fimse
se(op=2)entao
mult<-1000
fimse
se(op=3)entao
mult<-1
fimse
se(op=4)entao
mult<-0.001
fimse
se(op=5)entao
mult<-0.000001
fimse
k<-k*mult
fimse
escreva("ENTRE COM A DISTANCIA EM METROS: ")
leia(d)
f<-k * ((q1 * q2) / (d * d))
escreval("O VALOR DA FORCA E DE: ",f)
se (q1*q2)>0 entao
escreval("FORCA DE REPULSAO")
senao
escreval("FORCA DE ATRACAO")
fimse
escreval("CONVERTER VALOR PARA:")
escreva("DIGITE: 1 - MEGA\n 2 - KILO\n 3 - UNIDADE\n 4 - MILI\n 5 - MICRO: ")
leia(op)
se(op=1)entao
escreval("MEGA: ")
mult<-0.000001
fimse
se(op=2)entao
escreval("KILO: ")
mult<-0.001
fimse
se(op=3)entao
escreval("UNIDADE: ")
mult<-1
fimse
se(op=4)entao
escreval("MILI: ")
mult<-100
fimse
se(op=5)entao
escreval("MICRO: ")
mult<-100000
fimse
f<-f*mult
...