El codigo es este:
Cita:
Ok, el programa, se encarga de, calcular la superficie de un triangulo y de un circulo, segun los datos que se le den, y dice cual de las dos superficies es la mayor.PROGRAM Sup_Triangulos_Circulos_Ordenados;
VAR a,b,c,f:string;
var triangulo,circulo:integer;
BEGIN
WRITELN('Este programa sirve para calcular cual de las superficies es mayor entre un triangulo y un circulo:');
WRITELN (' ');
WRITE ('Introduzca Base del Triangulo: '); READLN (a);
WRITELN (' ');
WRITE ('Introduzca Altura del Triangulo: '); READLN (b);
WRITELN (' ');
WRITE ('Introduzca Radio del Circulo: '); READLN (c);
WRITELN (' ');
triangulo:= a*b div 2;
circulo:= (c*c)*3.14;
if triangulo>circulo then
begin
writeln ('La Superficie del Triangulo es mas Grande.');
end
else if circulo>triangulo then
begin
writeln ('La Superficie del Circulo es mas Grande.');
end;
read (f);
END.
VAR a,b,c,f:string;
var triangulo,circulo:integer;
BEGIN
WRITELN('Este programa sirve para calcular cual de las superficies es mayor entre un triangulo y un circulo:');
WRITELN (' ');
WRITE ('Introduzca Base del Triangulo: '); READLN (a);
WRITELN (' ');
WRITE ('Introduzca Altura del Triangulo: '); READLN (b);
WRITELN (' ');
WRITE ('Introduzca Radio del Circulo: '); READLN (c);
WRITELN (' ');
triangulo:= a*b div 2;
circulo:= (c*c)*3.14;
if triangulo>circulo then
begin
writeln ('La Superficie del Triangulo es mas Grande.');
end
else if circulo>triangulo then
begin
writeln ('La Superficie del Circulo es mas Grande.');
end;
read (f);
END.
cuando lo quiero compilar, me aparece un error en cada una de las lineas que pinte en rojo, en el quote que hice..
El error dice: "Operator is not overloaded".
Alguien me podria ayudar??, porque sinceramente, no encuentro el error

un abrazo, espero su respuesta
