Programação Orientada à Procedimentos II Programação Orientada à Procedimentos I Processamento Paralelo Lógica de Programação Introdução à Computação Informática Básica

 

 

Informática Básica
Introdução à Computação
Lógica de Programação
Programação Orientada à Procedimentos I
Programação Orientada à Procedimentos II

Processamento Paralelo


Uma Possível Solução ...



4) Ler quatro valores referentes a quatro notas escolares de um aluno e imprimir uma mensagem dizendo que o aluno foi aprovado, se o valor da média escolar for maior ou igual a 7. Se o valor da média for menor que 7, solicitar a nota de exame, somar com o valor da média e obter nova média. Se a nova média for maior ou igual a 5, apresentar uma mensagem dizendo que o aluno foi aprovado em exame. Se o aluno não foi aprovado, indicar uma mensagem informando esta condição. Apresentar junto com as mensagens o valor da média do aluno, para qualquer condição.

	programa media_escolar
		
	var
		nota1: real
		nota2: real
		nota3: real
		nota4: real
		exame: real
                media:real
		nome: caracter
	inicio
		escreva "Digite o nome do aluno"
		leia nome
		escreva "Digite a primeira nota"
		leia nota1
		escreva "Digite a segunda nota"
		leia nota2
		escreva "Digite a terceira nota"
		leia nota3
		escreva "Digite a quarta nota"
		leia nota4
		media:= (nota1 + nota2 + nota3 + nota4) / 4
		se (media >= 7) então
			escreva "O aluno(a) " , nome , "está aprovado(a) com a média ", media
		senão
			escreva "Digite a nota do exame do aluno"
			leia exame
			media = (media +  exame) / 2
			se (media >= 5) então
				escreva "O aluno(a) " , nome , "está aprovado(a) com a média ", media
			senão
				escreva "O aluno(a) " , nome , "está reprovado(a) com a média ", media
                        fim_se
		fim_se
	fim