Diabetes

Páginas: 3 (524 palabras) Publicado: 15 de abril de 2012
Universidad Nacional Autónoma de México

Colegio de Ciencias y Humanidades
Plantel Oriente


Cibernética y Computación II

Unidad I

Sosa Delgado Aldo Caleb

Rafael Ramírez GarcíaMartes 28 de Febrero









Proyecto. Te presento a Francia




















Componentes: Label (5) , Edit (1) , Button (6)
Sentencia:StrToint,Abs,Chr,Mod,Ord,Div,Canvas,LoadFromFile.
Estructuras. Repeat,CASE, IF.
Funciones: Si
Explicación: En este proyecto se presentara a Francia, un pais europeo con muchos lugares turisticos, en este proyecto mostraremosalgunos de esos lugares turisticos, ademas de utilizar un componente edit para que el usuario escriba un numero , y ese lo convierta a unidades,decenas,centes etc.unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;Button1: TButton;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Button6: TButton;
Label4: TLabel;
Label5: TLabel;

procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedureButton6Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

Functionunidades(n:integer):String;
Var

V,C:Integer;

s,cadena:string;
begin


c:=1;

cadena:='';

V:=Abs(N);

S:='';

form1.label3.caption:='';


repeat


S:=Chr( V mod 10 + Ord('0'));


V:=V div 10;

case c of

1:s:=s+ 'unidades(10^0)'+chr(10);
2:s:=s+ 'decenas(10^1)'+chr(10);
3:s:=s+ 'centenas(10^2)'+chr(10);
4:s:=s+ 'unidades de millar (10^3)'+chr(10);
5:s:=s+ 'decenas de...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Diabetes
  • Diabetes
  • Diabetes
  • Diabetes
  • Diabetes
  • Diabetes
  • diabetes
  • diabetes

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS