ATPSI - Etapa 1 E 2

• Construção do Algoritmo para calcular Força Eletrostática:

 Algoritmo Força Eletrostática

 Var

 Real: Q1, Q2, r, F, K = 9000000000;

 Inicio

 Escreva (“Calculando Força Eletrostática - F = (K|Q1|Q2|) / r²”);

 Escreva (“Este programa não aceita potenciação”);

 Escreva (“Entrar com o numero inteiro - Ex.: 1.6 * 102 = 160”);

 Escreva (“Digite o valor de Q1”);

 Leia (Q1);

 Escreva (“Digite o valor de Q2”);

 Leia (Q2);

 Escreva (“Digite o valor de r”);

 Leia (r);

 Se (Q1 < 0) entao

 Inicio

 Q1 <- Q1 * (-1)

 fim;

 fimse;

 Se (Q2 < 0) entao

 Inicio

 Q2 <- Q2 * (-1)

 fim;

 fimse;

 F <- K * Q1 * Q2 * pot(r, 2)

 Escreva (“F = (K|Q1|Q2|) / r²”);

 Escreva (“F = (K|Q1|Q2|) / r²”, (K*Q1*Q2) / pot(r,2);

 Escreva (“F =”, F);

 Fim.

• Construção do Algoritmo para calcular campo :

 Algoritmo Campo

 Var

 Real: C, F, q;

 Inicio

 Escreva (“Calculando Campo - C = (F) / |q|”);

 Escreva (“Este programa não aceita potenciação”);

 Escreva (“Entrar com o numero inteiro - Ex.: 1.6 * 102 = 160”);

 Escreva (“Digite o valor de F”);

 Leia (F);

 Escreva (“Digite o valor de q”);

 Leia (q);

 Se (q < 0) entao

 Inicio

 q <- q * (-1)

 fim;

 fimse;

 C <- F / q

 Escreva (“C = (F) / |q|”);

 Escreva (“C = (F) / |q|”, F / q);

 Escreva (“C N”, C);

 Fim.

• Construção do Algoritmo para calcular Potencial Elétrico :

 Algoritmo Potencial Elétrico

 Var

 Real: V, Epot, q;

 Inicio

 Escreva (“Calculando Potencial Elétrico -V = Epot / q”);

 Escreva (“Este programa não aceita potenciação”);

 Escreva (“Entrar com o numero inteiro - Ex.: 1.6 * 102 = 160”);

 Escreva (“Digite o valor de Epot”);

 Leia (Epot);

 Escreva (“Digite o valor de q”);

 Leia (q);

 V <- Epot / q

 Escreva (“V = Epot / q”);

 Escreva (“V = Epot / q”, Epot / q);

 Escreva (“VVoltsN”, V);

