Coleta de dados de alunos em Pascal
Publicado por José Cleydson Ferreira da Silva 05/08/2009
[ Hits: 4.881 ]
Homepage: geminivirus.org
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.
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.
Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)
Números primos (usando arrays)
Nenhum coment�rio foi encontrado.
Customizar a Instalação do Linux Debian com Preseed
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
O que você está ouvindo agora? [2] (192)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (8)