Coleta de dados de alunos em Pascal

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

[ Hits: 4.951 ]

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

Script Tabuada

Calculadora básica no Lazarus

Primo_for

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

Números primos (usando arrays)


  

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