Ver dos decimales en delphi

Estoy desarrollando una interfaz con distintas notas, las cuales debo promediar
pero necesito que el resultado solo contenga dos decimales.
procedure TAlumnos.agregar_a( dni: integer; apellido,nombre:string; nota1,nota2,nota3:real);
begin
regis.DNI:=dni;
regis.nombre:=nombre;
regis.apellido:=apellido;
regis.Nota1:=nota1;
regis.Nota2:=nota2;
regis.Nota3:=nota3;
regis.promedio:=(nota1+nota2+nota3)/3;
if regis.promedio >=60 then
Gracias.

1 Respuesta

Respuesta
1
procedure TForm1.Button1Click(Sender: TObject);
var Valor: Real;
begin
  Valor := (9.2 + 7.4 + 8.5) / 3;
  label1.Caption := FloatToStrF(Valor, ffFixed, Length(FloatToStr(Valor)), 2);
end;
Si tienes alguna duda más sobre este tema, añádela, o bien cierra el tema.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas