Pascal – o básico! – Parte 17

22, fevereiro 2007 at 4:52 pm 3 comentários

Exercício 17) vamos entrar com valor x e y. Calcular e exibir x elevado a y.

==========código fonte==========

Program Ex17;

Uses
Crt;
Var
x,y,xElevadoAY : Real;
Begin
ClrScr;
Write(‘Digite o valor de x:’);
ReadLn(x);
Write(‘Digite o valor de y:’);
ReadLn(y);
xElevadoAY:=Exp(y*Ln(x));
WriteLn(‘Resultado da exponenciacao:’,xElevadoAY:4:1);
ReadKey;
End.

==========código fonte==========

Visite o Blog ChaVerde de André Burgos:
Blog Cha Verde

Anúncios

Entry filed under: CEFET, Estudos, Pascal, Software, Tecnologia.

Pascal – o básico! – Parte 16 Pascal – o básico! – Parte 18

3 Comentários Add your own

  • 1. Henrique  |  27, fevereiro 2008 às 6:36 am

    velho e se o valor de x for negativo…
    eu só vejo erro.
    se o numero da base é positivo
    da certo
    mas se é negativo
    da errado

    Responder
  • 2. Victor de Souza Couto  |  27, fevereiro 2008 às 2:43 pm

    Eita Henrique,

    vou dar uma olhada no que pode faltar nesse código. O que podemos fazer para adaptar e funcionar o cálculo com o número da base negativa.

    Até breve.

    Responder
  • 3. Henrique  |  27, fevereiro 2008 às 3:17 pm

    calculei parte da equação por parte da equação e cheguei à esse programinha

    program teste;
    uses crt;
    var a,b,c,x,l,n,r,x1,x2,x1result,x2result: real;
    begin
    clrscr;
    writeln(‘Acharemos primeiramente o Delta’);
    writeln(‘digite o valor de “a”‘);
    readln(a);
    writeln(‘digite o valor de “b”‘);
    readln(b);
    writeln(‘digite o valor de “c”‘);
    readln(c);
    x:= (b)*(b); (*Nessa linha fiz isso só por que eu sabia q b² é o mesmo q (b)*(b)*)

    l:= -4*(a);
    n:= l*c;
    r:= x+n;

    writeln(‘O valor de Delta ‚…: ‘,r:0:0);
    writeln;
    writeln(‘Aqui estão os valores de X1 e X2’);
    writeln;
    x1:=-(b)+(sqrt(r));
    x1result:= x1/(2*(a));
    x2:=-(b)-sqrt(r);
    x2result:= x2/(2*(a));
    writeln(‘O X1 ‚…: ‘,x1result:0:0,’ …. e o X2 equivale .: ‘,x2result:0:0);

    writeln(‘ By Henrique’);

    readln;
    end.

    Responder

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Trackback this post  |  Subscribe to the comments via RSS Feed


Agenda

fevereiro 2007
S T Q Q S S D
« jan   mar »
 1234
567891011
12131415161718
19202122232425
262728  

Most Recent Posts


%d blogueiros gostam disto: