Pascal – o básico! – Parte 16

22, fevereiro 2007 at 4:49 pm 6 comentários

Agora lembrando minhas antigas aulas de desenho geométrico e matemática, vamos calcular em radianos o valor do seno, cosseno, tangente e secante de um ângulo x. Ângulo x será digitado em graus pelo usuário. Não é necessário nenhuma transformação para radianos no Pascal, as próprias funções matemáticas já fazem essa conversão.===========código fonte===========

Program Ex16;

Uses
Crt;
Var
seno,cosseno,tangente,secante,x : Real;

Begin
Write(‘Digite o valor do angulo em graus:’);
ReadLn(x);
seno:=sin(x);
cosseno:=cos(x);
tangente:=sin(x)/cos(x);
secante:=1/cos(x);
WriteLn(‘Seno do angulo ‘,x:4:0,’:’,seno:4:1);
WriteLn(‘Cosseno do angulo ‘,x:4:0,’:’,cosseno:4:1);
WriteLn(‘Tangente do angulo ‘,x:4:0,’:’,tangente:4:1);
WriteLn(‘Secante do angulo ‘,x:4:0,’:’,secante:4:1);
ReadKey;
End.===========código fonte===========
Leia também:
Blog Cha Verde

Anúncios

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

Pascal – o básico! – Parte 15 Pascal – o básico! – Parte 17

6 Comentários Add your own

  • 1. Vinicius Ruoso  |  27, abril 2007 às 6:09 pm

    Olá,
    Achei legal sua maneira de calcular usando as funcoes do pascal…
    Mas para aprender a linguagem pascal seria mais interesante insentivar as pessoas a calcular o sen e cos através das sequencias infinitas. Dessa maneira o programador é responsável por tudo e tem uma clareza maior do que está fazendo, ao invés de usar funcoes que ele nao tem a minima ideia de como funciona.


    Abraços

    Responder
  • 2. Victor de Souza Couto  |  27, abril 2007 às 7:36 pm

    Vinicius Ruoso,

    concordo plenamente que no instante de aprendizagem, é extremamente interessante resolver a equações com código próprio.

    Minha intenção também é demonstrar algumas curiosidades, algumas das muitas funções e procedures de cada biblioteca.

    Sei que é loucura mostrar todas as bibliotecas existentes, mas a critério de curiosidade, vale a pena.

    Vale lembrar também, que se algumas funções já foram escritas pela empresa que domina a linguagem, reprogramá-la pode ser desnecessário.
    Exemplo: fazer uma classe idêntica as classes básicas e já escritas do Java.

    Continue dando opiniões Vinicius, enriquece e muito o conteúdo desse humilde blog. 😉

    Até mais, e obrigado!

    Responder
  • 3. Ana Luiza  |  12, outubro 2007 às 6:27 pm

    Olá Victor!
    Tenho um grande problema pra resolver. Como eu calculo cosseno hiperbólico em linguagem Pascal?????
    Obrigada!

    Responder
  • 4. Finch  |  26, abril 2008 às 1:59 am

    Program tangente(input,output);

    var
    x : real;

    Const
    PI = 3.14159265358979;
    n = 10;

    Function sen(x : real):extended; {Retorna o seno ‘COM ALGUM PROBLEMA’}
    Var
    i : integer;
    a,b,soma,pot : extended;
    tmp : longint;

    Begin
    x:=x*PI/180;
    a:=x;
    soma:=x;
    pot:=x;
    for i:=1 to n do
    begin
    pot:=pot*x*x;
    tmp:=i+i;
    b:=pot/((tmp+3)*(tmp+2));
    a:=-a*b;
    soma:=soma+a
    end;
    sen:=soma;
    End; { sen }

    Function cos(x : real):extended; {Retorna o Cosseno}
    Var
    i : integer;
    a,b,soma,pot : extended;
    tmp : longint;

    Begin
    x:=x*PI/180;
    a:=1;
    soma:=1;
    pot:=1;
    for i:=1 to n do
    begin
    pot:=pot*x*x;
    tmp:=i+i;
    b:=pot/(tmp*tmp-tmp);
    a:=-a*b;
    soma:=soma+a
    end;
    cos:=soma;
    End; { cos }

    Function tg(x : real):extended; {Retorna a Tangente}
    Begin
    tg:=sen(x)/cos(x);
    End; { tg }

    Begin
    write(‘Escreva o angulo: ‘);
    readln(x);
    writeln();
    writeln(‘Seno: ‘,sen(x) : 1 : 3 );
    writeln(‘Cosseno: ‘,cos(x) : 1 : 3 );
    writeln(‘Tangente: ‘,tg(x) : 1 : 3 )
    End.

    Responder
  • 5. Evandson  |  17, março 2010 às 1:18 pm

    Brigadão…. quebrou meu galho 🙂

    eu que pensei que existia tg(variavel) 😡 ai ficava no “Não indentificado”

    🙂

    Responder
  • 6. Adriano  |  11, maio 2011 às 10:28 pm

    boa noite, voce consegue me ajudar? preciso desenvolver um algoritimo com o assunto ZEROS DA FUNÇAO, pelo metodo de newton e de bissecçao..

    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: