L 06

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Algoritmo: L06E01
inicio	
		inteiro : pot,valor
	valor <- 3;
	pot <- 0;
	enquanto (pot <=15)
	valor = valor**pot;
		escreva (“3^”,pot,”=”,valor”);
	pot = pot +1;
	fim enquanto;
		
fim;
fimalgoritimo.
_____________________________________________________________________________
Algoritmo: L06E02
inicio	
		real: num
	num <- 1000;
	enquanto (num <= 1999)
	se (nummod11=5) então
		escreva (num);
	num = num + 1;
fim se;
fim enquanto;
		
fim;
fimalgoritimo.
_____________________________________________________________________________
Algoritmo: L06E03 //não sei 
inicio	
		real: grão,pot,soma
	grão <- 2;
	pot <- 0;
	soma <- 0;
	enquanto (pot <= 64)
grao = grao + grao**pot;
soma = soma + grao;
inicio
	se (pot=64) então 
	escreva (“o valor que ele ira receber e de “,soma);
fim se;
fim enquanto;
	pot = pot + 1;
		
fim;
fimalgoritimo.
_____________________________________________________________________________
Algoritmo: L06E04
inicio	
		inteiro: N1,N2,aux
		escreva (“Digite um numero”);
		leia (N1);
	N2 <- 0;
	enquanto (N2 <= 10)
	aux = N1*N2;
		escreva (N1,”*”,N2,”=”,aux);
	N2 = N2+1;
fim enquanto;
		
fim;
fimalgoritimo.
_____________________________________________________________________________
Algoritmo: L06E05
inicio	
		inteiro: hab,filhos,soma_f,perc,cont,cont_per
		real: sal,med_sal,cont_ms,med_nfilhos,cont_mf,maior_s
	cont < - 0;
	soma_s <- 0
	soma_f <- 0;
	enquanto ( sal >= 0 ) faca
inicio
		escreva (“Digite seu salário e a quantidade de filhos que você tem”);
		leia (sal,filhos);
		se (sal > maior_sal) então
	maior_sal <- sal
fim se;
		se (sal < 0 ) então 
abandone;
	soma_s = soma_s + sal;
	soma_f = soma_f + filhos;
	med_nfilhos = soma_f/cont;
	med_sal = soma_s/cont;
cont = cont +1;
se (sal<100) entao 
cont_per = cont_per + 1;
fim se;
per = (100*cont_per)/cont
fim se;
	fim enquanto;
	
		escreva (“A media do salário da população é”,med_sal);
		escreva (“A media de filhos da população é”,med_nfilhos);
escreva (“A media de filhos da população é”,maior_sal);
		escreva (“O percentual de pessoas com salário ate RS100,00 é”per);
	
fim;
fimalgoritimo.
Algoritmo: L06E06
inicio	
		real: N1,N2,N3,med_p,cont
cont <- 0;
	enquanto (cont <=50) faca
		escreva (“Digite suas tres notas caro aluno”);
		leia (N1,N2,N3);
	med_p = (N1*2+N2*4+N3*3)/10;
		escreva (“Sua nota ponderada e”,med_p);
	cont = cont +1;
fim enquanto;
fim;
fimalgoritimo.
_____________________________________________________________________________
Algoritmo: L06E07
inicio	
		inteiro: N1;ndiv,cont
N1 <- 0;
ndiv <- 0;
cont <- 1;
	escreva (“Digite um numero”);
	leia (N1);
repita
	se (N1modcont=0) entao
ndiv<-ndiv +1 ;
fim se;
	cont = cont + 1;
ate (cont > n)
	se (ndiv > 2) entao 
	escreva (“O numero digitado e primo”);
senao
	escreva (“O numero digitado não é primo”);
fim se;
fim;
fimalgoritimo.
_____________________________________________________________________________
Algoritmo: L06E08
inicio	
		inteiro: N;ndiv,cont
N <- 3;
ndiv <- 0;
cont <- 1;
	enquanto ( n < = 17 ) faca
		se (Nmodcont=0) entao
ndiv<-ndiv +1 ;
fim se;
	se (ndiv > 2) entao 
	escreva (“O numero”,N,” e primo”);
senao
	escreva (“O numero”,N,” nao e primo”);
fim se;
	N = N+1;
fim enquanto;
fim;
fimalgoritimo.
_____________________________________________________________________________
Algoritmo: L06E09
inicio	
		inteiro: n,med_pares,s_pares,s_impares,med_geral,cont,c_pares,c_impares
s_pares <- 0;
c_pares <- 0;
s_impares <- 0;
c_impares <- 0;
repita
		escreva (“Digite um numero positivo”);
		leia (n)
		se (n>0) então 
	
	se (nmod2=0) então
	s_pares = s_pares+n;
c_pares = c_pares + 1;
senao
	s_impares = s_impares +n
	c_impares = c_impares + 1;
fim se;
		senao se (n<0)
	escreva (Somente números positivos!!);
fim se;
ate (n=0)
	med_geral = (s_pares + s_impares)/cont;
	cont = c_pares + c_impares;
	med_pares = s_pares/c_pares;
		escreva (“A quantidade de números pares e”,c_pares);
		escreva (“A quantidade de números impares e”,c_impares);
		escreva (“A media de valores pares é”,med_pares);
		escreva (“A media de geral é”,med_geral);		
	
fim;
fimalgoritimo.
_____________________________________________________________________________
Algoritmo: L06E10
inicio	
		real: n,S
	cont <- 0;
	div <- 0;
	S <- 0;
repita
		escreva (“Digite um numero”);
		leia (n);
	div = div + 1
	cont = cont + 1/div
	S = S + cont
		escreva (S);
ate (div=n)
	escreva (“O Valor final de S e”,S);
	
fim;
fimalgoritimo.