Coleta de dados de alunos em Pascal
Publicado por José Cleydson Ferreira da Silva 05/08/2009
[ Hits: 4.951 ]
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.
Script que verifica se um número é primo ou não
Números primos (usando arrays)
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
É normal não gostar de KDE? (6)
Impressora epson l6270 não funciona em Linux mint (0)
esqueci a senha do boot do notebook dell vostro 3300 (3)