Materie: | Appunti |
Categoria: | Informatica |
Voto: | 2.5 (2) |
Download: | 64 |
Data: | 06.11.2000 |
Numero di pagine: | 2 |
Formato di file: | .txt (File di testo) |
Download
Anteprima
differenza-numeri-alti_1.zip (Dimensione: 1 Kb)
trucheck.it_differenza-numeri-alti.txt 3.13 Kb
readme.txt 59 Bytes
Testo
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
const int max=99;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
maxint(int a, int b)
{
return((a>b)?a:b);
}
//---------------------------------------------------------------------------
char trasf(char c)
{
if (c!=8) if ((c'9')) c=0;
return(c);
}
AnsiString riempi (AnsiString s)
{
int l;
l=CharToByteLen(s,max+1);
for (;l=0);n--);
return(n);
}
void spaccamento(AnsiString s, char t[], int *n)
{
int l, i;
l=CharToByteLen(s,max+1);
for (i=1;i=0;i--)
{
t[i]+='0';
s=s+t[i];
}
return(s);
}
void differenza(char t1[], char t2[], char t3[], int n1, int n2, int *n3)
{
int i;
*n3=maxint(n1,n2);
for (i=n1+1;iEnabled=True;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Edit1->SetFocus();
Button1->Enabled=True;
Button2->Enabled=False;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
Key=trasf(Key);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2KeyPress(TObject *Sender, char &Key)
{
Key=trasf(Key);
}
//---------------------------------------------------------------------------