dizer se o aluno passou ou nao

Publicado por NewLinuxer 13/12/2005

[ Hits: 3.878 ]

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

equação de 2º grau

mais um modelo de programa com vetor

"Calculadora" utilizando Case

Criptografador(Conceito criptografia)Lazarus

jogo bobo testando com case


  

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