armazenar o nome de um aluno e suas notas
Publicado por NewLinuxer 13/12/2005
[ Hits: 5.588 ]
programa para armazenar as quatro notas e o nome de um aluno com registro e no final mostrar os dados informados
Program registro03;
Type registro = Record
nome:string[30];
nota:array [1..4] of integer;
End;
Var
reg:registro;
contador:integer;
Begin
ClrScr;
Write('Informe o nome do aluno: ');
readln(reg.nome);
For contador := 1 to 4 do
Begin
Write('Informe a nota ',contador,': ');
readln(reg.nota[contador]);
End;
Writeln;
Writeln('As notas informadas do aluno',reg.nome,' são:');
For contador :=1 to 4 do
Writeln('Nota ',contador,'= ', reg.nota[contador]);
Readkey;
End.
encontrar o menor valor em um vetor
validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.
IA Turbina o Desktop Linux enquanto distros renovam forças
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
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
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
Assinador JNLP do Site Portal da Nota Fiscal Eletrônica (4)
Warcraft II Remastered no Linux? (3)









