Resposta dos exercícios do dia 26 de Outubro de 2007

{Resposta questão 1}
Algoritmo serie_harmonica;
var h:real; i,n:inteiro;
inicio
escreva (‘informe o ultimo denominador:’); leia(n);
se(n<=0) entao
escreva (‘valor invalido’)
senao
inicio
h:=0;
para i<-1 ate n faca
h:=h+1/i;
escreva(’soma ‘harmonica=’,h);
fim;
fim.

{Resposta questão 2}
Algoritmo soma_serie;
var soma:real; num,den:inteiro;
inicio
soma:=0;
den:=3;
para num:=1 ate 50 faca
inicio
se(num mod 2=0) entao
soma:=soma-num/den
senao
soma:=soma+num/den;
den:=den+2;
fim;
escreva(’soma=’,soma);
fim.

{Resposta questão 3}
Algoritmo fatoria;
var fat,i,n:inteiro:
inicio
escreva(‘informe o numero:’);leia(n);
se (n<0) entao
escreva (‘nao existe fatorial de numero negativo’)
senao se(n=0) entao
escreva(‘fatorial=1′)
senao
inicio
fat:=1;
para i:=2 ate n faca
fat:=fat*i;
escreva(‘fatorial=’,fat);
fim;
fim.

{Resposta questão 4 – a}
Algoritmo soma_impar_enquanto;
var i,n,soma:inteiro;
inicio
escreva(‘informe o numero impar:’);leia(n);
se (n mod 2 <> 0 ) and (n>1) entao
inicio
soma:=0; i:=1;
enquanto(i<=n)faca
inicio
soma:=soma+1;
i:=i+2;
fim;
escreva(’soma=’,soma);
fim
senao escreva(‘valor invalido’);
fim.

{Resposta questão 4 – b}
Algoritmo soma_impar_repita;
var i,n,soma:inteiro;
inicio
escreva (‘informe o ultimo impar:’); leia(n);
se (n mod 2=0) or (n<=1) entao
escreva (‘valor invalido’)
senao
inicio
soma:=0; i:=1;
repita
soma:=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;
inicio
escreva (‘informe o ultimo impar:’); leia(n);
se (n mod 2=0) or (n<=1) entao
escreva (‘valor invalido’)
senao
inicio
soma:=0;
para i:=1 ate n faca
inicio
se(i mod 2 <> 0) entao
soma:=soma+i;
fim;
escreva(’soma=’,soma);
fim;
fim.

{Resposta questão 5}
Algoritmo conta_pares;
var i,numero,cont:inteiro;
inicio
cont:=0;
para i:=1 ate 15 faca
inicio
escreva(‘informeo’,i,’º valor:’); leia(numero);
se(numero mod 2=0) entao
cont:=cont+1;
fim;
escreva(‘quantidade de pares=’,cont);
fim.

{Resposta questão 6}
Algoritmo fibonacci;
var i,atual,ant,aa:inteiro;
inicio
ant:=0;
atual:=1;
para i:=1 ate 20 faca
inicio
escreva(atual);
aa:=ant;
ant:=atual;
atual:=aa+ant;
fim;
fim.

{Resposta questão 7}
Algoritmo media_escolar;
var acc,media,nota:real; i:inteiro;
inicio
acc:=0;
para i:=1 ate 50 faca
inicio
escreva(‘Informe a ‘, i, ‘Š nota: ‘);leia(nota);
enquanto(nota<0) or (nota>10) faca
inicio
escreva(‘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;
inicio
maior_mulher:=0;
acc_homem:=0;
cont_homem:=0;
escreva(‘Informe o sexo(1 p H e 2 p M): ‘);leia(sexo);
enquanto(sexo<>3) faca
inicio
escreva(‘Informe a altura: ‘);leia(altura);
caso (sexo) faca
1: inicio
cont_homem:=cont_homem+1;
acc_homem:=acc_homem+altura;
fim;
2: se(altura>maior_mulher) entao
maior_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) entao
escreva(‘Nao foram entrados dados femininos!’)
senao
escreva(‘Maior Mulher = ‘ ,maior_mulher:2:2);
se(cont_homem=0) entao
escreva(‘Nao foram entrados dados masculinos’)
senao
inicio
media_homem:=acc_homem/cont_homem;
escreva(‘Media dos homens = ‘,media_homem:2:2);
fim;
fim.