dizer se o aluno passou ou nao

Publicado por NewLinuxer 13/12/2005

[ Hits: 3.785 ]

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

Mostrar maior e menor

Fator

soma da diagonal principal de uma matriz

Script que verifica se um número é primo ou não

Calculadora Empresarial Lazarus


  

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