Ejercicios resueltos en Lazarus

Comparto las prácticas de Lenguaje y Programación I del T.S.U. en Informática en el uso del IDE Lazarus - Free Pascal




1. Realiza un programa que calcule la edad de una persona de acuerdo a la fecha de nacimiento.

Diseño:

Código en pascal:

unit codedad;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TfrmEdad }

  TfrmEdad = class(TForm)
    btnCalcular: TButton;
    btnLimpiar: TButton;
    btnSalir: TButton;
    lblResultado: TLabel;
    txtMes: TEdit;
    txtAno: TEdit;
    txtDia: TEdit;
    lblDia: TLabel;
    lblMes: TLabel;
    lblAno: TLabel;
    lblTitulo: TLabel;
    procedure btnCalcularClick(Sender: TObject);
    procedure btnLimpiarClick(Sender: TObject);
    procedure btnSalirClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  frmEdad: TfrmEdad;

implementation

{ TfrmEdad }

procedure TfrmEdad.btnSalirClick(Sender: TObject);
begin
  close;
end;

procedure TfrmEdad.btnLimpiarClick(Sender: TObject);
begin
  txtDia.Clear;
  txtMes.Clear;
  txtAno.Clear;
  txtDia.SetFocus;
end;

procedure TfrmEdad.btnCalcularClick(Sender: TObject);
var
   dia,mes,ano,actual:integer;        //Declaramos las variables
begin
   dia:=strtoint(txtDia.Text);   //strtoint cambia lo que esta en texto a numero entero
   mes:=strtoint(txtMes.Text);
   ano:=strtoint(txtAno.Text);
 
   if(mes<5) then
   begin
      actual:=2015-ano;
   end
   else
   begin
     actual:=2015-ano-1;
   end;
 
   lblResultado.Caption:='Tu edad es '+ inttostr(actual) ;
end;

initialization
  {$I codedad.lrs}

end.

En ejecución: