PASCALZIM FUNCTION

// Autor: Leonardo de Araujo Silva
// Curso: Redes de Computadores
// Disciplina: Introdu��o a programa��o
// Professor: Jos� Renato
// Turma: 331
// Fun��o: Calcular a equa��o do Segundo grau utilizando procedimento.
// Data : 11/05/2015

Program ASP_IntrodProgram ; var a, b, c : integer ; delt, r1, r2 : real ; Function delta (a,b,c:integer):real; begin delta := sqr(b) - 4*a*c ; end; Begin writeln('Equacao do segundo grau'); writeln; write('Digite o valor de a : '); //Pede o valor de a read( a ); write('Digite o valor de b : '); //Pede o valor de b read( b ); write('Digite o valor de c : '); //Pede o valor de c read( c );

delt:= delta(a,b,c); //Chama a fun��o que calcular� o Delta writeln('O valor de delta e : ', delt:0:2 ); delay(1000); //D� uma espera de um segundo antes da pr�xima mensagem aparecer na tela if( delt < 0 ) then Begin writeln('Delta e menor que zero, nao tem raizes reais.'); End;

if( delt = 0 ) then //Verifica se s� tem uma raiz. Se Delta for igual a zero o programa Begin //calcula o valor da �nica raiz existente. writeln('Delta e igual a zero, so tem uma raiz real, x1') ; r1 := -b / (2*a) ; writeln('O valor de x1 e ', r1:0:1 ); End ; if( delt > 0 ) then //Verifica se tem duas ra�zes. Se delta for maior que zero o programa Begin //calcula as