Exercicios de algoritmos ( Portugol )

[daniel_perez 0]

Prezados amigos , preciso da colaboração de vocês para a resolução de 4 algoritmos em portugol , preciso muito resolver esses exercicios pois só faltam esses para a entrega de um trabalho !

 

Obrigado pela colaboração de todos !

 

 

1) Faça um algoritmo que mostre todos os números divisiveis por N, em um intervalo de 1 até X . Onde N e X são inteiros informados pelo usuario .

 

2) Dada a formula : H = 1 + 1/2! + 1/3! + 1/4! + .... + 1/N! . Construa um algoritmo que calcule o número H . dado o numero inteiro N.

 

3) Ler 5 conjuntos de 2 valores , o primeiro valor representando o numero de um aluno e o segundo representando a sua altura em centimetros . Encontrar o aluno mais alto e o mais baixo e escrever seus numeros , suas alturas e uma mensagem dizendo se é mais alto ou o mais baixo .

 

4) Faça um programa que leia o código do jogador ( 1 ou 2 ) que ganhou ponto em uma partida de pingue pongue , e responda quem ganha a partida . A partida chega ao final se um dos jogadores chega a 21 pontos e a diferença é maior de 21 pontos , consiga colocar uma vantagem de dois pontos sobre o adversario .

[Renato Mariscal 0]

algoritmo ex1	declare x,n,i inteiro	ler n	ler x	para i de 1 ate x		se (i mod n) =0 entao  //Considerando mod=resto da divisão.			escreve i  		fim se	fim parafim algoritmoalgoritmo ex2	declare fat,i,n inteiro	declare h real	//atenção que ! significa fatorial, isso é, n!=(1*2*3* .... *n)	ler n	h<-0	fat<-1	para i de 1 ate n		fat <- fat * i		h <- h+1/fat	fim para	escreva hfim algoritmoalgoritmo ex3	declare numero[4],i inteiro	declare maior,menor,altura[4] real	maior <- -1	menor <- 999999	para i de 0 ate 4		ler numero[i]		ler altura[i]		se altura[i]<menor entao			menor <- altura[i]		fim se		se altura[i]> maior entao			maior <- altura[i]		fim se	fim para		para i de 0 ate 4		escreva numero[i]		escreve altura[i]		se altura[i]=maior entao			escreva "Maior"		fim se		se altura[i]=menor entao			escreva "Menor"		fim se	fim parafim algoritmoalgoritmo ex4	declare ponto[1:2], jog,op real	declare terminou : boleano	terminou <- falso	ponto[1]=0	ponto[2]=0	enquanto nao terminou faca		ler jog		op=3-jog		ponto[jog]=ponto[jog]+1		se (ponto[jog] >= 21) e (ponto[jog] >= ponto[op]+2) entao			escreve jog + "Venceu"			terminou <- true		fim se	fim enquantofim algoritmo