Eric Pulquerio

Bom dia Galera de TI!

Estou começando a aprender pascal e estou com algumas dúvidas.

Eu escrevi um código ao qual as funções básicas dele é:

• Fazer a leitura de 3 notas de provas.

• Verificar se a media das duas primeiras é maior que 7 ou se a terceira é maior que 7.

• Verificar qual foi a maior e menor nota.

• Retornar se foi aprovado ou reprovado de acordo com a nota.

O meu problema está sendo fazer um loop para encontrar a maior e menor nota.

Será que alguém pode me ajudar?

program Teste;

var
	{ INICIO: DIZER MEU TIPO DE VARIAVÉL }
	NotaMaior, NotaMenor : real;
	nota1, nota2, nota3, media : real;
	i : integer;
	{ FIM: DIZER MEU TIPO DE VARIAVÉL }

begin
	{ INICIO: EXECUÇÃO DO MEU SCRIPT }

	{ INICIO: INFORMAÇÃO INICIAL DO SCRIPT }
	writeln('Olá. Como vai?');
	writeln;
	writeln('Este programa ira tirar sua media anual. Você ira inserir suas 3 notas');
	writeln('do primeiro semestre, e depois as 3 do segundo semestre.');
	writeln;
	writeln('Vamos começar?');
	writeln;
	{ FIM: INFORMAÇÃO INICIAL DO SCRIPT }

	{ INICIO: PEGAR VALOR DAS NOTAS }
	writeln('Insira por favor a nota da P1 do primeiro semestre:');
	readln(nota1);
	writeln('Insira por favor a nota da P2 do primeiro semestre:');
	readln(nota2);
	writeln('Insira por favor a nota da P3 do primeiro semestre: (Caso não tenha feiro digite 0.)');
	readln(nota3);
	{ FIM: PEGAR VALOR DAS NOTAS }

	{ INICIO: CALCULO DE MÉDIAS }
	media := (nota1*0.25 + nota2*10/6) / 2;
	NotaMaior := 0;
	NotaMenor := 1;
	for i:= 1 to 3 do
		Begin;
		read(nota);
		if nota[i] > NotaMaior then
			NotaMaior := nota[i];
		if nota[i] < NotaMenor then
			NotaMenor := nota[i]
		End;
				
	
	{ FIM: CALCULO DE MÉDIAS }

	{ INICIO: RESULTADO }
	if (media >= 7.0) or nota3sem1 >= 7.0 then
		Begin;
		writeln(' _____       ___   _____        ___   _____   _____   __   _   _____  ');
		writeln(' |  _  \     /   | |  _  \      /   | |  _  \ | ____| |  \ | | /  ___/');
		writeln(' | |_| |    / /| | | |_| |     / /| | | |_| | | |__   |   \| | | |___  ');
		writeln(' |  ___/   / / | | |  _  /    / / | | |  _  { |  __|  | |\   | \___  \ ');
		writeln(' | |      / /  | | | | \ \   / /  | | | |_| | | |___  | | \  |  ___| | ');
		writeln(' |_|     /_/   |_| |_|  \_\ /_/   |_| |_____/ |_____| |_|  \_| /_____/ ');
		writeln('Sua maior nota foi ', NotaMaior);
		writeln('Sua menor nota foi ', NotaMenor);
		End
	else
		Begin;
		writeln(' _     _       ___        _____   _____   _____   _   _   _____       ___   _____   ');
		writeln('| |   / /     /   |      | ____| /  ___/ |_   _| | | | | |  _  \     /   | |  _  \  ');
		writeln('| |  / /     / /| |      | |__   | |___    | |   | | | | | | | |    / /| | | |_| |  ');
		writeln('| | / /     / / | |      |  __|  \___  \   | |   | | | | | | | |   / / | | |  _  /  ');
		writeln('| |/ /     / /  | |      | |___   ___| |   | |   | |_| | | |_| |  / /  | | | | \ \  ');
		writeln('|___/     /_/   |_|      |_____| /_____/   |_|   \_____/ |_____/ /_/   |_| |_|  \_\ ');
		End;
	{ FIM: RESULTADO }

	end .