Desenvolver um algorítmo para realizar a soma de números harmônicos, sendo n definido pelo usuário.H = 1+1/2+1/3+1/4…+1/n-1+1/n

2.

Calcular a soma dos 50 primeiros termos da série:S = 1/3-2/5+3/7-4/9+5/11-…

3.

Para dado um valor n, inteiro, calcular o fatorial de n, sabendo que:i)_ n!=nx(n-1)x(n-2)x…x2×1ii)_ 0!=1iii)_ (-n)! não existe

4.

Desenvolver 3 algorítmos (um em cada estrutura), que calcule e imprima a soma dos inteiros ímpares de 1 até n, sendo n fornecido como entrada e testado para ser um número ímpar maior do que 1.

5.

Preparar um algorítmo para ler 15 números inteiros e verificar quantos deles são pares

6.

A série de Fibonacci é formada pela seguinte sequência: 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, … Apresentar na tela até o 20º termo da série.

7.

Preparar um algoritmo para entrar com 50 notas válidas (de zero até dez) e apresentar no final a média da turma.

8.

Escrever um algoritmo para ler um conjunto de fichas contendo cada uma a altura e o código do sexo de uma pessoa (1 para masculino e 2 para feminino), calcule e escreva: a maior altura entre as mulheres e a média das alturas dos homens. O final do conjunto é dado por sexo igual a 3.

9.

A Telemar está interessada em um relatório contendo:
a)_ Quantidade total de pulsos residenciaisb)_ Quantidade total de pulsos comerciaisc)_ O código do assinante que consumiu o maior número de pulsos residenciaisd)_ A média de pulsos comerciais
Para isto é feita a leitura de fichas contendo:
  • Código do assinante
  • Quantidade de pulsos
  • Categoria (1 para residencial e 2 para comercial)
O final do conjunto de assinantes é dado por um código de assinante não positivo.
{Resposta questão 1}Algoritmo serie_harmonica;var h:real; i,n:inteiro;inicioescreva (’informe o ultimo denominador:’); leia(n);se(n<=0) entaoescreva (’valor invalido’)senaoinicioh:=0;para i<-1 ate n facah:=h+1/i;escreva(’soma ‘harmonica=’,h);fim;fim.
{Resposta questão 2}Algoritmo soma_serie;var soma:real; num,den:inteiro;iniciosoma:=0;den:=3;para num:=1 ate 50 facainiciose(num mod 2=0) entaosoma:=soma-num/densenaosoma:=soma+num/den;den:=den+2;fim;escreva(’soma=’,soma);fim.
{Resposta questão 3}Algoritmo fatoria;var fat,i,n:inteiro:inicioescreva(’informe o numero:’);leia(n);se (n<0) entaoescreva (’nao existe fatorial de numero negativo’)senao se(n=0) entaoescreva(’fatorial=1′)senaoiniciofat:=1;para i:=2 ate n facafat:=fat*i;escreva(’fatorial=’,fat);fim;fim.
{Resposta questão 4 - a}Algoritmo soma_impar_enquanto;var i,n,soma:inteiro;inicioescreva(’informe o numero impar:’);leia(n);se (n mod 2 <> 0 ) and (n>1) entaoiniciosoma:=0; i:=1;enquanto(i<=n)facainiciosoma:=soma+1;i:=i+2;fim;escreva(’soma=’,soma);fimsenao escreva(’valor invalido’);fim.
{Resposta questão 4 - b}Algoritmo soma_impar_repita;var i,n,soma:inteiro;inicioescreva (’informe o ultimo impar:’); leia(n);se (n mod 2=0) or (n<=1) entaoescreva (’valor invalido’)senaoiniciosoma:=0; i:=1;repitasoma:=soma+i;i:=i+2;ate(i>n);escreva(’soma=’,soma);fim;fim.
{Resposta questão 4 - c}Algoritmo soma_impar_para;var i,n,soma:inteiro;inicioescreva (’informe o ultimo impar:’); leia(n);se (n mod 2=0) or (n<=1) entaoescreva (’valor invalido’)senaoiniciosoma:=0;para i:=1 ate n facainiciose(i mod 2 <> 0) entaosoma:=soma+i;fim;escreva(’soma=’,soma);fim;fim.
{Resposta questão 5}Algoritmo conta_pares;var i,numero,cont:inteiro;iniciocont:=0;para i:=1 ate 15 facainicioescreva(’informeo’,i,’º valor:’); leia(numero);se(numero mod 2=0) entaocont:=cont+1;fim;escreva(’quantidade de pares=’,cont);fim.
{Resposta questão 6}Algoritmo fibonacci;var i,atual,ant,aa:inteiro;inicioant:=0;atual:=1;para i:=1 ate 20 facainicioescreva(atual);aa:=ant;ant:=atual;atual:=aa+ant;fim;fim.
{Resposta questão 7}Algoritmo media_escolar;var acc,media,nota:real; i:inteiro;inicioacc:=0;para i:=1 ate 50 facainicioescreva(’Informe a ‘, i, ‘Š nota: ‘);leia(nota);enquanto(nota<0) or (nota>10) facainicioescreva(’Informe a’,i, ‘Š nota: ‘);leia(nota);fim;acc:=acc+nota;fim;media:=acc/50;escreva(’Media da turma =’, media:2:2);fim.
{Resposta questão 8}Algoritmo alturas;var sexo:inteiro; maior_mulher,cont_homem,acc_homem,media_homem,altura:real;iniciomaior_mulher:=0;acc_homem:=0;cont_homem:=0;escreva(’Informe o sexo(1 p H e 2 p M): ‘);leia(sexo);enquanto(sexo<>3) facainicioescreva(’Informe a altura: ‘);leia(altura);caso (sexo) faca1: iniciocont_homem:=cont_homem+1;acc_homem:=acc_homem+altura;fim;2: se(altura>maior_mulher) entaomaior_mulher:=altura;senao escreva(’Sexo Invalido!’);fim;escreva(’informe o sexo(1 p H ou 2 p M ou 3 p sair): ‘);leia(sexo);fim;se(maior_mulher=0) entaoescreva(’Nao foram entrados dados femininos!’)senaoescreva(’Maior Mulher = ‘ ,maior_mulher:2:2);se(cont_homem=0) entaoescreva(’Nao foram entrados dados masculinos’)senaoiniciomedia_homem:=acc_homem/cont_homem;escreva(’Media dos homens = ‘,media_homem:2:2);fim;fim.

Comentários