armazenar o nome de um aluno e suas notas
Publicado por NewLinuxer 13/12/2005
[ Hits: 5.477 ]
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.
Visualizador de imagem Pascal/Lazarus
Editor de Texto feito no Lazarus(Delphi 7 para Linux)
Cálculadora de décimo terceiro
Calculadora utilizando until e case
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Descritores de Arquivos e Swappiness
Como instalar no Linux Jogos da Steam só para Windows
Instalando o Team Viewer no Debian Trixie - problema no Policykit
O Que Fazer Após Instalar Ubuntu 25.04
Problema ao iniciar o Opensuse Tumbleweed (3)
Erro ao atualizar o archlinux [RESOLVIDO] (3)