IFCE
Trabalho de Programação Estruturada
Equipe: Andressa Isaías, Elaine Cristina, Luiza Maiara, Pedro Gabriel e Sara Mickelle
13 de Abril de 2009

FASE I
Algoritmo

Algoritmo "Equação do 2º Grau"
// Função : Obter as raízes de uma equação do segundo grau, tal que o delta dê maior do que Zero.
// Autor : P-SAME
// Data : 20/03/2009
var
delta,a,b,c,x1,x2:real
inicio
escreval("Equação do Segundo Grau")
escreval("ax²+bx+c=0")
escreval
escreva("digite a: ")
leia(a)
escreva("digite b: ")
leia(b)
escreva("digite c: ")
leia(c)
delta<-((b*b)-4*a*c)
x1<- (-b +raizq(delta))/(2*a)
x2<-(-b -raizq(delta))/(2*a)
escreval("x1=",x1)
escreval("x2=",x2)
fimalgoritmo

Programa em C

#include
main()
{
float a,b,c,x1,x2,delta;
printf(" Equacao do SEGUNDO Grau\n");
printf(" a(x*x)+bx+c=0\n");
printf("Digite'a'=");
scanf("%f",&a);
printf("Digite'b'=");
scanf("%f",&b);
printf("Digite'c'=");
scanf("%f",&c);
delta=((b*b)-4*a*c);
x1=(-b+sqrt(delta))/(2*a);
x2=(-b-sqrt(delta))/(2*a);
printf("\nx1= %f",x1);
printf("\nx2= %f\n",x2);}
system("pause");
}

FASE II
Algoritmo

algoritmo "Equação do 2º Grau"
// Função : Obter as raízes de uma equação do segundo grau, caso existam.
// Autor : P-SAME
// Data : 1/4/2009
var
delta,a,b,c,x1,x2:real
inicio
escreval("Equação do Segundo Grau")
escreval("ax²+bx+c=0")
escreval
escreva("digite a: ")
leia(a)
escreva("digite b: ")
leia(b)
escreva("digite c: ")
leia(c)
se(a=0)entao
escreva("Não é equação do 2º Grau")
senão
delta<-((b*b)-4*a*c)
se(delta<0)entao
escreva("Não existem raízes reais")
senao
se(delta=0) entao
escreval("Raiz Única")
x1<- ((-b)/(2*a))
escreva("x1=x2=",x1)
senao
escreval("Existem duas raízes reais")
x1<- (-b +raizq(delta))/(2*a)
x2<-(-b -raizq(delta))/(2*a)
escreval("x1=",x1)
escreval("x2=",x2)
fimse
fimse
fimse
fimalgoritmo

Programa em C

#include
main()
{
float a,b,c,x1,x2,delta;
printf(" Equacao do SEGUNDO Grau\n");
printf(" a(x*x)+bx+c=0\n");
printf("Digite'a'=");
scanf("%f",&a);
printf("Digite'b'=");
scanf("%f",&b);
printf("Digite'c'=");
scanf("%f",&c);
if(a==0)
{printf("Nao eh equacao do SEGUNDO grau\n"); }
else
{
delta=((b*b)-4*a*c);
if(delta<0)
{ printf("Nao existem raizes reais\n");}
else
{
if(delta==0)
{ x1=(-b/(2*a));
printf("Raiz Unica");
printf("\nx1=x2=%f\n",x1); }
else
{
x1=(-b+sqrt(delta))/(2*a);
x2=(-b-sqrt(delta))/(2*a);
printf("\nx1= %f",x1);
printf("\nx2= %f\n",x2);}
}
}
system("pause");
}

Visual G

algoritmo "Equação do 2° Grau"
// Função : Obter as raízes de uma equação do segundo grau.
// Autor : P-SAME
// Data : 1/4/2009
// Série de Declarações:
var
delta,a,b,c,x1,x2,n:real
inicio
// Série de Comandos:
escreval("Equação do Segundo Grau")
escreval(" axｲ+bx+c=0")
escreval
escreva("digite a: ")
leia(a)
escreva("digite b: ")
leia(b)
escreva("digite c: ")
leia(c)
se(a=0)entao
escreva("Não é equação do 2° Grau")
senao
delta<-((b*b)-4*a*c)
se(delta<0)entao
escreva("Não existem raizes reais")
senao
se(delta=0) entao
escreval("Raíz Única")
x1<- ((-b)/(2*a))
escreva("x1=x2=",x1)
senao
escreval("Existem duas raizes reais")
x1<- (-b +raizq(delta))/(2*a)
x2<-(-b -raizq(delta))/(2*a)
escreval("x1=",x1)
escreval("x2=",x2)
fimse
fimse
fimse
fimalgoritmo

FASE III
Programa em C

#include
main()
{
float a,b,c,x1,x2,delta,n;

do{
printf(" Equacao do SEGUNDO Grau\n");
printf(" a(x*x)+bx+c=0\n");
printf("Digite'a'=");
scanf("%f",&a);
printf("Digite'b'=");
scanf("%f",&b);
printf("Digite'c'=");
scanf("%f",&c);

if(a==0)
{
printf("\nNao eh equacao do SEGUNDO Grau");
}
else
{
delta=((b*b)-4*a*c);
if(delta<0)
{
printf("\nNao existem raizes reais");
}
else
{
if(delta==0)
{x1=(-b/(2*a));
printf("\n\nRaiz Unica\n");
printf("x1=x2:%f",x1);}
else
{ x1=(-b+sqrt(delta))/(2*a);
x2=(-b-sqrt(delta))/(2*a);
printf("Duas raizes reais");
printf("\nx1:%f\nx2:%f",x1,x2);
}
}
}
printf("\n\nQuer Repetir...\n\nDigite 1 se a resposta for SIM\n\nDigite qualquer valor se a resposta for NAO");
printf("\nEscolha:\n");

scanf("%f",&n);}
while(n==1);
system("pause");}


Visual G

algoritmo "Equação do 2° Grau"
// Função : Obter as raizes de uma equação do segundo grau. // Autor : P-SAME
// Data : 1/4/2009
// Série de Declarações:
var
delta,a,b,c,x1,x2,n:real
inicio
// Série de Comandos:
escreval(" Equação do Segundo Grau")
escreval(" ax²+bx+c=0")
escreval
repita
escreva("digite a: ")
leia(a)
escreva("digite b: ")
leia(b)
escreva("digite c: ")
leia(c)
se(a=0)entao
escreva("Não é equação do 2° Grau")
senão
delta<-((b*b)-4*a*c)
se(delta<0)entao
escreva("Não existem raizes reais")
senao
se(delta=0) entao
escreval("Raíz Única")
x1<- ((-b)/(2*a))
escreva("x1=x2=",x1)
senao
escreval("Existem duas raizes reais")
x1<- (-b +raizq(delta))/(2*a)
x2<-(-b -raizq(delta))/(2*a)
escreval("x1=",x1)
escreval("x2=",x2)
fimse
fimse
fimse
escreval
escreval("Quer Continuar?")
escreval("1- SIM")
escreval("Quarquer outro número- NAO")
leia(n)
ate (n<>1)
fimrepita
fimalgoritmo