| Autor |
Mensagem |
bergão
Veterano |
# jul/07
Problema 05 (valor: 03 pontos):
Os proprietários de um teatro necessitam de uma ferramenta de software para reservas de lugares. O programador contratado verificou que as poltronas disponíveis para reservas são referenciados pelo número da fila (a partir do número 1) e pelo número da cadeira (a partir do número 1) em cada fila, em uma representação matricial em que as linhas e colunas correspondem, respectivamente, às filas e às colunas de cadeiras.
O teatro é pequeno, e tem 20 fileiras de cadeiras, com 20 cadeiras em cada fileira, formando um quadrado. O programa deve, a princípio, imprimir na tela todas as cadeiras desocupadas, e, a cada nova reserva feita, imprimir na tela a situação atual das cadeiras no auditório. A reserva é feita solicitando a fila e a coluna da cadeira a ser reservada. Se a cadeira solicitada já estiver reservada, deverá ser emitido uma mensagem, avisando da impossibilidade da reserva.
Notação: Imprimir um “underline ( _ )” quando a cadeira estiver fazia, e um “R”, quando reservada.
Resposta em Pascal!!!
Boa sorte!
|
r2s2
Veterano |
# jul/07
· votar
bergão
Resposta em Pascal!!!
Procura aqui
|
digo123
Veterano |
# jul/07
· votar
Vai fazer, vagabundo :P
pascal é barbada =]
|
Grow
Veterano |
# jul/07
· votar
me dê dois minutos
|
digo123
Veterano |
# jul/07 · Editado por: digo123
· votar
Só fazer uma array de 400 posições em q cada uma tu seta o status da poltrona. Depois é só fazer um while pra imprimir isso na tela de acordo com o q tu quer.
ou algo assim, ja fiz algo parecido só que em Java usando BD.
|
Grow
Veterano |
# jul/07
· votar
obrigado pelos dois minutos
|
Ed_Vedder
Veterano |
# jul/07 · Editado por: Ed_Vedder
· votar
Program Problema 05
Inicio
Var
chomp := 1
Usuario := bergão
Enquanto usuario = "bergão" faça
escrever: "Chupa meu pau vai!"
chomp:= chomp +1
fim
|
Dogs2
Veterano |
# jul/07
· votar
é a letra C
|
Vick Vaporub
Veterano |
# jul/07 · Editado por: Vick Vaporub
· votar
bergão
_ _ _ - _ _ _ _ R - _ _ - _ _
|
GuitarHouse
Veterano |
# jul/07
· votar
O cara quer q vcs façam o para-casa dele.
|
RafaelValeira
Veterano |
# jul/07
· votar
bergão
Bergão?
Engraçado.... eu tive um professor de programação chamado Bergamaschi.
Mas eu não cheguei nessa intimidade de chamá-lo de Bergão...
|
Bog
Veterano
 |
# jul/07
· votar
bergão
Heheheheh, o pior é que esse é o teu primeiro tópico. :P
Tá aí uma coisa da qual eu NÃO tenho saudades: Pascal.
|
CheshireCat
Veterano |
# jul/07
· votar
saudades dos tempos de pascal...
saudades desses problemas bobinhos...
o cara se registrou aqui pra postar isso? eu hein O_o
|
Energy
Veterano |
# jul/07
· votar
program ex;
type matriz=array[1..20, 1..20] of char;
var i, j, f, c: integer;
a:matriz;
resposta1, resposta2:char;
begin
for i:=1 to n do
for j:=1 to 20 do
a[i,j]:='_';
repeat
writeln('lugares disponiveis');
for i:=1 to 20 do
begin
for j:=1 to 20 do
write(a[i,j], ' ');
writeln;
end;
writeln;
writeln('entre fileira e cadeira');
readln(f, c);
for i:=1 to 20 do
for j:=1 to 20 do
if (a[f,c]='R') then
writeln('R')
else
begin
writeln('_');
writeln('deseja fazer a reserva?(S/N);
readln(resposta1);
if (upcase(resposta1) = 'S') then
a[f,c]:='R';
writeln('nova consulta?(S/N)');
readln(resposta2);
until (upcase(resposta2) = 'N');
readln;
end.
|
Energy
Veterano |
# jul/07
· votar
tenta ai
|
digo123
Veterano |
# jul/07 · Editado por: digo123
· votar
Energy
isso ai vai entrar em loop eterno, não? :P
|
Energy
Veterano |
# jul/07
· votar
nao
devido ao until (condicao)
|
LeandroP
Moderador |
# jul/07 · Editado por: LeandroP
· votar
begin;
clrscr;
write ("Digite o número da poltrona");
readln A$;
writeln ("Obrigado por digitar o número da poltrona!");
end.
|
The Blue Special Guitar
Veterano |
# jul/07
· votar
Pqp cara, isso é muito fácil...
|
LeandroP
Moderador |
# jul/07
· votar
Pascal é bico... pensei que fosse em Assembler.
|
Minow
Veterano |
# jul/07
· votar
.
ڪڛڧۅ ڞژڧپ ۉۄۍ
|
Energy
Veterano |
# jul/07
· votar
Energy
isso ai vai entrar em loop eterno, não? :P
vc tinha razao
segue abaixo o correto
program ex;
type matriz=array[1..20, 1..20] of char;
var i, j, f, c: integer;
a:matriz;
resposta1, resposta2:char;
reservado: boolean;
begin
writeln('Programa de reserva de lugares');
writeln;
for i:=1 to 20 do
for j:=1 to 20 do
a[i,j]:='_';
repeat
writeln('lugares disponiveis');
for i:=1 to 20 do
begin
for j:=1 to 20 do
write(a[i,j], ' ');
writeln;
end;
writeln;
writeln('entre fileira e cadeira');
readln(f, c);
for i:=1 to 20 do
for j:=1 to 20 do
reservado:=true;
if (a[f,c] = 'R') then
begin
writeln('R');
end
else
begin
writeln('_');
reservado:=false;
if (reservado=false) then
begin
writeln('deseja fazer a reserva?(S/N)');
readln(resposta1);
if (upcase(resposta1) = 'S') then
a[f,c]:='R';
end;
end;
writeln('nova consulta?(S/N)');
readln(resposta2);
until (upcase(resposta2) = 'N');
readln;
end.
|