• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Gempis

[Pascal] Fórmula Resolvente

3 mensagens neste tópico

Desde que cheguei ao fórum e vi a secção Pascal comecei logo a brincar, já não me lembrava de quase nada, por isso isto ainda são só programas mais simples...

Program formula_resolvente ;

Var
  a, b, c: real;
Begin

writeln('===========================================');
writeln('Fórmula Resolvente © BrunoAleixo aka Gempis');
writeln('===========================================');
writeln('');
writeln('Este programa permite-lhe calcular as soluções de uma equação de segundo grau com uma incógnita.');
writeln('');
writeln('A equação deverá estar na forma ax^2+bx+c=0');
readln;
ClrScr;
writeln('Introduza o a:');
readln(a);
writeln('Introduza o b');
writeln(''); 
readln(b);
writeln('');
writeln('Introduza o c');
readln(c);
ClrScr;
	If b*b-4*a*c < 0	
	Then
	writeln('Equação Impossível')

	Else
	writeln('As soluções são : ',(-b + sqrt(b*b-4*a*c))/2*a, ' e ',((-b - sqrt(b*b-4*a*c))/2*a),'.');

writeln('');	
writeln('Espero que o meu programa lhe tenha sido útil, se gostou partilhe!');
writeln('Fórmula Resolvente © BrunoAleixo aka Gempis');	
 readln; 	 

End.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora