Jump to content

Search the Community

Showing results for tags 'serie'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Desenvolvimento e Banco de Dados
    • HTML e CSS
    • Java
    • Javascript
    • .NET
    • PHP
    • Python
    • Ruby
    • Mobile
    • Ambientes de Desenvolvimento
    • Arquitetura e Métodos Ágeis
    • Banco de Dados
    • DevOps
    • Desenvolvimento de Games
    • E-Commerce e Pagamentos Online
    • SEO e Otimizações
    • WordPress
    • Algoritmos & Outras Tecnologias
  • Design e Produto
    • Fotografia
    • Photoshop
    • Design de interfaces e UX
    • Edição/Produção de Vídeos
    • Marketing Online
    • Desenho, Ilustração e 3D
  • Entretenimento e uso pessoal
    • Geral
    • Segurança & Malwares
    • Gadgets e wearable
    • Softwares e Apps
    • Entretenimento

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 1 result

  1. Boa noite/dia gente. Preciso de ajuda aqui. Tenho um exercício no qual tenho de fazer um programa em pascal com o seguinte enunciado: Considere a soma S dos termo da série infinita apresentada abaixo: Fazer um programa em Free Pascal que calcule o valor aproximado da soma S dos termos da série até o momento em que a diferença das normas (módulo) de 2 termos consecutivos for menor que 0,000001 ({i.e.}, norma da diferença das normas de dois termos consecutivos). Segue meu algoritmos/programa: program calcserie; var soma, a1, a2, an : real; sinal : longint; cont, n, fat : integer; begin n := 0; a1 := 1; a2 := 0; soma := 0; cont := 1; fat := 1; an := 1; sinal := 1; while (an) > 0.000001 do begin n := n + 2; while cont <= n do begin fat := fat * cont; cont := cont + 1; end; soma := (soma + (a1 * sinal)); sinal := sinal * -1; a2 := a1; a1 := ((1/fat)); if (a2 < 0) then an := (a2 * -1) - a1 else if (a1 < 0) then an := (a2) - (a1 * -1); end; write (soma:0:15); end. Meu erro está sendo a partir da 3 casa decimal
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.