Coleta de dados de alunos em Pascal

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

[ Hits: 4.768 ]

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

Calculadora básica no Lazarus

Operações básicas da matemática

controle de notas de um aluno com registro e array

Calculadora básica em Pascal

Calculadora usando procedures


  

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