Necesito pasar un algoritmo a c++ para mañana miercole
Algoritmo cines
Const
salas=5
asientos=20
Filas=5
Var
N_salas,j,k: entero
Marca:logico
A: array[1...salas, 1::asientos, 1...filas] de entero
Inicio
Pedir_datos(n_salas)
Mientras n_salas<>0
marca=falso
J=0
k=1
Repetir
si j>asientos
entonces j=1
k=k+1
Fin si
sij>asientos
entonces j=1
k=k+1
Fin si
si (j=asientos) y (k>=filas)
entonces escribir "salas llena"
marca= verdadero
sino si a[n_salas,j,k]=0
entonces a[n_salas,j,k]=1
escribir "asiento "j" fila" k
marca =verdadero
fin si
fin si
Hasta (a[n_salas,j,k]=1) y (marca=verdadero)
pedir_datos (n_salas)
Fin mientras
Fin
Procedimiento pedir_datos (ent-sal s:entero)
Inicio
Repetir
Escribir "¿en que sala quieres entrar?"
Leer s
Hasta (s>=0) y (s<=salas)
fin pedir_datos
Const
salas=5
asientos=20
Filas=5
Var
N_salas,j,k: entero
Marca:logico
A: array[1...salas, 1::asientos, 1...filas] de entero
Inicio
Pedir_datos(n_salas)
Mientras n_salas<>0
marca=falso
J=0
k=1
Repetir
si j>asientos
entonces j=1
k=k+1
Fin si
sij>asientos
entonces j=1
k=k+1
Fin si
si (j=asientos) y (k>=filas)
entonces escribir "salas llena"
marca= verdadero
sino si a[n_salas,j,k]=0
entonces a[n_salas,j,k]=1
escribir "asiento "j" fila" k
marca =verdadero
fin si
fin si
Hasta (a[n_salas,j,k]=1) y (marca=verdadero)
pedir_datos (n_salas)
Fin mientras
Fin
Procedimiento pedir_datos (ent-sal s:entero)
Inicio
Repetir
Escribir "¿en que sala quieres entrar?"
Leer s
Hasta (s>=0) y (s<=salas)
fin pedir_datos
1 respuesta
Respuesta de franksct
1