dizer se o aluno passou ou nao

Publicado por NewLinuxer 13/12/2005

[ Hits: 3.781 ]

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

usando vetor e procedimentos

escreve os números de 1 a 9 com repeat - until

Executar comando do DOS.

Função Fatorial Recursiva em Ada 95

soma de um intervalo


  

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