i just recently started with pascal, and I have no idea what the compiler tries to tell me. Can anyone tell me whats wrong with these procedures?

``````Uses Crt;

var

(******************************************************************************************)

procedure GetData;

var
A : Real;
B : Real;
c : Real;

begin
Writeln ('Input value a');
Writeln ('Input value b');
Writeln ('Input value c');
Discriminant (a,b,c);
end;

(******************************************************************************************)

procedure Discriminant;

begin
If ((b*b-(a*a*a*a*c)) > 0)
then Writeln ('There are two different types of roots.');
If ((b*b-(a*a*a*a*c)) = 0)
then Writeln ('The two roots are equal.');
If ((b*b-(a*a*a*a*c)) < 0)
then Writeln ('There are no real roots.');
MaxMin (a,b,c);
end;

(******************************************************************************************)

procedure Vertex;

begin
Writeln ('The Vertex of the equation is ', AnswerC:1:2 ,'.');
end;

(******************************************************************************************)

procedure MaxMin;

begin
Then WriteLn ('It is the Maximium.');
else
WriteLn ('It is the Minimum.');
end;``````
2
Contributors
1
2
Views
8 Years
Discussion Span
Last Post by FlamingClaw

``````program sablon;
Uses Crt;
var
{***}
{FIXED HERE!NOW YOU CAN INITIALIZE THE THREE REAL NUMBERS}
procedure GetData(VAR A,B,C:REAL);
begin
Writeln('Input value a');
Writeln('Input value b');
Writeln('Input value c');
end;
{***}
{FIXED WITH FORMAL PARAMETERS,NOW IT CAN CALCULATE !}
procedure Discriminant(A,B,C:REAL);
begin
If ((b*b-(a*a*a*a*c)) > 0)
then Writeln ('There are two different types of roots.');
If ((b*b-(a*a*a*a*c)) = 0)
then Writeln ('The two roots are equal.');
If ((b*b-(a*a*a*a*c)) < 0)
then Writeln ('There are no real roots.');
end;
{***}
{FIXED!}
procedure Vertex(A,B,C:REAL);

begin
C := -b/(2*a);
Writeln ('The Vertex of the equation is ',C:1:2 ,'.');
end;
{***}
{FIXED!}
procedure MaxMin(C:REAL);
begin
If (C > 0)Then WriteLn('It is the Maximium.')
else writeLn ('It is the Minimum.');
end;

{AND HERE BEGINS THE MAIN PROGRAM}
begin
clrscr;
{CALL THE PROCEDURES ONE BY ONE}