Diabetes
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...
Regístrate para leer el documento completo.