fork download
copy 
  1. /Algoritmo sin_titulo
  2. 	Definir nombre1 , nombre2 como cadena // Variables de jugadores
  3. 	Definir num1 , num2 , num3,  suma1, suma2 ,suma3 ,cont1 , cont2 , control1 ,control2 Como Entero
  4. 	Definir op1 , op2, opapuesta1, opapuesta2 Como Entero  // Variables de los segun 
  5. 	Definir apuesta1 , apuesta2 , nuevaapuesta1, nuevapuesta2 Como Entero // Variables dentro de el bucle apuesta 
  6. 	Definir band , band1, band2 , bandapuesta , bandjugador2 Como Logico // Variables logicas
  7. 	Escribir "-------Bienvenido al Blackjack-------"
  8.  
  9. 	//INGRESO DE PARTICIPANTES Y PRIMER APUESTA
  10. 	Escribir "Nombre del primer jugador"
  11. 	leer nombre1 
  12. 	Repetir
  13. 		Escribir "Cuanto quiere apostar?"
  14. 		Leer apuesta1
  15. 		si apuesta1 <=0 Entonces
  16. 			Escribir "Su apuesta debe ser mayor a 0"
  17. 		FinSi
  18. 	Hasta Que apuesta1 > 0
  19. 	Escribir "Nombre del segundo jugador"
  20. 	leer nombre2 
  21. 	Repetir
  22. 		Escribir "Cuanto quiere apostar?"
  23. 		Leer apuesta2
  24. 		si apuesta2 <=0 Entonces
  25. 			Escribir "Su apuesta debe ser mayor a 0"
  26. 		FinSi
  27. 	Hasta Que apuesta2 > 0 
  28. 	//FIN DE INGRESO DE PARTICIPANTES
  29.  
  30. 	band <- falso 
  31. 	bandapuesta <- falso
  32.  
  33. 	//INICIO DEL BUCLE DE CONTROL DE APUESTAS
  34. 	Repetir
  35. 		si apuesta1 < apuesta2 Entonces
  36. 			Escribir "El jugador " nombre1 " debe aumentar o igualar la apuesta del jugador " nombre2
  37. 			Escribir "Desea igualar o aumentar la apuesta?"
  38. 			Escribir "1 = Igualar"
  39. 			Escribir "2 = Aumentar"
  40. 			Escribir "3 = Retirarse"
  41. 			leer opapuesta1
  42. 			si opapuesta1 = 1 Entonces
  43. 				apuesta1<-apuesta2
  44. 				Escribir "La apuesta quedo en una suma total de: " apuesta1 + apuesta1
  45. 			SiNo
  46. 				si opapuesta1 = 2 Entonces
  47. 					Escribir "Ingrese su nueva apuesta (Recuerde que se sumara a su apuesta anterior)"
  48. 					leer nuevaapuesta1
  49. 					apuesta1<- apuesta1 + nuevaapuesta1
  50. 					Escribir "La nueva apuesta del jugador " nombre1 " es: " apuesta1
  51. 				SiNo
  52. 					Escribir "El jugador " nombre1 " decidio retirarse "
  53. 					band <- Verdadero
  54. 					bandapuesta<- Verdadero
  55. 					Escribir "El jugador " nombre2 " gano"
  56. 					Escribir "Acumulo " cont2 " cartas"
  57. 					Escribir "Su suma es de: " suma2
  58. 					Escribir "Gano un total de: $" apuesta1 + apuesta2
  59. 				FinSi
  60. 			FinSi
  61. 		SiNo
  62. 			si apuesta2 < apuesta1 Entonces
  63. 				Escribir "El jugador " nombre2 " debe aumentar o igualar la apuesta del jugador " nombre1
  64. 				Escribir "Desea igualar o aumentar la apuesta?"
  65. 				Escribir "1 = Igualar"
  66. 				Escribir "2 = Aumentar"
  67. 				Escribir "3 = Retirarse"
  68. 				leer opapuesta2
  69. 				si opapuesta2 = 1 Entonces
  70. 					apuesta2<-apuesta1
  71. 					Escribir "La apuesta quedo en una suma total de: " apuesta2 + apuesta2
  72. 				SiNo
  73. 					si opapuesta2 = 2 Entonces
  74. 						Escribir "Ingrese su nueva apuesta (Recuerde que se sumara a su apuesta anterior)"
  75. 						leer nuevaapuesta2
  76. 						apuesta2<- apuesta2 + nuevaapuesta2
  77. 						Escribir "La nueva apuesta del jugador " nombre2 " es: " apuesta2
  78. 					SiNo
  79. 						Escribir "El jugador " nombre2 " decidio retirarse"
  80. 						band <- Verdadero
  81. 						bandapuesta <- Verdadero
  82. 						Escribir "El jugador " nombre1 " gano"
  83. 						Escribir "Acumulo " cont1 " cartas"
  84. 						Escribir "Su suma es de: " suma1
  85. 						Escribir "Gano un total de: $" apuesta1 + apuesta2
  86. 					FinSi
  87. 				FinSi
  88. 			finsi	
  89. 		FinSi
  90. 	Hasta Que (apuesta1 = apuesta2) o (bandapuesta = Verdadero)
  91. 	//AQUI FINALIZA EL BUCLE DE CONTROL DE APUESTAS
  92.  
  93. 	// INICIA EL TURNO DEL LOS JUGADORES		
  94. 	suma1 <- 1
  95. 	cont1 <- 0 
  96. 	suma2 <- 0
  97. 	cont2 <- 1
  98. 	num1 <- azar (13) + 1
  99. 	suma1<-num1
  100. 	Escribir "A " nombre1 " le toco la carta N: " num1
  101. 	num2 <- azar (13) + 1
  102. 	suma2<-num2
  103. 	Escribir "A " nombre2 " le toco la carta N: " num2
  104.  
  105. 	Repetir
  106. 		si no(op1 = 2) Entonces
  107. 			Escribir "El jugador " nombre1 " elije"
  108. 			Escribir "Su suma es: " suma1
  109. 			Escribir "Quiere pedir otra carta o quedarse?"
  110. 			Escribir "1 = Pedir carta"
  111. 			Escribir "2 = Quedarse" 
  112. 			leer op1
  113. 			cont1 <- cont1 + 1 
  114. 			si op1 = 1 Entonces
  115. 				Escribir "Elijio pedir otra carta carta " 
  116. 				num1 <- azar (13) + 1
  117. 				Escribir "La nueva carta es: " num1
  118. 				suma1 <- suma1 + num1
  119. 				Escribir nombre1 " Suma en total: " suma1
  120. 				control1 <- suma1
  121. 				si suma1 = 21 Entonces
  122. 					Escribir "Felicidades alcanzaste 21!"
  123. 					escribir "Estas a la espera al turno del jugador " nombre2
  124. 					band <- Verdadero
  125. 					bandjugador2<-Verdadero
  126. 				sino 
  127. 					si suma1 > 21 Entonces
  128. 						Escribir "El judador 1 perdio"
  129. 						op1 <- 2
  130. 					FinSi
  131. 				FinSi
  132. 			SiNo
  133. 				si op1 = 2 Entonces
  134. 					Escribir "Elijio quedarse "
  135. 					Escribir "Su suma total es de: " suma1
  136. 					control1 <- suma1
  137. 					bandjugador2<-Verdadero
  138. 				FinSi
  139. 			Finsi
  140. 		FinSi
  141. 			Escribir "El jugador " nombre2 " elije"
  142. 			Escribir "Su suma es: " suma2
  143. 			Escribir "Quiere pedir otra carta o quedarse?"
  144. 			Escribir "1 = Pedir otra carta "
  145. 			Escribir "2 = Quedarse " 
  146. 			leer op2
  147. 			cont2 <- cont2 + 1 
  148. 			si op2 = 1 Entonces
  149. 				Escribir "Elijio pedir otra carta carta " 
  150. 				num2 <- azar (13) + 1
  151. 				Escribir "La nueva carta es: " num2
  152. 				suma2 <- suma2 + num2
  153. 				Escribir nombre2 " Suma en total: " suma2
  154. 				control2 <- suma2
  155. 				si suma2 = 21 Entonces
  156. 					band <- Verdadero
  157. 				sino 
  158. 					si suma2 > 21 Entonces
  159. 						band <- Verdadero
  160. 						Escribir "El judador " nombre2 " perdio"
  161. 						op2<-2
  162. 					FinSi
  163. 				finsi	
  164. 			sino 
  165. 				si op2 = 2 Entonces
  166. 					Escribir "Elijio quedarse "
  167. 					Escribir "Su suma total es de: " suma2
  168. 					control2 <- suma2
  169. 					band<- Verdadero
  170. 				FinSi
  171. 			Finsi
  172. 	Hasta Que (op1 = 2 y op2 = 2) 
  173. 	//FIN DEL TURNO DE LOS JUGADORES
  174.  
  175. 	//JUEGA EL CRUPIER
  176. 	si control1 > 21 Entonces
  177. 		control1 <- 0
  178. 	FinSi
  179. 	si control2 > 21 Entonces
  180. 		control2 <- 0
  181. 	FinSi
  182. 	si control1 <= 21 o control2 <=21 Entonces
  183. 		Escribir "Turno del crupier"
  184. 		num3 <- azar (13) + 1
  185. 		suma3 <- num3
  186. 		Escribir "Al crupier le toco " num3
  187. 		Repetir
  188. 			si num3 <= control1 o num3 <= control2 y num3 <= 21 Entonces
  189. 				Escribir "El crupier pide otra carta"
  190. 				num3 <- azar (13) + 1
  191. 				Escribir "La carta es: " num3
  192. 				suma3 <- suma3 + num3
  193. 				Escribir "La suma es: " suma3
  194. 			FinSi
  195. 		Hasta Que suma3 > control1 y suma3 > control2
  196. 		si suma3 <= 21 Entonces
  197. 			Escribir "El crupier gano"
  198. 		FinSi
  199. 		si suma3 > 21 Entonces
  200. 			Escribir "El crupier perdio"
  201. 			suma3 <- 0
  202. 		FinSi
  203. 	FinSi
  204. 	//FIN DEL TURNO DEL CR
  205. 	//CONTROLES DE GANADORES O PERDEDORES
  206. 	si control1 > 21 y control2 > 21 Entonces
  207. 		Escribir "Los dos jugadores perdieron"
  208. 	SiNo
  209. 		si control1 = control2 Entonces
  210. 			Escribir "Empate"
  211. 		SiNo
  212. 			si control1 > control2 y control1 <= 21 Y suma3 < control1 Entonces
  213. 				Escribir "El jugador " nombre2 " perdio"
  214. 				Escribir "El jugador " nombre1 " gano"
  215. 				Escribir "Acumulo " cont1 " cartas"
  216. 				Escribir "Su suma es de: " suma1
  217. 				Escribir "Gano un total de: $" apuesta1 + apuesta2
  218. 			SiNo
  219. 				si control1 > 21 Entonces
  220. 					control1 <- 0
  221. 				FinSi
  222. 				si control2 > control1 y control2 <= 21 y suma3 < control2 Entonces
  223. 					Escribir "El jugador " nombre1 " perdio"
  224. 					Escribir "El jugador " nombre2 " gano"
  225. 					Escribir "Acumulo " cont2 " cartas"
  226. 					Escribir "Su suma es de: " suma2
  227. 					Escribir "Gano un total de: $" apuesta1 + apuesta2
  228. 				SiNo
  229. 					si control2 > 21 y control1 <=21 Entonces
  230. 						Escribir "El jugador " nombre1 " gano"
  231. 						Escribir "Acumulo " cont1 " cartas"
  232. 						Escribir "Su suma es de: " suma1
  233. 						Escribir "Gano un total de: $" apuesta1 + apuesta2
  234. 					FinSi
  235. 				FinSi
  236. 			finsi
  237. 		FinSi
  238. 	finsi
  239. FinAlgoritmo
Success #stdin #stdout 0.02s 25816KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
/Algoritmo sin_titulo
	Definir nombre1 , nombre2 como cadena // Variables de jugadores
	Definir num1 , num2 , num3,  suma1, suma2 ,suma3 ,cont1 , cont2 , control1 ,control2 Como Entero
	Definir op1 , op2, opapuesta1, opapuesta2 Como Entero  // Variables de los segun 
	Definir apuesta1 , apuesta2 , nuevaapuesta1, nuevapuesta2 Como Entero // Variables dentro de el bucle apuesta 
	Definir band , band1, band2 , bandapuesta , bandjugador2 Como Logico // Variables logicas
	Escribir "-------Bienvenido al Blackjack-------"
	
	//INGRESO DE PARTICIPANTES Y PRIMER APUESTA
	Escribir "Nombre del primer jugador"
	leer nombre1 
	Repetir
		Escribir "Cuanto quiere apostar?"
		Leer apuesta1
		si apuesta1 <=0 Entonces
			Escribir "Su apuesta debe ser mayor a 0"
		FinSi
	Hasta Que apuesta1 > 0
	Escribir "Nombre del segundo jugador"
	leer nombre2 
	Repetir
		Escribir "Cuanto quiere apostar?"
		Leer apuesta2
		si apuesta2 <=0 Entonces
			Escribir "Su apuesta debe ser mayor a 0"
		FinSi
	Hasta Que apuesta2 > 0 
	//FIN DE INGRESO DE PARTICIPANTES
	
	band <- falso 
	bandapuesta <- falso
	
	//INICIO DEL BUCLE DE CONTROL DE APUESTAS
	Repetir
		si apuesta1 < apuesta2 Entonces
			Escribir "El jugador " nombre1 " debe aumentar o igualar la apuesta del jugador " nombre2
			Escribir "Desea igualar o aumentar la apuesta?"
			Escribir "1 = Igualar"
			Escribir "2 = Aumentar"
			Escribir "3 = Retirarse"
			leer opapuesta1
			si opapuesta1 = 1 Entonces
				apuesta1<-apuesta2
				Escribir "La apuesta quedo en una suma total de: " apuesta1 + apuesta1
			SiNo
				si opapuesta1 = 2 Entonces
					Escribir "Ingrese su nueva apuesta (Recuerde que se sumara a su apuesta anterior)"
					leer nuevaapuesta1
					apuesta1<- apuesta1 + nuevaapuesta1
					Escribir "La nueva apuesta del jugador " nombre1 " es: " apuesta1
				SiNo
					Escribir "El jugador " nombre1 " decidio retirarse "
					band <- Verdadero
					bandapuesta<- Verdadero
					Escribir "El jugador " nombre2 " gano"
					Escribir "Acumulo " cont2 " cartas"
					Escribir "Su suma es de: " suma2
					Escribir "Gano un total de: $" apuesta1 + apuesta2
				FinSi
			FinSi
		SiNo
			si apuesta2 < apuesta1 Entonces
				Escribir "El jugador " nombre2 " debe aumentar o igualar la apuesta del jugador " nombre1
				Escribir "Desea igualar o aumentar la apuesta?"
				Escribir "1 = Igualar"
				Escribir "2 = Aumentar"
				Escribir "3 = Retirarse"
				leer opapuesta2
				si opapuesta2 = 1 Entonces
					apuesta2<-apuesta1
					Escribir "La apuesta quedo en una suma total de: " apuesta2 + apuesta2
				SiNo
					si opapuesta2 = 2 Entonces
						Escribir "Ingrese su nueva apuesta (Recuerde que se sumara a su apuesta anterior)"
						leer nuevaapuesta2
						apuesta2<- apuesta2 + nuevaapuesta2
						Escribir "La nueva apuesta del jugador " nombre2 " es: " apuesta2
					SiNo
						Escribir "El jugador " nombre2 " decidio retirarse"
						band <- Verdadero
						bandapuesta <- Verdadero
						Escribir "El jugador " nombre1 " gano"
						Escribir "Acumulo " cont1 " cartas"
						Escribir "Su suma es de: " suma1
						Escribir "Gano un total de: $" apuesta1 + apuesta2
					FinSi
				FinSi
			finsi	
		FinSi
	Hasta Que (apuesta1 = apuesta2) o (bandapuesta = Verdadero)
	//AQUI FINALIZA EL BUCLE DE CONTROL DE APUESTAS
	
	// INICIA EL TURNO DEL LOS JUGADORES		
	suma1 <- 1
	cont1 <- 0 
	suma2 <- 0
	cont2 <- 1
	num1 <- azar (13) + 1
	suma1<-num1
	Escribir "A " nombre1 " le toco la carta N: " num1
	num2 <- azar (13) + 1
	suma2<-num2
	Escribir "A " nombre2 " le toco la carta N: " num2
		
	Repetir
		si no(op1 = 2) Entonces
			Escribir "El jugador " nombre1 " elije"
			Escribir "Su suma es: " suma1
			Escribir "Quiere pedir otra carta o quedarse?"
			Escribir "1 = Pedir carta"
			Escribir "2 = Quedarse" 
			leer op1
			cont1 <- cont1 + 1 
			si op1 = 1 Entonces
				Escribir "Elijio pedir otra carta carta " 
				num1 <- azar (13) + 1
				Escribir "La nueva carta es: " num1
				suma1 <- suma1 + num1
				Escribir nombre1 " Suma en total: " suma1
				control1 <- suma1
				si suma1 = 21 Entonces
					Escribir "Felicidades alcanzaste 21!"
					escribir "Estas a la espera al turno del jugador " nombre2
					band <- Verdadero
					bandjugador2<-Verdadero
				sino 
					si suma1 > 21 Entonces
						Escribir "El judador 1 perdio"
						op1 <- 2
					FinSi
				FinSi
			SiNo
				si op1 = 2 Entonces
					Escribir "Elijio quedarse "
					Escribir "Su suma total es de: " suma1
					control1 <- suma1
					bandjugador2<-Verdadero
				FinSi
			Finsi
		FinSi
			Escribir "El jugador " nombre2 " elije"
			Escribir "Su suma es: " suma2
			Escribir "Quiere pedir otra carta o quedarse?"
			Escribir "1 = Pedir otra carta "
			Escribir "2 = Quedarse " 
			leer op2
			cont2 <- cont2 + 1 
			si op2 = 1 Entonces
				Escribir "Elijio pedir otra carta carta " 
				num2 <- azar (13) + 1
				Escribir "La nueva carta es: " num2
				suma2 <- suma2 + num2
				Escribir nombre2 " Suma en total: " suma2
				control2 <- suma2
				si suma2 = 21 Entonces
					band <- Verdadero
				sino 
					si suma2 > 21 Entonces
						band <- Verdadero
						Escribir "El judador " nombre2 " perdio"
						op2<-2
					FinSi
				finsi	
			sino 
				si op2 = 2 Entonces
					Escribir "Elijio quedarse "
					Escribir "Su suma total es de: " suma2
					control2 <- suma2
					band<- Verdadero
				FinSi
			Finsi
	Hasta Que (op1 = 2 y op2 = 2) 
	//FIN DEL TURNO DE LOS JUGADORES
	
	//JUEGA EL CRUPIER
	si control1 > 21 Entonces
		control1 <- 0
	FinSi
	si control2 > 21 Entonces
		control2 <- 0
	FinSi
	si control1 <= 21 o control2 <=21 Entonces
		Escribir "Turno del crupier"
		num3 <- azar (13) + 1
		suma3 <- num3
		Escribir "Al crupier le toco " num3
		Repetir
			si num3 <= control1 o num3 <= control2 y num3 <= 21 Entonces
				Escribir "El crupier pide otra carta"
				num3 <- azar (13) + 1
				Escribir "La carta es: " num3
				suma3 <- suma3 + num3
				Escribir "La suma es: " suma3
			FinSi
		Hasta Que suma3 > control1 y suma3 > control2
		si suma3 <= 21 Entonces
			Escribir "El crupier gano"
		FinSi
		si suma3 > 21 Entonces
			Escribir "El crupier perdio"
			suma3 <- 0
		FinSi
	FinSi
	//FIN DEL TURNO DEL CR
	//CONTROLES DE GANADORES O PERDEDORES
	si control1 > 21 y control2 > 21 Entonces
		Escribir "Los dos jugadores perdieron"
	SiNo
		si control1 = control2 Entonces
			Escribir "Empate"
		SiNo
			si control1 > control2 y control1 <= 21 Y suma3 < control1 Entonces
				Escribir "El jugador " nombre2 " perdio"
				Escribir "El jugador " nombre1 " gano"
				Escribir "Acumulo " cont1 " cartas"
				Escribir "Su suma es de: " suma1
				Escribir "Gano un total de: $" apuesta1 + apuesta2
			SiNo
				si control1 > 21 Entonces
					control1 <- 0
				FinSi
				si control2 > control1 y control2 <= 21 y suma3 < control2 Entonces
					Escribir "El jugador " nombre1 " perdio"
					Escribir "El jugador " nombre2 " gano"
					Escribir "Acumulo " cont2 " cartas"
					Escribir "Su suma es de: " suma2
					Escribir "Gano un total de: $" apuesta1 + apuesta2
				SiNo
					si control2 > 21 y control1 <=21 Entonces
						Escribir "El jugador " nombre1 " gano"
						Escribir "Acumulo " cont1 " cartas"
						Escribir "Su suma es de: " suma1
						Escribir "Gano un total de: $" apuesta1 + apuesta2
					FinSi
				FinSi
			finsi
		FinSi
	finsi
FinAlgoritmo
https://ideone.com/1jyneS
language:
PHP (php 7.3.5)
created:
12 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!