Atividade supervisionada respostas algoritmos

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

Atividade
Supervisionada
Algoritmos I
Professora: Giselle Batalha
Alunos: 
 
Turma: 
Questão 01:
variaveis
 real : a , b
 inteiro : cont
inicio
 a <- 5000000
 b <- 7000000
 cont <- 0
 enquanto ( a < b ) faca
 a <- a + ( a * 3/100 )
 b <- b + ( b * 2/100 )
 cont <- cont + 1
 fim_enquanto
 escreva ("O País A terá:", a ," habitantes")
 escreva ("O País B terá:", b ," habitantes")
 escreva ("O País A ultrapassará a população do País B em:",cont,"anos.")
 fim
Questão 02:
variaveis
 inteiro : cont , x , numero , teste
inicio
 enquanto teste <> 1 faca
 escreva("Escreva um número inteiro Positivo: ")
 leia (numero)
 se (numero > 0) entao 
 teste <- 1
 para cont de 2 ate numero -1 faca 
 se ( numero mod cont ) = 0 entao
 x <- x + 
 fim_se
 fim_para
 se ( x <> 0 ) entao
 escreva("Ele não é um número primo")
 senao
 escreva("Ele é um número primo")
 fim_se
 senao
 n4 <- 0
 fim_se
 fim_enquanto
fim
Questão 03:
variaveis
 inteiro : numero , resultado , posicao1 , posicao2
inicio
 para posicao1 de 1 ate 20 faca
 escreva("Digite um número: ")
 leia(numero)
 para posicao2 de 1 ate numero faca
	resultado <- numero * posicao2
	escreva ( numero , " X" , posicao2, " =" , resultado)
 fim_para
 fim_para
fim
Questão 05:
variaveis 
 nt , ret , i : inteiro
 tn : real
 l : logico
 cont : caracter
inicio
 tn <- 0
 nt <- 10000
 i <- 10
repita
 escreva("ATENÇÃ!!! este terminal possui apenas notas de R$10,00")
 escreva("para cancelar aperte o zero ")
 escreva("quanto deseja retirar: R$ ")
 leia (ret)
 se ret mod i <> 0 entao
 l <- falso
 escreval("ATENÇÃO VALOR INCORRETO")
 fim_se
 se ret mod i = 0 entao
 l <- verdadeiro
 fim_se
 se ret > nt entao
 l <- falso
 escreva("terminal com dinheiro insuficiente")
 fim_se
ate l = (verdadeiro) ou (ret = 0)
 escreva("R$",ret,",00"," corresponde à",ret/i," cedula(s) de R$10,00")
 escreva("deseja realizar outra operação? s ou n")
 leia (cont)
 nt <- nt - ret
 se ret > nt entao
 cont <-"n"
 escreva("terminal com dinheiro insuficiente")
 fim_se
ate (cont = "n")
escreva("operação encerrada")
fim
Questão 07:
Variáveis
Inteiro : i , j , n , fat
real : x
inicio
 escreva("Informe o número de termos da série: ")
 leia(n)
 x <- 0
 fat <- 1
 para i de 1 ate n faca
 fat <- fat * i
 x <- x + i / fat
 fim_para
 escreva("Séria com ", n, " termos: ", x)
fim
Questão 08:
Variáveis
 Inteiro : i , k , soma
inicio
 escreva("Informe o valor de K: ")
 leia(k)
 soma <- 0
 para i de 1 ate 100 faca
 soma <- soma + i * k
 fim_para
 escreva("Soma: ", soma)
fim