Coleta de dados de alunos em Pascal
Publicado por José Cleydson Ferreira da Silva 05/08/2009
[ Hits: 4.855 ]
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.
Cronômetro feito no Lazarus(Delphi 7 para Linux)
Calculadora Empresarial Lazarus
Programa que realiza o reajuste salarial de acordo com o cargo
calcular o percentual de pessoas que sao maiores de idade
Nenhum comentário foi encontrado.
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Conheça a 4Devs, caixa de ferramentas online para desenvolvedores
Como converter um vídeo MP4 para um GIF para publicar no README.md do seu repositório Github
Como Instalar o Microsoft Teams no Linux Ubuntu