armazenar o nome de um aluno e suas notas
Publicado por NewLinuxer 13/12/2005
[ Hits: 5.513 ]
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.
vendas de uma empresa em matriz
Calculadora de décimo terceiro salário em Pascal
Calculadora completa com porcentagem(Lazarus)
Tocador de vídeo no Lazarus (Delphi 7 para Linux).
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
O que você quer para sua vida ao usar o Linux?
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Encontrar o comando completo de uma janela [RESOLVIDO] (2)
Instalação de Ubuntu em SSD (interno) como se fosse um dispositivo ext... (2)
Zorin OS - Virtual Box não consigo abrir maquinas virtuais (10)