Elevamento a potenza

Materie:	Appunti
Categoria:	Informatica
Download:	42
Data:	06.11.2000
Numero di pagine:	1
Formato di file:	.txt (File di testo)

//---------------------------------------------------------------------------
#include
#pragma hdrstop

#include "Eleva.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void riporto(char t[], int *n)
{
int r,i;
r=0;
for (i=0;i0) t[++(*n)]=r;
}

void spaccamento(AnsiString s, char t[], int *n)
{
int l,i;
l=CharToByteLen(s,101);
for (i=1;i=0;i--)
{
t[i]+='0';
s=s+t[i];
}
return(s);
}

prodotto(char t1[], char t2[], char t3[],int n1, int n2, int *n3)
{
int i,j;
*n3=n1+n2;
for (i=0;iText;
c=elevanum(a,b);
Edit3->Text=c;
Button1->Enabled=False;
Button2->Enabled=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;
}
//---------------------------------------------------------------------------