Leonardo Miguel Machado Algoritmo Licenciatura em Computação 7s

Prévia do material em texto

Curso
		Licenciatura em Computação 
	Disciplina:
	ALGORITMOS
	Professor:
	Leandro dos Santos Gonzalez
	Semestre:
	2 º
	Aluno (a)
	Leonardo Miguel Machado
	Data:
	15/ 07/ 2018
LISTA DE EXERCÍCIOS 3- ESTRUTURA REPETIÇÃO
Criar um algoritmo que imprima a soma de todos os números de 1 até 100.
algoritmo "1ª Questão"
var
 cont, soma: inteiro
inicio
 cont <- 1
 soma <- 0
 enquanto (cont <= 100) faca
 escreval (cont)
 cont <- cont + 1
 soma <- soma + cont
 fimenquanto
 escreval ("A soma é: ", soma)
fimalgoritmo
Criar um algoritmo que entre com cem números e imprima o quadrado de cada número.
algoritmo "1ª Questão"
var
 cont, soma: inteiro
inicio
 cont <- 1
 soma <- 0
 enquanto (cont <= 100) faca
 escreval (cont)
 cont <- cont + 1
 soma <- soma + cont
 fimenquanto
 escreval ("A soma é: ", soma)
fimalgoritmo
Ler vários números e informar quantos números entre 100 e 200 foram digitados. Quando o valor zero for lido, o algoritmo deverá cessar sua execução.
algoritmo "3ª Questão"
var
 num, cont: inteiro
inicio
 cont <- 0
 escreva("Informe um número, 0 para terminar: ")
 leia(num)
 enquanto (num <> 0) faca
 se ((num >= 100) e (num <= 200)) entao
 cont <- cont + 1
 fimse
 escreva("Informe um número 0 para encerrar: ")
 leia(num)
 fimenquanto
 escreval("---------------------------------------------------------------")
 escreval("Foram informados ", cont, " números no intervalo entre 100, 200")
 escreval("---------------------------------------------------------------")
fimalgoritmo
Criar um algoritmo que imprima todos os números pares de 1 até 100.
algoritmo "4ª questoes"
var
 num: inteiro
 
inicio
 para num de 1 ate 100 faca
 se (num mod 2 = 0) entao
 escreval(" Este é ",num)
 fimse
 fimpara
fimalgoritmo
Criar um algoritmo que entre com a profissão de várias pessoas e imprima quantos são Programadores. Quando o valor “fim” for lido, o algoritmo deverá cessar sua execução.
Algoritmo "5ª Questão"
Var
 prof: caractere
 qtd_prog: inteiro
 contador: inteiro
Inicio
 contador <- 0
 qtd_prog <- 0
 enquanto prof <> "fim" faca
 escreval("Informe 01(uma) profissão:")
 leia(prof)
 se ((prof = "programador") ou (prof = "programadora")) entao
 qtd_prog <- qtd_prog + 1
 fimse
 contador <- contador + 1
 fimenquanto
 escreval("Total de Programadores: ", qtd_prog)
Fimalgoritmo
Criar um algoritmo que entre com o sexo de várias pessoas (M / F) e imprima o total de pessoas do sexo masculino e total de pessoas do sexo feminino. Quando o valor “P” for lido, o algoritmo deverá cessar sua execução.
Algoritmo "6ª questão"
Var
sexo: caractere
m, f: inteiro
cont: inteiro
Inicio
contador := 0
f := 0
m := 0
 enquanto sexo <> "p" faca
 escreval("Informe o sexo 'M' ou 'F':")
 leia(sexo)
 se sexo = "m" entao
 m := m + 1
 fimse
 se sexo = "f" entao
 f := f + 1
 fimse
 fimenquanto
 escreval("Qtd Sexo Masculino: ", m)
 escreval("Qtd Sexo Feminino: ", f)
 
Fimalgoritmo
Criar um algoritmo que entre com o nome, idade e sexo de 200 pessoas (M / F). Imprimir o nome se a pessoa for do sexo masculino e tiver mais de 21 anos.
Algoritmo "7ª questão"
Var
 nome, sexo: caractere
 idade, cont: inteiro
Inicio
 contador := 0
 enquanto contador <> 200 faca
 escreval("Informe nome:")
 leia(nome)
 escreval("Informe idade:")
 leia(idade)
 escreval("Informe sexo 'M' ou 'F':")
 leia(sexo)
 se ((sexo = "m") e (idade > 21) )entao
 escreval("Nome: ", nome)
 fimse
 cont <- cont + 1
 fimenquanto
Fimalgoritmo
Criar um algoritmo que entre com a idade de várias pessoas e imprima:
algoritmo "8ª questão"
Var  
 idade, idade21, idade50 :inteiro
inicio
 repita
 escreva("Informe a idade: ")
 leia(idade)
 escreval ("Digite 0 para encerrar")
 se idade >= 0 entao
 se idade < 21 entao
 idade21 <- idade21 + 1
 fimse
 se idade > 50 entao
 idade50 <- idade50 + 1
 fimse
 fimse
ate idade = 0
escreval("Total de pessoas menores de 21 anos: ",idade21)
escreval ("---------------------------------------------")
escreval("Total de pessoas maiores de 50 anos: ",idade50)
fimalgoritmo
Criar um algoritmo que entre com 100 números e imprima a média aritmética desses números.
algoritmo "9ª Questoes"
var
 cont, soma: inteiro
inicio
 cont <- 1
 enquanto (cont <= 100) faca
 escreval (cont)
 cont <- cont + 1
 soma <- soma + cont
 fimenquanto
 escreval ("A média é: ", soma/cont:2:2)
fimalgoritmo
Criar um algoritmo que possa ler um conjunto de pedidos de compra e calcule o valor total da compra. Cada pedido é composto pelos seguintes campos: número, preço e quantidade. O algoritmo deverá processar novos pedidos até que o usuário digite zero para número de pedido.
algoritmo "10ª Questão"
var
 num_ped, qtd_ped: inteiro
 preco_uni_ped, total_compra: real
inicio
 total_compra <- 0
 escreval ("//Digite 0 para encerra//")
 escreva("Insira o número do pedido: ")
 leia(num_ped)
 enquanto (num_ped <> 0) faca
 escreva("Insira o preço unitário: ")
 leia(preco_uni_ped)
 escreva("Insira a quantidade: ")
 leia(qtd_ped)
total_compra <- qtd_ped * preco_uni_ped
 limpatela
 escreval("//Digite 0 para encerra//")
 escreva("Informe o número do pedido: ")
 leia(num_ped)
 fimenquanto
escreval("Valor total da compra: ", total_compra)
fimalgoritmo
Criar um algoritmo que leia vários números e imprima o maior e o menor deles. Quando for lido o valor zero o finaliza o processamento.
Algoritmo "11ª questão"
Var
num, menor, maior: inteiro
Inicio
 num := 1
 escreval("Informe 01(um) número:")
 leia(num)
 menor <- num
 maior <- num
 enquanto numero <> 0 faca
 escreval("Informe 01(um) número:")
 leia(num)
 se num > maior entao
 maior <- num
 fimse
 se (num < menor) e (num <> 0) entao
 menor <- num
 fimse
 fimenquanto
 escreval("Maior: ", maior)
 escreval("Menor: ", menor)
 Fimalgoritmo
Criar um algoritmo para ler a nota da 1ª avaliação e 2ª avaliação de 100 alunos. Imprimir a listagem, contendo: nome e média da cada aluno, no final, informe a média geral da turma.
Algoritmo "12ª questão"
Var
not1, not2, media_aluno, media_tot: real
cont: inteiro
nome: caractere
Inicio
 cont <- 0
 media_tot <- 0.0
 para cont de 1 ate 3 passo 1 faca
 escreval("Informe o nome:")
 leia(nome)
 escreval("Informe a primeira nota:")
 leia(not1)
 escreval("Informe a segunda nota:")
 leia(nota2)
 media_aluno <-:= (not1 + not2)/2
 escreval("Nome: ", nome)
 escreval("Média: ", media_aluno)
 media_total <- media_tot + media_aluno
 
 fimpara
 escreval("Média Geral: ", media_tot/cont)
Fimalgoritmo
Criar um algoritmo para efetuar a multiplicação de A e B usando o operador da soma.
Algoritmo "13ª questão"
Var
a, b, resultado: inteiro
Inicio
 escreval("Informe o primeiro número:")
 leia(a)
 escreval("Informe o segundo número:")leia(b)
 para a de 1 ate a passo 1 faca
 
 resultado <- resultado + b
 
 fimpara
 
 escreval("Resultado: ", resultado)
 
Fimalgoritmo
Criar um algoritmo que entre com um número e determine se o mesmo é um número primo ou não. O Número primo é divisível apenas por um e ele mesmo, por exemplo, o número 11 é primo.
Algoritmo "14ª questão"
Var
num, cont, divi: inteiro
Inicio
 cont := 0
 divi := 0
 escreval("Informe 01(um) número:")
 leia(num)
 
 para contador de 1 ate num passo 1 faca
 se (num mod cont = 0) entao
 divi := divi + 1
 fimse
 fimpara
 se divi = 2 entao
 escreval("É número primo")
 senao
 escreval("Não é número primo")
 fimse
Fimalgoritmo
Uma pousada estipulou o preço para sua diária em R$ 100,00 e mais uma taxa de serviços diária de:
algoritmo "15ª Questão"
var
 num_ap, qtd_dia, preco_dia: inteiro
 total_conta: real
 nome: caracter
inicio
 total_conta <- 0
 escreva ("Coloque o nome do cliente: ")
 leia (nome)
 escreva("Insira o número do apartamento (digite 0 para encerrar): ")
 leia(num_ap)
 enquanto (num_ap <> 0) faca
 escreva("Insira o preço diario R$: ")
 leia(preco_dia)
 escreva("Insira a quantidade de dias: ")
 leia(qtd_dia)
 total_conta <- qtd_dia * preco_dia
 escreva("Insira o número do apartamento: ")
 leia(num_ap)
 fimenquanto
escreval("Nome do Cliente: ", nome)
escreval("Total de Dias: ", qtd_dia)
escreval("Valor total da conta: ", total_conta)
fimalgoritmo