Progressões Aritméticas e Geométricas (PA e PG)
Publicado por Reginaldo de Matias 17/11/2006
[ Hits: 60.780 ]
Homepage: http://mundodacomputacaointegral.blogspot.com/
O presente programa apresenta a aplicação de Progressão Aritmética (PA) e Progressão Geométrica (PG) e efetua o e-nésimo termo e a soma dos termos do mesmo.
Mostra um menu de opções:
[1] PA
[2] PG
[3] Sair
Dados de entrada do usuário: primeiro termo, razão, n° de termos.
Dados de saída: o e-nésimo termo e a soma dos termos.
/******************************************************************************* Autor: Reginaldo de Matias E-mail: reginaldo.matias@gmail.com Programa: Progressão Aritmética - PA Progressão Geométrica - PG *******************************************************************************/ #include <stdio.h> #include <stdlib.h> #include <math.h> int main() { float a1,r,an,Sn,q; int op,n; do{ system("color 9A"); printf("[1]Progressao Aritmetica - PA\n"); printf("[2]Progressoa Geometrica - PG\n"); printf("[3]Sair\nEscolha sua opcao: "); scanf("%i",&op); switch(op) { case 1: printf("\tProgressao Aritmetica - PA\n"); printf("\nEntre com o valor do primeiro termo: "); scanf("%f",&a1); printf("\nEntre com o valor da razao: "); do{ scanf("%f",&r); }while(r==0); printf("\nNumero de termos: "); do{ scanf("%i",&n); }while(n<=0); an = (a1 + (n - 1) * r); Sn = (a1 + an)/2; printf("\n\nE-nesimo termo da P.A. - an: %f\n\n",an); printf("A Soma do termos da P.A. - Sn: %f\n\n",Sn); break; case 2: printf("\tProgressao Geometrica - PG\n"); printf("\nEntre com o valor do primeiro termo: "); scanf("%f",&a1); printf("\nEntre com o valor da razao: "); do{ scanf("%f",&q); }while(q==0); printf("\nNumero de termos: "); do{ scanf("%i",&n); }while(n<=0); an = (a1 * pow(q,n-1)); Sn = ((a1*(pow(q,n) - 1))/(q-1)); printf("\nE-nesimo termo da P.G. - an: %f\n\n",an); printf("A Soma do termos da P.G. finita - Sn: %f\n\n",Sn); break; } }while(op != 3); system("Pause"); }
Nenhum comentário foi encontrado.
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Como colorir os logs do terminal com ccze
Instalação Microsoft Edge no Linux Mint 22
Como configurar posicionamento e movimento de janelas no Lubuntu (Openbox) com atalhos de teclado
Novo problema! Erro durante a atualização! (7)
Linux Mint não conecta Wi-Fi sem fio (1)
Tenho um problama de quebra de pacote e não descobri como resolver [RE... (2)
driver do repositorio debian nao atende o requisito minimo (7)