0

Códigos para programar uma calculadora em DELPHI

(CALCULADORA)

(colocar o Math em uses)

Botão LIMPAR

begin; edit1.Clear; end;

Botão SAIR

Begin close; end;

Botão Logx

Var x,y:real; begin x:=strtofloat(edit1.Text);

y:=log10(x); edit1.Text:=floattostr(y); end;

Botão Sen(x)

Var x,y,z:real; begin

x:=strtofloat (edit1.text); z:=degtorad (x);

y:=sin (z); edit1.text:=floattostr(y); end;

Botão Tangente (x)

Var x,y,z:real; begin x:=strtofloat(edit1.Text);

z:=degtorad(x); y:=tan(z);

edit1.Text:=floattostr(y); end;

Botão (x)

Var x,y:real; begin x:=strtofloat(edit1.Text);

y:=trunc(x); edit1.Text:=floattostr(y);end;

Botão raiz cúbica de x

Var x,y:real; begin x:=strtofloat(edit1.Text);

y:=power(x,1/3);edit1.Text:=floattostr(y); end;

Botão raiz quinta de x

Var  x,y:real; begin x:=strtofloat(edit1.Text);

y:=power(x,1/5); edit1.Text:=floattostr(y); end;

Botão raiz sétima de x

Var x,y:real; begin x:=strtofloat(edit1.Text);

y:=power(x,1/7); edit1.Text:=floattostr(y); end;

Botão somatória

Var x,y:real; begin x:=strtofloat(edit1.Text);

y:=(intpower(x,6)+power(x,1/7)+(2*x))/(x-5);

edit1.Text:=floattostr(y); end; end.

Botão Módulo de x |x|

Var x,y:real; begin x:=strtofloat (edit1.text);

y:=abs(y); edit1.text:=floattostr(y); end;

BOTÃO ENCERRAR

procedure TForm1.Button2Click(Sender: TObject);

Begin close; end; end.

Botão Lnx

Var x,y:real; begin x:=strtofloat (edit1.text); y:=ln(y);

edit1.text:=floattostr(y); end;

Botão Raiz de x

Var x,y:real; begin

x:=strtofloat (edit1.text); y:=sqrt(x);

edit1.text:=floattostr(y); end;

Botão e x

Var x,y:real; begin x:=strtofloat (edit1.text);

y:=exp(x); edit1.text:=floattostr(y); end;

Botão Pi

Begin edit1.Text:=floattostr (Pi); end;

(ARRAY)

Botão Iniciar

procedure TForm1.Button1Click(Sender: TObject);

VAR

SOMA,PREMED:REAL;

I,QUANT:INTEGER;

S:STRING;

PREC:ARRAY [1..10]OF REAL;

//ARRAY SIGNIFICA VETOR OU MATRIZ

// NESTE CASO A MATRIZ É DE 1 A 10

// PREC: SIGNIFICA O PREÇO DE CADA LOJA

begin

SOMA:=0;

FOR I:= 1 TO 10 DO // FOR SIGNIFICA O LAÇO

// I É A QUANTIDADE DE VEZEZ QUE O LAÇO VAI PASSAR

// NESTE CASO SÃO 10 VEZEZ

BEGIN

S:=INPUTBOX (‘ENTRADA’,’ENTRE PREÇO DA LOJA’+INTTOSTR(I),’0′);

// TUDO QUE VOÇÊ COLOCAR ENTRE ASPAS

VAI APARECER COMO MENSAGEM

// OU SHOWMESSAGE (‘_______’)

PREC[I]:=STRTOFLOAT(S);

//STRTOFLAT TRANSFORMA UM CARACTER OU CÓDIGO PARA NÚMERO

SOMA:=SOMA+PREC[I];

end;

PREMED:=SOMA/10;

// PREMED É A MÉDIA DA SOMA DOS PREÇOS

QUANT:=0;

FOR I:= 1 TO 10 DO

IF PREC[I]>PREMED THEN QUANT:=QUANT+1;

EDIT1.TEXT:=INTTOSTR(QUANT);

END;

end.

Kabertollucci

Deixe uma resposta

O seu endereço de email não será publicado