ESTUDIANTES

 

PROGRAMAS DE CALCULOS

 ESTE FORMULARIO CONTIENE:

CUATRO LABEL

TRES EDIT

UN BUTTON

var

  Form1: TForm1;

SUBTOTAL:REAL;

TOTAL:REAL;

DESCUENTO:REAL;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

SUBTOTAL:=STRTOFLOAT(EDIT1.TEXT);

if SUBTOTAL >=5000 THEN

BEGIN

descuento:=(SUBTOTAL*0.30);

edit2.Text:=floattostr(descuento);

TOTAL:=SUBTOTAL-descuento;

  EDIT3.TEXT:=FLOATTOSTR(TOTAL);

END

ELSE

IF SUBTOTAL >=3000 THEN

BEGIN

descuento:=(SUBTOTAL*0.20);

edit2.Text:=floattostr(descuento);

TOTAL:=SUBTOTAL-descuento;

  EDIT3.TEXT:=FLOATTOSTR(TOTAL);

END

ELSE

IF SUBTOTAL <=1000 THEN

BEGIN

edit2.Clear;

total:=subtotal;

EDIT3.TEXT:=FLOATTOSTR(TOTAL);

SHOWMESSAGE('No Hay Descuento');

   end;

END;

end.

 ESTE FORMULARIO CONTIENE:

CUATRO LABEL

DOS EDIT

UN BUTTON

SU CODIGO ES:

  

Var

  Form1: TForm1;

         año_nacimiento, año_actual, edad:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

año_nacimiento:=STRTOFLOAT(EDIT1.TEXT);

año_actual:=STRTOFLOAT(EDIT2.TEXT);

edad:=año_actual-año_nacimiento;

label4.Caption:=floattostr(edad);

end;

end.