Prévia do material em texto

Algoritmo: L10E01
	Funcao ENCONTRA_MAIOR_NUM( ): inteiro
		Inicio:
			Inteiro: N,MAIOR;
		MAIOR <- 0;
repita
	escreva (“Digite um numero”);
	leia (N);
		se (MAIOR > N) entao
		MAIOR <- N;
		fimse;
ate(N=0);
retorne (MAIOR);
fimfuncao;
	Inicio
		escreva (“O maior e o”,ENCONTRAR_MAIOR_NUM( ));
fim;
fimalgoritimo.
Algoritmo: L10E02
	funcao SOMA_DIGITO( ): inteiro
		Inicio
			Inteiro: N1,A,N2,B,N3,N4,NUM,SOMA;
		escreva (“Digite um numero de 4 algarismos”);
		leia (NUM);
			enquanto (NUM >= 1000) e (NUM <= 9999);
				N1 <- NUMmod10;
				A <- NUMdiv10;
				N2 <- Amod10;
				B <- Adiv10;
				N3 <- Bmod10;
				N4 <- Bdiv10;
			fimenquanto;
				SOMA <- N1 + N2 + N3 + N4;
			retorne (SOMA);
	fimfuncao;
		Inicio
			escreva (“A soma dos 4 algoritmos e”,SOMA_DIGITO( ));
	fim;
fimalgoritimo.
Algoritmo: L10E03
	Funcao CALCULA_NUM( ): inteiro
		Inicio
			Inteiro: I,cont;	
repita
	para I de 1000 ate 2000 passo 1 faca
		se (Imod11=5) então
			cont ++;
		fimse;
	fimpara;
		retorne (cont);
	fimfuncao;
	Inicio
		escreva (“O quantidade de números entre 1000 e 2000 divisiveis por 11 e”,CALCULA_NUM( ));
fim;
fimalgoritimo.
Algoritmo: L10E04
	Funcao IDADE( ): inteiro
		Inicio
			Inteiro: I,cont;	
	cont <- 0;
repita
		escreva (“Digite sua idade”);
		leia (idade);
			se (idade >0) entao
		soma_idade = soma_idade + idade;
			fimse;
		cont++;
ate (idade=0);
		media = soma_idade/cont
		retorne (media);
	fimfuncao;
	Inicio
		escreva (“A media das idades e”,IDADE( ));
fim;
fimalgoritimo.
Algoritmo: L10E05
	Funcao VALOR_K( ): inteiro
		Inicio
			Inteiro: K,L,M;
	
		escreva (“Digite K e L”);
		leia (K,L);
			se (K > L) entao
		M <- 1;
			senao se (K < L) então
	M <- -1;
		Senao
	M <- 0;
			fimse;
		retorne (M);
	fimfuncao;
	Inicio
		escreva (“M vale: ”,IDADE( ));
fim;
fimalgoritimo.
Algoritmo: L10E06
	Funcao PREST_ATRASO( ): inteiro
		Inicio
			Inteiro: VALOR, TEMPO,TAXA;
	
		escreva (“Digite o valor do produto”);
		leia (VALOR);
		escreva (“Digite o tempo de atraso em dias”);
		leia (TEMPO);
		escreva (“Digite o valor da taxa diária de multa”);
		leia (TAXA);
		PREST <- VALOR +(VALOR* (TAXA/100)*TEMPO);
		retorne (PREST)
		
	fimfuncao;
	Inicio
		escreva (“O total da prestacao e: ”,PREST_ATRASO( ));
fim;
fimalgoritimo.