TEXT   4

Código compartilhado do Portugol Webstudio

Guest on 10th May 2022 12:03:43 AM

  1. programa {
  2.         funcao inicio(){
  3.              inteiro a, b, c, delta
  4.              
  5.              escreva( "Digite os valores para A, B e C:")
  6.              leia( a, b, c)
  7.              
  8.              delta= b * b - 4 * a * c
  9.              
  10.              se(b == 0 ou c == 0)
  11.                       escreva("Equaçao incompleta\n")
  12.         }    senao{
  13.                  se (delta < 0 )
  14.                         escreva:("Delta: ", delta, "\nEsta equaçao  possui raizes reais.\n")
  15.                  senao{
  16.                      se(delta == 0)
  17.                        escreva("Delta: ", delta, " \nEsta equacao possui raizes reais iguais.\n")
  18.                     senao
  19.                         escreva(" Delta: ", delta, "\nEstaequacao possui duas raizes reais diferentes.\n")
  20.                        
  21.                     escreva("( -b + ou - raiz(delta)) / ( 2* a)\n")    
  22.                     escreva("(-", b," + ou - raiz(", delta,")) / (2 * ", a,") \n")
  23.                     escreva("(-", b," + ou - raiz(", delta,")) / (", 2 * a,")\n")
  24.                    
  25.                  
  26.                      
  27.                        
  28.                
  29.                
  30.                        
  31.                      
  32.                  }
  33.                        
  34.                    
  35.                    
  36.                        
  37.         }

Raw Paste


Login or Register to edit or fork this paste. It's free.