Coleta de dados de alunos em Pascal

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

[ Hits: 4.641 ]

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

Jogo Sudoku em Pascal

Editor de texto em Pascal/Lazarus

Operações básicas da matemática

equação de 2º grau

Maior numero do Vetor


  

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