Examen De Programaciom

SOLUCIÓN  PROGRAMA NUMERO 1
(Área del Triangulo)
Comienzo preparando los controles que necesito en una ficha nueva como puedes ver en la imagen.

Objetos utilizados: Los textos que ves como Base, Altura, Área y el titulo principal; son controles Tlabel . Los cuadros para la base y altura son TEdit; y el boton es un control TButton; todos ellos de la paleta standard. Observa los nombres que leshe puesto, en realidad solo es necesario dar nombre a los controles que vamos a nombrar por nuestra cuenta, aunque siempre podemos utilizar el nombre por defecto que les dá el Delphi, pero es más feo.
Simplemente luego en el evento On_Clic del boton Calcular coloco el siguiente codigo que puedes ver en el listado completo del programa. Hacerte observar que yo simplemente he escrito 'a dedo' elcodigo del  evento On_Clic del boton Calcular; el resto lo ha construido el Delphi mientras que yo he ido arrastrando objetos a la ficha:
unit area;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Base: TLabel;
Altura: TLabel;
Area: TLabel;
nbase: TEdit;
nalt: TEdit;
Calcular: TButton;
procedureCalcularClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CalcularClick(Sender: TObject);
var
base,altura,area2:word;
begin
base:=strtoint(nbase.text);
altura:=strtoint(nalt.text);
area2:=base*altura div 2;
area.caption:='Area='+inttostr(area2);

end;

end.
Por ultimo comentarte dos ordenes quepueden llamarte la atención:
strtoint   
Que convierte un texto en número entero. Es necesario para operar con él ya que los   TEdit reciben valor alfanumerico.
inttostr   
Que convierte un  número entero a texto. Necesario para albergar el numero de la     solución a la etiqueta area.
El delphi dispone de otras ordenes de este tipo para convertir datos.
Y este es el programa ejecutando:SOLUCIÓN  PROGRAMA NUMERO 11
(Juego del numero secreto)
Comienzo preparando los controles que necesito en un ficha nueva como puedes ver en la imagen.

Objetos utilizados: El texto del NUMERO SECRETO y de OPORTUNIDAD y NUMERO son controles  Tlabel . El  cuadro a la derecha de ellos controles TEdit. Los botones OK, son controles  TBitBtn de la paleta Adicional. El rectangulo verde que rodea acada boton es un control Tpanel, que funciona como contenedor de objetos.
Como siempre los programas los hacemos entre dos;   yo escrito 'a dedo' el codigo del  evento On_Clic de los botones; y el resto lo ha construido el Delphi mientras que yo he ido arrastrando objetos a la ficha:

unit juego;

interface

uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
stdctrls,extctrls, buttons;

type
tform1 = class(tform)
tsecreto: tlabel; //"name" de la etiqueta "numero secreto"
secreto: tedit; //"name" del entryfield de la etiqueta "numero secreto"
opor: tlabel; //"name" de la etiqueta "oportunidad"
oporn: tedit; //"name" del entryfield de la etiqueta "oportunidad"
numero: tlabel; //"name" de la etiqueta "numero"
num: tedit; //"name" del entryfield de la etiqueta"numero"
shape1: tshape;
ok1: tbitbtn;
shape2: tshape;
ok2: tbitbtn;
procedure ok1click(sender: tobject);
procedure ok2click(sender: tobject);
private
{ private declarations }
public
{ public declarations }
end;

var
form1: tform1;
secre,op,n:integer;

implementation

{$r *.dfm}

procedure tform1.ok1click(sender: tobject);
begin
opor.visible:=true;
oporn.visible:=true;
numero.visible:=true;num.visible:=true;
tsecreto.visible:=false;
secreto.visible:=false;
ok1.visible:=false;
ok2.visible:=true;
secre:=strtoint(secreto.text);
op:=1;
//pongo la variable "op" definida, en la entrada "opor"
oporn.text:=inttostr(op);
num.setfocus;

end;

procedure tform1.ok2click(sender: tobject);
begin
n:=strtoint(num.text); //cojo el valor del número
if n>secre then
showmessage('tu número es mayor')
else
if...