Postagens
Female
Sou nova no forum e gostaria de ajuda em um programa que estou fazendo.
A codficação ja esta pronta, porém não consigo inserir moldura.
O professor precisou sair mais cedo e pediu que fizessemos o trabalho. Mais eu não consigo colocar a moldura.
Estou enviando a codificação... Espero respostas.. Atenciosamente Bruna farias.
Program Alunos;
Type Aluno = record // Registra as funções aluno
Nome: string [30];
Disciplina: string [10];
Sala: string;
Notas: array [1..4] of integer; //vetor que conta as notas de 1 até 4
end;
Var //declarar as variaveis
P: array [1..2] of Aluno; //vetor para os registros
b,i:integer; //contadores b=para as notas e i para aluno
valor: integer; //variavel qe irá controlar o comando CASE
Begin
Gotoxy(30,2);
Writeln('Digite 1 para Registros. ');
Writeln;
Writeln('Digite 2 para sair. '); readln(valor); //menu de acesso as opções
Case valor of //inicio do case
1: begin //primeira opção case de inserir novos registros
b:= 0; //zerar contador
I:=0; //zerar contador
for I:=1 to 2 do //indicando ao contador o caminho a percorrer
Begin //inicio da ação de cadastrar registros
writeln ('Digite o Nome: '); readln(P[i].Nome);
writeln ('Digite a Disciplina: '); readln(P[i].Disciplina);
writeln ('Digite a Sala: '); readln(P[i].Sala);
for b:=1 to 4 do //iniciando o contador para registrar as notas
Begin
writeln ('Digite a', b ,'Nota: '); readln(P[i].Notas[b]);
End;
End;
readkey;
clrscr; //limpa a tela
for I:=1 to 2 do //iniciando novamente o contador para um novo begin
Begin //exibe as informações no monitor
textcolor(14);
Writeln ('Nome: ',P[i].Nome);
Writeln ('Disciplina: ',P[i].Disciplina);
Writeln ('Sala: ',P[i].Sala);
for b:= 1 to 4 do
begin
Writeln ('Notas: ',P[i].Notas[b]);
end;
Writeln ('___________________s2____________________');
End;
end;
2: begin //iniciando a opção 2 do menu de finalizar o programa
TEXTCOLOR(13);
Writeln('Finalizando Programa!');
Writeln('Tecle ENTER para Sair!');
end;
End;
End.
