[visualg] algoritmos física - resistores


        
            
                Markdown 1.70 KB
                                    
                        | None                    
                
                                        |
    0    0                            

            
                
                                    raw
                    download
                    clone
                    embed
                    print
                
                                    report
                
                
                            
        
        
            1 - Crie um algoritmo que calcule a resistência equivalente de resistores em série:
algoritmo "resistores"
var
   r1, r2, req: Inteiro
inicio
   escreva("Digite o valor da resistência do primeiro resistor (em ohms): ")
   leia(r1)

   escreva("Digite o valor da resistência do segundo resistor (em ohms): ")
   leia(r2)

   req <- r1 + r2

   escreva("A resistência equivalente em série é de ", req, " ohms.")
fimalgoritmo
2 - Crie um algoritmo que calcule a resistência equivalente de resistores em paralelo:
algoritmo "resistores"
var
   r1, r2, req: Real
inicio
   escreva("Digite o valor da resistência do primeiro resistor (em ohms): ")
   leia(r1)

   escreva("Digite o valor da resistência do segundo resistor (em ohms): ")
   leia(r2)

   req <- (r1 * r2) / (r1 + r2)

   escreva("A resistência equivalente em paralelo é de ", req, " ohms.")
fimalgoritmo
3 - Algoritmo: atividade da bexiga
algoritmo "expansao"
var
   d0,t0:real
   d1,t1:real
   delta_d, delta_t: real
   vm:real
   i: inteiro
inicio
   t0 <- 0
   delta_d <- 0
   delta_t <- 0

   ENQUANTO delta_t <= 0 FACA
     escreval("Digite o tempo decorrido (em s): ")
     leia(t1)
     delta_t <- t1 - t0
   FIMENQUANTO

   para i de 1 ate 4 faca
     ENQUANTO delta_d <= 0 FACA
        escreval("")
        escreval("Distância ", i)
        escreval("Digite a distância inicial (em cm): ")
        leia(d0)
        escreval("Digite a distância final (em cm): ")
        leia(d1)
        delta_d <- d1 - d0
     FIMENQUANTO
     vm <- delta_d / delta_t
     escreval("A velocidade média é: ", vm, " cm/s")
     delta_d <- 0
   fimpara

fimalgoritmo