Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

nettonaval

algoritmo visualg

Por , em Algoritmos & Outras Tecnologias

Recommended Posts

nettonaval    0

nettonaval
Postado

Não estou conseguindo resolver esse problema, se alguem souber me ajude, obrigado.

 

Faça um algoritmo em visualg para o jogo “Campo Minado Simplificado”:

O tabuleiro será de tamanho 4×4;

Existe apenas uma bomba no tabuleiro;

O local da bomba deve ser sorteado no início;

O usuário deve escolher as casas que deseja jogar (linha e coluna);

O tabuleiro deve ser mostrado a cada nova jogada;

O jogo termina quando o usuário escolher o local onde tenha uma bomba (derrota) ou quando o usuário jogar em todas as casas, exceto a da bomba (vitória);

A função Int(Variavel) pega o valor inteiro de um número real;

A função rand() sorteia um número real entre 0 e 0,99999;

Deve-se utilizar matriz;

Compartilhar este post

Link para o post
Compartilhar em outros sites

guepa    0

guepa
Postado 

algoritmo "Campo minado"
// Função :
// Autor :
// Data : 13/06/2012
// Seção de Declarações
var

mat: vetor[1..7,1..7] de caracter
mat1: vetor[1..14,1..14] de caracter
mat2: vetor[1..21,1..21] de caracter
x,i,j: inteiro
nivel,facil,medio,dificil: caracter

inicio
// Seção de Comandos


escreval("Escolha o nivel de dificuldade F, M ou D.")
leia(nivel)

escolha nivel

caso ("F")

para i de 1 ate 7 faca
 escreval ("")
para j de 1 ate 7 faca
mat[i,j]<- "*"
escreva (mat[i,j]:4)

fimpara
 fimpara
para x de 1 ate 7 faca
escreval("Jogue >>(Digite  numeros entre 1 a 7)")
leia(x)

se x = 1 entao
escreval("Bomba")
escreval("..............Fim de Jogo.............")
para i de 1 ate 7 faca
 escreval ("*")
para j de 1 ate 7 faca
se ((i = 1) ou (j = 1)) entao
mat[i,j]<- "B"
escreva(mat[i,j]:4)
senao
  mat[i,j]<- "*"
escreva(mat[i,j]:4)
fimse
fimpara
fimpara
interrompa
senao

se x = 2 entao
escreval(" Continue ")
senao

se x = 3 entao
escreval("continue")
senao

se x = 4 entao

escreval("Bomba")
escreval("..............Fim de Jogo.............")

para i de 1 ate 7 faca
 escreval ("*")
para j de 1 ate 7 faca
se ((i = 4) ou (j = 4)) entao
mat[i,j]<- "B"
escreva(mat[i,j]:4)
senao
  mat[i,j]<- "*"
escreva(mat[i,j]:4)


fimse
fimpara
 fimpara
 interrompa
senao

se x = 5 entao
escreval("Bomba")
escreval("..............Fim de Jogo.............")
para i de 1 ate 7 faca
 escreval ("*")
para j de 1 ate 7 faca
se ((i = 5) ou (j = 5)) entao
mat[i,j]<- "B"
escreva(mat[i,j]:4)
senao
  mat[i,j]<- "*"
escreva(mat[i,j]:4)
fimse
fimpara
fimpara
interrompa
senao

se x = 6 entao
escreval(" Continue ")
senao

se x = 7 entao
escreval(" Continue ")
senao

se x >= 8 entao
repita
escreval("Numero inválido")
escreval(" Digite um numero entre 1 a 7")
leia(x)
ate x < 8

fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimpara

fimalgoritmo

caso ("M")
para i de 1 ate 14 faca
 escreval ("")
para j de 1 ate 14 faca
mat1[i,j]<- "*"
escreva (mat1[i,j]:2)
fimpara
 fimpara

para x de 1 ate 14 faca
escreval("Jogue >>(Digite  numeros entre 1 a 14)")
leia(x)

se x = 1 entao
escreval("Bomba")
para i de 1 ate 14 faca
 escreval ("*")
para j de 1 ate 14 faca
se ((i = 1) ou (j = 1)) entao
mat1[i,j]<- "B"
escreva(mat1[i,j]:2)
senao
  mat1[i,j]<- "*"
escreva(mat1[i,j]:2)
fimse
fimpara
fimpara
interrompa
escreval("..............Fim de Jogo.............")
senao

se x = 2 entao
escreval(" Continue ")
senao

se x = 3 entao
escreval("continue")
senao

se x = 4 entao
escreval("continue")
senao

se x = 5 entao
escreval("Bomba")
escreval("..............Fim de Jogo.............")
para i de 1 ate 14 faca
 escreval ("*")
para j de 1 ate 14 faca
se ((i = 5) ou (j = 5)) entao
mat1[i,j]<- "B"
escreva(mat1[i,j]:2)
senao
  mat1[i,j]<- "*"
escreva(mat1[i,j]:2)
fimse
fimpara
fimpara
interrompa
senao

se x = 6 entao
escreval(" Continue ")
senao

se x = 7 entao
escreval(" Continue ")
senao

se x = 8 entao
escreval(" Continue ")
senao

se x = 9 entao
escreval(" Continue ")
senao

se x = 10 entao
escreval("Bomba")
escreval("..............Fim de Jogo.............")
para i de 1 ate 14 faca
 escreval ("*")
para j de 1 ate 14 faca
se ((i = 10) ou (j = 10)) entao
mat1[i,j]<- "B"
escreva(mat1[i,j]:2)
senao
  mat1[i,j]<- "*"
escreva(mat1[i,j]:2)
fimse
fimpara
fimpara
interrompa
senao

se x = 11 entao
escreval("Bomba")
para i de 1 ate 14 faca
 escreval ("*")
para j de 1 ate 14 faca
se ((i = 11) ou (j = 11)) entao
mat1[i,j]<- "B"
escreva(mat1[i,j]:2)
senao
  mat1[i,j]<- "*"
escreva(mat1[i,j]:2)
fimse
fimpara
fimpara
interrompa
escreval("..............Fim de Jogo.............")
senao

se x = 12 entao
escreval(" Continue ")
senao

se x = 13 entao
escreval("Bomba")
escreval("..............Fim de Jogo.............")
para i de 1 ate 14 faca
 escreval ("*")
para j de 1 ate 14 faca
se ((i = 13) ou (j = 13)) entao
mat1[i,j]<- "B"
escreva(mat1[i,j]:2)
senao
  mat1[i,j]<- "*"
escreva(mat1[i,j]:2)
fimse
fimpara
fimpara
interrompa
senao

se x = 14 entao
escreval("continue")
senao

se x >= 15 entao
repita
escreval("Numero inválido")
escreval(" Digite um numero entre 1 a 14")
leia(x)
ate x < 15

fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse

fimpara

fimalgoritmo

caso ("D")
para i de 1 ate 21 faca
 escreval ("")
para j de 1 ate 21 faca
mat2[i,j]<- "*"
escreva (mat2[i,j]:2)

fimpara
 fimpara

para x de 1 ate 21 faca
escreval("Jogue >>(Digite  numeros entre 1 a 21)")
leia(x)

se x = 1 entao
escreval("continue")
senao

se x = 2 entao
escreval(" Continue ")
senao

se x = 3 entao
escreval("continue")
senao

se x = 4 entao
escreval("continue")
senao

se x = 5 entao
escreval("Bomba")
escreval("..............Fim de Jogo.............")
para i de 1 ate 21 faca
 escreval ("*")
para j de 1 ate 21 faca
se ((i = 5) ou (j = 5)) entao
mat2[i,j]<- "B"
escreva(mat2[i,j]:2)
senao
  mat2[i,j]<- "*"
escreva(mat2[i,j]:2)
fimse
fimpara
fimpara
interrompa
senao

se x = 6 entao
escreval(" Continue ")
senao

se x = 7 entao
escreval(" Continue ")
senao

se x = 8 entao
escreval(" Continue ")
senao

se x = 9 entao
escreval(" Continue ")
senao

se x = 10 entao
escreval("Bomba")
escreval("..............Fim de Jogo.............")
para i de 1 ate 21 faca
 escreval ("*")
para j de 1 ate 21 faca
se ((i = 10) ou (j = 10)) entao
mat2[i,j]<- "B"
escreva(mat2[i,j]:2)
senao
  mat2[i,j]<- "*"
escreva(mat2[i,j]:2)
fimse
fimpara
fimpara
interrompa
senao

se x = 11 entao
escreval("Bomba")
para i de 1 ate 21 faca
 escreval ("*")
para j de 1 ate 21 faca
se ((i = 11) ou (j = 11)) entao
mat2[i,j]<- "B"
escreva(mat2[i,j]:2)
senao
  mat2[i,j]<- "*"
escreva(mat2[i,j]:2)
fimse
fimpara
fimpara
interrompa
escreval("..............Fim de Jogo.............")
senao

se x = 12 entao
escreval(" Continue ")
senao

se x = 13 entao
escreval("continue")
senao

se x = 14 entao
escreval("continue")
senao

se x = 15 entao
escreval("Bomba")
escreval("..............Fim de Jogo.............")
para i de 1 ate 21 faca
 escreval ("*")
para j de 1 ate 21 faca
se ((i = 15) ou (j = 15)) entao
mat2[i,j]<- "B"
escreva(mat2[i,j]:2)
senao
  mat2[i,j]<- "*"
escreva(mat2[i,j]:2)
fimse
fimpara
fimpara
interrompa
senao

se x = 16 entao
escreval(" Continue ")
senao

se x = 17 entao
escreval(" Continue ")
senao

se x = 18 entao
escreval(" Continue ")
senao

se x = 19 entao
escreval(" Continue ")
senao

se x = 20 entao
escreval("Bomba")
escreval("..............Fim de Jogo.............")
para i de 1 ate 21 faca
 escreval ("*")
para j de 1 ate 21 faca
se ((i = 20) ou (j = 20)) entao
mat2[i,j]<- "B"
escreva(mat2[i,j]:2)
senao
  mat2[i,j]<- "*"
escreva(mat2[i,j]:2)
fimse
fimpara
fimpara
interrompa
senao

se x = 21 entao
escreval(" Continue ")
senao

se x >= 22 entao
repita
escreval("Numero inválido")
escreval(" Digite um numero entre 1 a 21")
leia(x)
ate x < 22

fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse

fimpara

outrocaso
escreval("Escolha inválida")
fimescolha

fimalgoritmo

 

 

 

 

Eu fiz um aki, mexa nele ao se bel-prazer, para deixar como quiseres!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Algoritmos & Outras Tecnologias
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito