iNFORMÁTICA

Program tfcAdsB ; type jogador = record nome : string; time : string; end; var jogadores : array [1..3] of jogador; ultimo, posicao, op, i, apagar, j : integer; nome : string; aux : jogador;
Begin
repeat ultimo := 0; writeln('1 - Cadastrar Jogador'); writeln('2 - Alterar Jogador'); writeln('3 - Excluir Jogador'); writeln('4 - Exibir em ordem, pelo nome'); writeln('5 - Exibir em ordem, pelo time'); writeln('0 - Sair'); readln(op);

case op of 1: //cadastrar begin; ultimo := ultimo + 1; writeln('Digite o nome do jogador'); readln(jogadores[ultimo].nome); writeln('Digite o time do jogador'); readln(jogadores[ultimo].time); End; 2: //alterar begin writeln('Digite o nome do jogador'); readln(nome); for i:=1 to ultimo do Begin if jogadores[i].nome=nome then begin posicao := i; jogadores[i].nome:=nome; writeln('Digite o time do jogador'); readln(jogadores[i].time); end; end; if posicao = 0 then begin writeln('Jogador não encontrado'); end; end; // fim alterar 3: // Excluir begin writeln('Digite o nome do jogador'); readln(nome); apagar :=0; for i:=1 to ultimo do begin if jogadores[i].nome=nome then begin apagar := i; end; end; if apagar 0 then begin for i:=apagar to ultimo do begin jogadores[i].nome := jogadores[i+1].nome; jogadores[i].time := jogadores[i+1].time; end; ultimo :=