Cristian Herchonvicz

Bom dia senhores, tenho uma solução um pouco diferente da que eu comecei fazer, mas na programação o importante é o código funcionar.. Colocarei o código completo aqui, fiquem a vontade para colocar dicas, melhorias e afins... Algoritmo "Loteamento" // Disciplina : [Linguagem e Lógica de Programação] // Professor : Antonio Carlos Nicolodi // Descrição : Aqui você descreve o que o programa faz! (função) // Autor(a) : Cristian Herchonvicz // Data atual : 21/04/2022 Var // Seção de Declarações das variáveis lotevazio: vetor[1..14] de inteiro lotedestinado: vetor [1..14] de caractere resposta, nome:caractere grupoA, grupoB, lote, vendido, op, esc: Inteiro Procedimento listadelote() Inicio Escreval("Bem vindos ao Loteamento Consisa!!!") para grupoA <- 1 ate 14 passo 2 faca Escreva("||") para grupoB <- 0 ate 1 faca se (lotevazio[grupoA + grupoB] = 0) entao Escreva(" [Lote",grupoA + grupoB:3,"]") fimse se (lotevazio[grupoA + grupoB] = 1) entao Escreva(" [Reservado para ", lotedestinado[grupoA + grupoB], "]") fimse se (lotevazio[grupoA + grupoB]= 2) entao Escreva(" [Vendido para ", lotedestinado[grupoA + grupoB], "]") vendido<-vendido+1 fimse fimpara Escreval() fimPara fimprocedimento Inicio // Seção de Comandos, procedimento, funções, operadores, etc... repita esc<-0 vendido<-0 listadelote() se vendido = 14 entao limpatela listadelote() interrompa fimse Escreval("Insira o nome do Cliente:") leia(nome) EscrevaL("Bem vindo a loja de compra de lotes: ", nome) EscrevaL("Com base aos lotes vagos a cima, de '1 a 14', qual deseja comprar?") leia(lote) se (lote>14) e (lote<1) ou (lotedestinado[lote] <> (nome)) e (lotedestinado[lote] <> "") entao Escreval("Lote indisponivel. Tente Novamente") senao repita se lotevazio[lote] = 2 entao limpatela Escreval("Lote já comprado") interrompa fimse Escreval("Você deseja:") Escreval("1 Reservar o Lote") Escreval("2 Comprar o lote") Escreval("3 Listar lotes") Escreval("4 Sair") Escreval("Resposta:") leia(op) Escreval Escolha op Caso 1 lotevazio[lote]<-1 lotedestinado[lote] <- (nome) Escreval("O Lote ",lote," acaba de ser reservado para ", nome) esc<-1 Caso 2 lotevazio[lote]<- 2 lotedestinado[lote] <- (nome) Escreval("O Lote ",lote," acaba de ser comprado por ", nome) esc<-1 Caso 3 lotevazio[lote]<-1 lotedestinado[lote] <- (nome) listadelote() Caso 4 fimalgoritmo outroCaso limpatela Escreval("Erro. Verifique se sua escolha é uma das listadas.") fimescolha ate esc=1 fimse Escreval("Deseja reservar ou comprar outro Lote? sim/não") leia(resposta) resposta<-(resposta) ate(resposta="não") Fimalgoritmo

Boa noite senhores, o enunciado seria basicamente criar um algoritmo que simulasse uma corretora de imóveis e que nesse algoritmo ele teria que ter 2 opções somente: a primeira de que o cliente X poderia RESERVAR E COMPRAR o LOTE disponível, no meu caso usei 14 lotes disponíveis. Quando o cliente X reserva ou compra o lote X, o mesmo tem que estar listado para que o próximo cliente não selecione o lote reservado/comprado pelo cliente x. Vendo aqui as soluções que vocês disponibilizaram me clareou bastante a cabeça em como terminar o código. Vou tentar terminar ele amanhã e se tiver sem problemas posto o resultado final aqui e fecho o tópico.. Desculpem a falta de clareza no enunciado (falha minha), na próxima se tiver serei mais claro e objetivo e OBRIGADO aos que responderam e pelas dicas!!!!

@kgin Está escrito antes do código..

Olá a todos, alguém pode me ajudar a como proceder em terminar este código? Não estou conseguindo criar o processamento para fazer a opção reservar e vender o lote, lembrando que para isso funcionar eu preciso entrar com um nome de usuário, ou seja, se o nomeX, reservou o loteX, tem que ficar com o ele impresso na execução do código! Se quiserem dar dicas de como fazer em outras formas é bem vindo também, o importante pra mim é terminar o código! var lote: vetor[1..14] de inteiro nomecomprador: vetor[1..14] de caractere coluna: inteiro linha: inteiro nome: caractere op: inteiro procedimento listarlote Inicio para linha de 1 ate 14 passo 2 faca para coluna de 0 ate 1 faca Escreva(linha+coluna) fimpara Escreval() fimpara fimProcedimento procedimento reservalote Inicio fimProcedimento procedimento compralote Inicio fimProcedimento Inicio // Seção de Comandos, procedimento, funções, operadores, etc... Escreval("Bem vindos ao Consisa lote:") Escreval("Digite seu nome:") leia(nome) Escreval("Por favor selecione um item abaixo:") Escreval(" 1 Listar lotes") Escreval(" 2 Reservar lote") Escreval(" 3 Comprar lote") Escreval(" 4 Sair") Escreval("Opção:") leia(op) se op = 1 entao listarlote fimSe se op = 2 entao reservalote fimSe se op = 3 entao compralote fimSe se op = 4 entao //fimalgoritmo fimSe fimAlgoritmo