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.