PASCALZIM - CÓDIGO DE PROGRAMA (RAÍZES DA EQ. DO SEGUNDO GRAU)

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Program equacoes ;
Var a,b,c,dt,x1,x2: Real;
Begin
	Writeln('Digite o valor de a');
	Read(a);
	Writeln('Digite o valor de b');
	Read(b);
	Writeln('Digite o valor de c');
	Read(c);
	
	dt := Sqr(b) - 4*a*c;
	
	If(a <> 0)Then
	Begin	
			Writeln('É uma equação do segundo grau, e delta é: ',dt);
			If(dt>0)Then
			Begin			
				x1 := (-2*c)/(b+Sqrt(dt)); 
			 x2 := (-2*c)/(b-Sqrt(dt));
			 Writeln('Suas raíze são: ',x1,' e ',x2);
			End
			Else
			
			If(dt=0)Then
			Begin
				x1 := (-2*c)/b;
				Writeln('Delta é igual a zero, portando admite duas raízes reais e iguais: ',x1);
			End
			Else
			
			If(dt<0)Then
			Begin
				Writeln('Não admite raízes reais, pois delta é menor que zero');
			End;
	End
	Else
	
	If(b<>0)Then
	Begin
		Writeln('É uma equação do primeiro grau');
		x1 := -c/b;
		Writeln('Sua raiz é: ', x1);
	End
	Else
	
	If(c<>0)Then
	Begin
		Writeln('Admite apenas um termo independente, que é: ',c);
	End;	
	
	Readkey;
 
End.