SUMA DE DOS NUMERO
var
N1:REAL;
N2:REAL;
SUMA:REAL;
procedure
TForm4.BitBtn1Click(Sender: TObject);
begin
N1:=STRTOFLOAT(EDIT1.Text);
N2:=STRTOFLOAT(EDIT2.Text);
SUMA:=(N1+N2);
EDIT3.TEXT:=FLOATTOSTR(SUMA);
end;
procedure
TForm4.BitBtn2Click(Sender: TObject);
begin
FORM5.SHOW;
FORM4.Visible:=FALSE;
end;
CALIFICACIONES DE ESTUDIANTE Y QUE TIRE UN MENSANJE POR PANTALLA
var
C_1:REAL;
C_2:REAL;
C_3:REAL;
PR:REAL;
procedure
TForm5.BitBtn1Click(Sender: TObject);
begin
C_1:=STRTOFLOAT(EDIT1.Text);
C_2:=STRTOFLOAT(EDIT2.Text);
C_3:=STRTOFLOAT(EDIT3.Text);
PR:=(C_1+C_2+C_3)/3;
EDIT4.Text:=FLOATTOSTR(PR);
if PR>=95 then
BEGIN
SHOWMESSAGE('ESTUDIANTE EXELENTE');
END;
if(PR>=88)AND(PR<95)
then
BEGIN
SHOWMESSAGE('ESTUDIANTE MERITORIO');
END;
IF(PR>=80)AND(PR<88)THEN
BEGIN
SHOWMESSAGE('ESTUDIANTE BUENO');
END;
IF(PR>=70)AND(PR<80)THEN
BEGIN
SHOWMESSAGE('ESTUDIANTE REGULAR');
END;
if PR<70
then
BEGIN
SHOWMESSAGE('ESTUDIANTE MALO');
END;
end;
PROGRAMA DE LOS MESES DEL AÑO
var
N:INTEGER;
procedure
TForm8.BitBtn1Click(Sender: TObject);
begin
N:=STRTOINT(EDIT1.Text);
if N=1 then
BEGIN
EDIT2.Text:='ENERO';
END;
if N=2 then
BEGIN
EDIT2.Text:='FEBRERO';
END;
if N=3 then
BEGIN
EDIT2.Text:='MARZO';
END;
if N=4 then
BEGIN
EDIT2.Text:='ABRIL';
END;
if N=5 then
BEGIN
EDIT2.Text:='MAYO';
END;
if N=6 then
BEGIN
EDIT2.Text:='JUNIO';
END;
if N=7 then
BEGIN
EDIT2.Text:='JULIO';
END;
if N=8 then
BEGIN
EDIT2.Text:='AGOSTO';
END;
if N=9 then
BEGIN
EDIT2.Text:='SEPTIEMBRE';
END;
if N=10
then
BEGIN
EDIT2.Text:='OCTUBRE';
END;
if N=11
then
BEGIN
EDIT2.Text:='NOVIEMBRE';
END;
if N=12
then
BEGIN
EDIT2.Text:='DICIEMBRE';
END;
if N<1
then
BEGIN
EDIT2.Text:=('ES INCORRECTO');
SHOWMESSAGE('EL NUMERO ES
INCORRECTO');
END;
if N>12
then
BEGIN
EDIT2.Text:=('ES INCORRECTO');
SHOWMESSAGE('EL NUMERO ES
INCORRECTO');
END;
PROGRAMA DE LOS MESES DEL AÑO Y TIRA UN MENSAJE
Var
N:INTEGER;
procedure
TForm9.BitBtn1Click(Sender: TObject);
begin
N:=STRTOINT(EDIT1.TEXT);
if N=1 then
BEGIN
EDIT2.Text:=('ENERO');
SHOWMESSAGE('MES DE DUARTE');
END;
if N=2 then
BEGIN
EDIT2.Text:=('FEBERERO');
SHOWMESSAGE('MES DE LA PATRIA');
END;
if N=3 then
BEGIN
EDIT2.Text:=('MARZO');
SHOWMESSAGE('MES DE LA PRIMAVERA');
END;
if N=4 then
BEGIN
EDIT2.Text:=('ABRIL');
SHOWMESSAGE('MES DEL LIBRO');
END;
if N=5 then
BEGIN
EDIT2.Text:=('MAYO');
SHOWMESSAGE(' MES DE LAS MADRES');
END;
if N=6 then
BEGIN
EDIT2.Text:=('JUNIO');
SHOWMESSAGE('MES DEL VERANO Y CUMPLEAÑO DE MI HIJA AMMY');
END;
if N=7 then
BEGIN
EDIT2.Text:=('JULIO');
SHOWMESSAGE('MES DEL PADRE');
END;
if N=8 then
BEGIN
EDIT2.Text:=('AGOSTO');
SHOWMESSAGE('MES DE REINICIO DE
CLASES');
END;
if N=9 then
BEGIN
EDIT2.Text:=('SEPTIEMBRE');
SHOWMESSAGE(' CUMPLEAÑO DE MI HIJO ENMANUEL');
END;
if N=10 then
BEGIN
EDIT2.Text:=('OCTUBRE');
SHOWMESSAGE('MES DE LA RAZA');
END;
if N=11 then
BEGIN
EDIT2.Text:=('NOVIEMBRE');
SHOWMESSAGE('MES DE LA FAMILIA Y MI CUMPLEAÑO');
END;
if N=12 then
BEGIN
EDIT2.Text:=('DICIEMBRE');
SHOWMESSAGE('MES DE LA NAVIDAD');
END;
end;
PROGRAMA DEL TRIANGULO
var
BASE:REAL;
ALTURA:REAL;
AREA:REAL;
procedure
TForm6.BitBtn1Click(Sender: TObject);
begin
BASE:=STRTOFLOAT(EDIT1.Text);
ALTURA:=STRTOFLOAT(EDIT2.Text);
AREA:=(BASE*ALTURA)/2;
EDIT3.Text:=FLOATTOSTR(AREA);
end;
REPRODUCTOR DE MUSICA Y VIDEOS
CODIFICANDO
procedure TForm34.BitBtn1Click(Sender: TObject);
begin
IF OPENDIALOG1.EXECUTE THEN
BEGIN
MEDIAPLAYER1.FILENAME:= OPENDIALOG1.FILENAME;
MEDIAPLAYER1.OPEN;
END;
end;
procedure TForm34.BitBtn2Click(Sender: TObject);
begin
MEDIAPLAYER1.FILENAME:= OPENDIALOG1.FILENAME;
MEDIAPLAYER1.CLOSE;
end;
end.
