Calculadora pascal

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (300 palavras )
  • Download(s) : 0
  • Publicado : 31 de março de 2013
Ler documento completo
Amostra do texto
Nome: Bruno Mauricio Oliveira da Silva Ra: 45943
program calculadora_Bruno;
var
x,y,fat,funcao,resultado,i : integer;
n1, n2, n3 : real;
begin
textcolor(red) ;
WRITELN('BEM VINDO A CALCULADORA PASCAL');
writeln;
writeln ('>1< - Adicionar ');
writeln ( '>2< - Subtrair ' );
writeln ( '>3< - Dividir >5< -Fatorial' );
writeln ( '>4< - Multiplicar >6< - Potenciação' );
WRITELN ('SELECIONE A FUNÇÃO!!');
readln(funcao);
writeln;
IF(FUNCAO<= 5 ) THEN
WRITELN('ENTRECOM O PRIMEIRO NUMERO!!') ;
IF(FUNCAO<= 5 ) THEN
READLN (x) ;
IF(FUNCAO<= 4 ) THEN
WRITELN ('ENTRE COM O SEGUNDO NUMERO !!') ;
IF(FUNCAO<=4 ) THEN
READLN(y);
IF(FUNCAO = 6 ) THEN
writeln ('Digite a base: ');
IF(FUNCAO = 6 ) THEN
readln ( n1 );

IF(FUNCAO= 6 ) THEN
writeln ('Digite a potência: ');
IF(FUNCAO = 6 )THEN
readln ( n2 );
if (funcao = 1) then
resultado := x+y;
if (funcao = 2) then
resultado := x-y ;
if (funcao = 3) then
resultado := x DIV y;
if (funcao = 4) thenresultado := x*y;
if (funcao = 5) then
fat:=1;
for i:=1 to x do fat:=fat*i;
writeln ('Seu resultado é:');
IF(FUNCAO<= 4 ) THEN
WRITELN(RESULTADO);
IF(FUNCAO= 5 ) THENwriteln(fat);
if (funcao = 6) then
if n1 = 0 then
begin
if n2 <= 0 then
write (n1:0:5, ' elevado a ', n2:0:5, ' resulta em uma operação ilegal!')
else
begin
n3 := 0;write (n1:0:5, ' elevado a ', n2:0:5, ' = ', n3:0:5);
end;
end
else if n1 > 0 then
write (n1:0:5, ' elevado a ', n2:0:5, ' = ', exp(n2*ln(n1)):0:5)
//
else // Quando a basefor negativa
begin
n1 := n1*-1;
n3 := exp(n2*ln(n1));
if n2 < 0 then
n3 := n3*-1;
n1 := n1*-1;
write (n1:0:5, ' elevado a ', n2:0:5, ' = ', n3:0:5) ;
end;
end.
tracking img