Coleta de dados de alunos em Pascal
Publicado por José Cleydson Ferreira da Silva 05/08/2009
[ Hits: 4.650 ]
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.
Operações básicas da matemática
Nenhum comentário foi encontrado.
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Debian Bookworm para a versão beta Debian 13 Trixie (3)
Não consigo acessar os modos de desempenho (5)
Alguém pode me ajudar porfavor como executar comandos ao iniciar no i3... (2)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba