program Aluno

program Aluno;

uses crt;

type cadastro = record senha: integer; nome: string[50]; end;

const max= 10;

var login: array[1..max] of cadastro; i, op, pos, encontrou, n_senha: integer; nome_aluno: string[50]; n1,n2,n3,media,notas,unidade:real; tres:string; begin for i:= 1 to max do begin login[i].senha:= 0; login[i].nome:= ' '; end;

repeat clrscr; writeln ('* * * MENU * * *'); writeln; writeln ('1 - Cadastro do aluno'); writeln ('2 - Visualização de aluno'); writeln ('3 - Exclusão de aluno'); writeln ('4 - Encerrar'); writeln; write ('Digite a opção desejada: '); readln (op);

case op of 1: begin encontrou:= 0; writeln; write ('Digite uma senha de 5 d¡gitos para se cadastrar: '); readln (n_senha); for i:= 1 to max do begin if n_senha = login[i].senha then encontrou:= 1; end; begin if encontrou = 1 then writeln ('Esta senha já existe!') else begin pos:= 0; i:= 1; while i <= max do begin if login[i].senha = 0 then begin pos:= i; i:= max+1; end; i:= i + 1; end; if pos = 0 then writeln ('Não é poss¡vel cadastrar novos aluno. Limite esgotado!') else begin write