ATPSI
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”);