Algoritmo - Baskara

•

UNINASSAU ARACAJU

1

0

1

0

Aluno respostas

16/09/2022

E aí, curtiu este material?

Ajude a incentivar outros estudantes a melhorar o conteúdo

Gostou desse material? Compartilhe! 🧡

Programação I

56.210 Materiais compartilhados

Baixe o app para aproveitar ainda mais

Leia os materiais offline, sem usar a internet. Além de vários outros recursos!

Prévia do material em texto

Algoritmo "baskara" 
// Disciplina : [Linguagem e Lógica de Programação] 
// Professor : Antonio Carlos Nicolodi 
 
Var 
 a,b,c,delta,raiz,x1,x2:real 
Inicio 
 escreval("=============================================") 
 escreval(" CALCULADORA DE BASKARA ") 
 escreval("=============================================") 
 escreval 
 escreval("INSTRUÇÕES:") 
 escreval("1º=Depois de cada informação precione (ENTER).") 
 escreval("2º=Para números decimais utilize o ponto(.).") 
 escreval("3º=Para sair do programa precione (ESC).") 
 escreval 
 escreval("================INFORMAÇÃO PARA CALCULAR===============") 
 escreva("Coeficiente a: ") 
 leia(a) 
 escreva("Coeficiente b: ") 
 leia(b) 
 escreva("Coeficiente c: ") 
 leia(c) 
 escreval("=======================================================") 
 escreval 
 escreval("========================RESULTADO======================") 
 se (b^2-4*a*c/2*a>0) e (a<>0) entao 
 x1<- b+RaizQ((b^2)-(4*a*c))/(2*a)) 
 x2<--b+RaizQ((b^2)-(4*a*c))/(2*a)) 
 escreval("X1: ",x1:3:4) 
 escreval("X2: ",x2:3:4) 
 senao 
 escreval("Esta equacao nao possui raizes reais") 
 fimse 
 escreval("=======================================================") 
 escreval 
 escreval("=======================================================") 
 escreval(" OBRIGADO POR UTILIZA ") 
 escreval("=======================================================") 
Fimalgoritmo