constante entier MAX <-- 100

procedure initialisation(S v: vecteur de MAX entier)
{
	variable i : entier
	
	Pour i de 0 à MAX - 1
	{
		v[i] <-- 0
	}
}

procedure affichage(E v : vecteur de MAX entier)
{
	variable i : entier
	
	Pour i de 0 à MAX - 1
	{
		Si (v[i] = 0) alors
		{
			Afficher(".")
		}
		sinon
		{
			Afficher("x")
		}
	}
	Afficher("\n")
}

procedure tirage(E/S v : vecteur de MAX entier)
{
	variable x : entier
	Repeter
	{
		x <-- hasard(MAX)
	} jusqu'à (v[x] = 0)
	v[x] <-- 1
}

procedure remplissage(E/S v : vecteur de MAX entier, E N : entier)
{
	variable i : entier
	
	Pour i de 1 à N
	{
		tirage(v)
	}
}

Algorithme Demineur
{
	variable vd : vecteur de MAX entier
	         NbMines : entier
	
	initialisation(vd)
	
	Repeter
	{
		Afficher("Veuillez saisir le nombre de mines que vous souhaitez placer dans le vecteur. Ce nombre doit être inférieur à ", MAX/2, ".\n")
		Saisir(NbMines)
	} jusqu'à (NbMines < MAX/2)
	
	remplissage(vd, NbMines)
	affiche(vd)
}