Pascal/Delphi Questões Matriz e Vetor em Pascal (6)

[JeanCarloOs]

esse é o mesmo problema dos anteriores ( duvida: como fazer a contagem de alunos Aprovados e Reprovados )

Program Exercicio_6 ;
Var
md:Array[1..5] Of Real;
  n1,n2:Real;
  i:Integer;
Begin
i:=0;
  For i:=1 To 5 Do
  Begin
  TextColor(LightCyan);
  	Writeln('Aluno ',i);
  	Writeln();
  	TextColor(White);
    Writeln('Digite Sua Primeira Nota :');
    Readln(n1);
    Writeln();
    Writeln('Digite Sua Segunda Nota:');
    Readln(n2);
    Writeln();
    md[i]:=(n1+n2)/2;
    TextColor(Yellow);
    Writeln('Média: ',md[i]:0:2);
  End;
    For i:=1 To 5 Do
  	Begin
  	Writeln('**************************************************************');
	    if(md[i]>7)Then
	    Begin
	    Writeln();
	    TextColor(LightBlue);
	      Writeln('Aluno ',i,' APROVADO Com: ',md[i]:0:2,' Na Media!');
	    End;
	    If(md[i]<7)Then
	    Begin
	    Writeln();
	    TextColor(LightRed);
	      Writeln('Aluno ',i,' REPROVADO Com: ',md[i]:0:2,' Na Media!');
	    End;
	  End;
	  ReadKey;
  
End.

 

[Simon Viegas]

1#

Entendi que o enunciado separa o algoritmo em 3 partes distintas:

 

1. Ler as notas;

2. Calcular e imprime as médias;

3. Exibe quantas pessoas foram aprovadas e quantas foram reprovadas.

 

obs.: talvez fazer junto também seja válido. Vai da interpretação.

 

 

 

2#

Em 23/11/2018 às 20:45, JeanCarloOs disse:

esse é o mesmo problema dos anteriores ( duvida: como fazer a contagem de alunos Aprovados e Reprovados )

 

Poderia usar duas variáveis para ir contando cada caso. Por exemplo, utilizar contAP para contar os aprovados e contRE para contar os reprovados.

 

Se for fazer em 3 partes, lá na segunda etapa, coloca para atualizar o contador correspondente.  Aí na terceira etapa as respostas estarão nessas duas variáveis.

 

Em fim, uma hora de contar quantos foram reprovados e quantos foram aprovados é após ter verificado a média.

 

 

 

3#

A média para ser aprovado é 7, ou seja, se tirar 7 ele tem que ser considerado aprovado, logo, use >=7, em vez de >7.

Outra coisa, ser aprovado e ser reprovado é uma dicotomia. Logo, se ele não foi aprovado, necessariamente ele será reprovado... não precisa se um if/else. Ex.:

  if (md[i]>=7) then
    begin
    writeln();
    TextColor(LightBlue);
    writeln('Aluno ',i,' APROVADO com: ',md[i]:0:2,' na media!');
    end
  else
    begin
    writeln();
    TextColor(LightRed);
    writeln('Aluno ',i,' REPROVADO com: ',md[i]:0:2,' na media!');
    end;

 

***

 

Qual dúvida é só perguntar.

 

No aguardo.

[JeanCarloOs]

1 hora atrás, Simon Viegas disse:

utilizar contAP para contar os aprovados e contRE para contar os reprovados.

 

Se for fazer em 3 partes, lá na segunda etapa, coloca para atualizar o contador correspondente.  Aí na terceira etapa as respostas estarão nessas duas variáveis.

Entao eu declaro as duas variáveis/(atualizar o contador) md:=0; ?/ eu crio um:

If(md>=7)Then
Begin
   contAP:=i+1;
End
else
contRE:=i+1;

 

[Simon Viegas]

Quase isso.. vai ser contAP:=contAP+1 e contRE:=contRE+1.

[JeanCarloOs]

aeee consegui!!!

muito obrigado novamente!!!

pow voce deve ser um professor de logica nao pode ser, explica de uma forma gostosa de aprender!!!

[Simon Viegas]

Posta o código para analisarmos...

[JeanCarloOs]

Program Exercicio_6 ;
Var
md:Array[1..5] Of Real;
  n1,n2:Real;
  i,contAP,contRE:Integer;
Begin
i:=0;
  For i:=1 To 5 Do
  Begin
  TextColor(LightCyan);
  	Writeln('Aluno ',i);
  	Writeln();
  	TextColor(White);
    Writeln('Digite Sua Primeira Nota :');
    Readln(n1);
    Writeln();
    Writeln('Digite Sua Segunda Nota:');
    Readln(n2);
    Writeln();
    md[i]:=(n1+n2)/2;
    TextColor(Yellow);
    Writeln('Média: ',md[i]:0:2);
    Writeln();
  End;
  		Writeln('**************************************************************');
    For i:=1 To 5 Do
  	Begin
		  	If(md[i]>=7)Then
	    		contAP:=contAP+1;
	  	  If(md[i]<=7)Then
	      	contRE:=contRE+1;
	  End;
	  Textcolor(LightBlue);
	  Writeln('Alunos Aprovados:',contAP);
	  Textcolor(LightRed);
	  Writeln('Alunos Reprovados:',contRE);
	  ReadKey;
End.

[Simon Viegas]

1#

22 minutos atrás, JeanCarloOs disse:

If(md[i]<=7)Then

 

Seria só "<". Seria também "=" se o 7 também fosse para reprovado.

 

Veja:

2 horas atrás, Simon Viegas disse:

A média para ser aprovado é 7, ou seja, se tirar 7 ele tem que ser considerado aprovado, logo, use >=7, em vez de >7.

Isso é só para ser aprovado.

 

 

 

2#

Na verdade nem precisa desse if.

2 horas atrás, Simon Viegas disse:

Outra coisa, ser aprovado e ser reprovado é uma dicotomia. Logo, se ele não foi aprovado, necessariamente ele será reprovado... não precisa se um if/else. Ex.: 

Se o if anterior já verificou que ele não foi aprovado, não precisa outro para confirmar algo que já está subentendido...

 

Seria:

  For i:=1 To 5 Do
    Begin
    If (md[i]>=7) Then
      contAP:=contAP+1
    Else
      contRE:=contRE+1;
    End;

 

[JeanCarloOs]

ah sim simplificação...Simon muito obrigado!! de coração man você me ajudou em uma coisa que eu achei que não iria conseguir "pegar o trilho" da matéria, mas voce me ajudou e ***** vocês sao *****!