Progressões Aritméticas e Geométricas (PA e PG)
Publicado por Reginaldo de Matias 17/11/2006
[ Hits: 61.123 ]
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");
}
programa que mostra o uso de registros em C. Cadastra 10 funcionarios
Nenhum comentário foi encontrado.
Cirurgia para acelerar o openSUSE em HD externo via USB
Void Server como Domain Control
Modo Simples de Baixar e Usar o bash-completion
Monitorando o Preço do Bitcoin ou sua Cripto Favorita em Tempo Real com um Widget Flutuante
[Resolvido] VirtualBox can't enable the AMD-V extension
Como verificar a saúde dos discos no Linux
Como instalar , particionar, formatar e montar um HD adicional no Linux?
Como automatizar sua instalação do Ubuntu para desenvolvimento de software.
Fiz uma pergunta no fórum mas não consigo localizar (14)
Quais os códigos mais dificeis que vcs sabem fazer? (3)
Upscaling com imagem cortada no monitor secundário ao usar iGPU Multi ... (1)
Não consigo instalar distro antiga no virtualbox nem direto no hd (7)
Servidor Ubuntu 24.04 HD 500 não tenho espaço na \home\adminis... [RES... (8)









