(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.