-
Notifications
You must be signed in to change notification settings - Fork 0
/
1-Estacionamento.por
100 lines (99 loc) · 2.26 KB
/
1-Estacionamento.por
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
programa
{
logico Vagas[30]
inteiro numero=0, vaga
cadeia placa[30], placa_veiculo
funcao inicio(){
menu()
escreva("\nSelecione uma das opções: ")
leia(numero)
escolha(numero){
caso 1:entradaVeiculos()
pare
caso 2:saidaVeiculos()
pare
caso 3:listaVagas()
pare
caso 4:
pare
}
}
funcao menu(){
limpa()
escreva("Estacionamento do SERRATEC\n")
escreva("---------------------------\n")
escreva("1- Entrada de Veiculos\n")
escreva("2- Saida de Veiculo\n")
escreva("3- Lista de vagas\n")
escreva("4- Sair do programa\n")
escreva("---------------------------")
}
funcao entradaVeiculos(){
limpa()
escreva("Entrada de veiculos\n")
escreva("---------------------------\n")
faca{
escreva("Digite o numero da vaga: ")
leia(vaga)
vaga = vaga-1
}enquanto(vaga > 29 ou vaga < 0)
se (Vagas[vaga] != verdadeiro){
Vagas[vaga] = verdadeiro
escreva("Placa do Veiculo: ")
leia(placa[vaga])
escreva("\nVaga cadastrado!")
espere()
}senao{ escreva("\nVaga ocupada.")
espere()
}
}
funcao saidaVeiculos(){
limpa()
escreva("Saida de veiculos\n")
escreva("---------------------------\n")
faca{
escreva("Digite o numero da vaga: ")
leia(vaga)
vaga = vaga-1
}enquanto(vaga > 29 ou vaga < 0)
se (Vagas[vaga] == verdadeiro){
Vagas[vaga] = falso
placa[vaga]= ""
escreva("\nVaga liberada com sucesso!")
espere()
}senao{ escreva("\nVaga já está disponivel!")
espere()
}
}
funcao listaVagas(){
limpa()
escreva("Lista de vagas\n")
escreva("---------------------------\n")
para(inteiro i=0; i < 30; i++){
se (Vagas[i] == verdadeiro){
escreva(i+1," Vaga ocupada! - Placa: ", placa[i],"\n")
}senao{
escreva(i+1," Vaga disponivel!\n")
}
}
espere()
limpa()
}
funcao espere(){
cadeia _
escreva("\n\nPressione 'ENTER' para continuar...")
leia(_)
inicio()
}
}
/* $$$ Portugol Studio $$$
*
* Esta seção do arquivo guarda informações do Portugol Studio.
* Você pode apagá-la se estiver utilizando outro editor.
*
* @POSICAO-CURSOR = 125;
* @PONTOS-DE-PARADA = ;
* @SIMBOLOS-INSPECIONADOS = ;
* @FILTRO-ARVORE-TIPOS-DE-DADO = inteiro, real, logico, cadeia, caracter, vazio;
* @FILTRO-ARVORE-TIPOS-DE-SIMBOLO = variavel, vetor, matriz, funcao;
*/