Coleta de dados de alunos em Pascal

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

[ Hits: 4.747 ]

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 para ler um vetor e mostrar o conteúdo

cadastro de um cliente com registro

cadastro de multiplos clientes com registro

armazenar o nome de um aluno e suas notas

Calculadora de notas (Pascal)


  

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