pascal

[Hugo Marques]

Pessoal estou com execício em pascal para resolver, só que estar dando uma dor de cabeça aqui, é o seguinte tenho que fazer um programa que cadastre  pelo nome, 50 poltronas de um usuário com a mensagem CONFIRMADO se outro usuário pegar a mesma poltrona deve aparecer a mensagem que a POLTRONA JÁ ESTAR OCUPADO.  Alguém pode me ajudar estar mais ou menos assim. Creio que se eu resolver essa etapa do programa conseguirei concluir o resto.

 

 

Program Pzim ;varpoltrona:array [1..50] of integer;nome:array[1..50] of string;i,j:integer;Begin writeln('Reserva de poltrona Numeradas'); writeln('  * Digite o número da poltrona <1-50>'); writeln('  * Digite zero para terminar'); writeln;  for i:=1 to 50 do  begin            writeln('Poltrona'); read(poltrona[i]); writeln('nome'); read(nome[i]);  end;    End.           

[Catí Kurumim 7]

Por enquanto está certo, mas precisa fazer mais coisas. Para saber se existe uma poltrona cadastrada você deve colocar um laço para verificar todas as posições cadastradas no vetor anteriormente  e um IF com Writeln dentro para escrever a mensagem informada pelo enunciado caso tenha uma poltrona cadastrada.

[Hugo Marques]

valeu man! abração