Coleta de dados de alunos em Pascal

Publicado por José Cleydson Ferreira da Silva 05/08/2009

[ Hits: 4.756 ]

Homepage: geminivirus.org

Download aluno




Desenvolver um programa que permita o armazenamento e manipulação de memória dos dados de 100 alunos (opcional) e exiba o nome e a média dos alunos que possuem médias superior a média da classe.

  



Esconder código-fonte

program dadoaluno;

type aluno=record

        media:real;
        nome:string;
        idade:integer;
        notas:array [1..5] of real;
end;

var

soma,somamedia,mediaturma:real;
turma:array [1..5] of aluno;
j,i:integer;


begin
        somamedia:=0;

        for j:=1 to 2 do
        begin
                write ('Nome :');readln (turma[j].nome);
                write ('idade :');readln (turma[j].idade);
                soma:=0;

                for i:=1 to 5 do
                begin
                        write('Nota ',i,':'); readln(turma[j].notas[i]);
                        soma:=soma+turma[j].notas[i];
                        //turma[j].media:=soma/5;
                end;
                turma[j].media:=soma/5;
                
                somamedia:=somamedia+turma[j].media;
        end;

        mediaturma:=somamedia/2;
        write('Media Turma ', mediaturma:5:2);


        for j:=1 to 2 do
        begin
             if turma[j].media > mediaturma then
             write(turma[j].nome);
        end;
end.

Scripts recomendados

Criptografador(Conceito criptografia)Lazarus

Tratar campos not null

Calculadora completa com porcentagem(Lazarus)

Multiplicação de Matrizes

maior elemento de uma matriz


  

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