procedure pascal

girl_tecnology
(usa Gentoo)

Enviado em 10/05/2008 - 18:45h

mas uma vez oi para tods.
preciso de uma maozinha.
quero fazer um programa em pascal para calcular a equacao quadratica que tenha um procedure para introduzir as variaveis, um function para calcular o delta e prcocedure para calcular as raizes so que, qdo eu introduzo os valores de a,b e c nao calcula o delta volta para o progrma innicial pk??? aqui esta o programa:

Program eq_quadrtatica;

Procedure dado;
Begin
Clrscr;
Writeln(‘digite o valor de a’);
Readln(a);
Writeln(‘digite o valor de b’);
Readln(b);
Writeln(‘digite o valor de c’);
Readln(c);
End;

Function delta:real;
Begin
Delta;=(b*b-(4*a*c);
End;

Procedure raiz;
Begin
X1:=(-b-4*a*sqrt(delta))/(2*a);
X2:=(-b+4*a*sqrt(delta))/(2*a);
End;

Begin
Dado;
Raiz;
Write(‘x1=’,x1);
Write(x2=’,x2);
End.

da uma ajudihna gente tenho teste na segunda.
obrigado antecipadamente para quem rspndr.