dizer se o aluno passou ou nao

Publicado por NewLinuxer 13/12/2005

[ Hits: 3.787 ]

Download exerc15.pas




progrma que recebe a média de cada aluno e armazena em um vetor, após isso, calcula a média geral da turma, mostra quem passou, ou seja, com média >=70 e quem nao passou.

  



Esconder código-fonte

program exercicio15;

uses crt;

var
  nota: array[1..10] of real;
  contador, repr: integer;
  geral:real;

begin
  clrscr;

  geral:=0;
  repr:=0;

  For contador:= 1 to 10 do
  begin
    Write('Digite a nota do aluno ',contador:2,': ');
    readln(nota[contador]);
    geral:= geral+nota[contador];

    if nota[contador] < 7 then
      repr := repr+1;

 end;

  writeln;

  writeln('A media da classe foi: ',geral/10:0:2);

  writeln;

  writeln('A quantidade de alunos aprovados ‚: ',10-repr);
  writeln('A quantidade de alunos reprovados ‚: ',repr);

  readkey;
end.

Scripts recomendados

Criptografador(Conceito criptografia)Lazarus

Maior numero do Vetor

Mostrar maior e menor

Operações básicas da matemática

Achar o maior e o menor valor inserido pelo usuario


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts