armazenar o nome de um aluno e suas notas
Publicado por NewLinuxer 13/12/2005
[ Hits: 5.512 ]
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.
Programa que realiza o reajuste salarial de acordo com o cargo
Cáculo de Fatorial, utilizando-se de Repeat - Until
Contador de números (Pascal) - efeito Matrix
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)