Coleta de dados de alunos em Pascal
Publicado por José Cleydson Ferreira da Silva 05/08/2009
[ Hits: 4.868 ]
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 Empresarial (Baseada nas fórmulas de Logística)Lazarus
Programa lê nome (básico) - Pascal para iniciantes
Nenhum coment�rio foi encontrado.
Aprenda a Gerenciar Permissões de Arquivos no Linux
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Alguém já usou o framework Avalonia para desenvolver interfaces de usu... (4)
Ajuda Pra Melhoria do NFTABLES. (8)
Sinto uma leve lentidão ao arrastar, miniminizar e restauras as janela... (2)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (7)