Programa De Dados

Colegio Nacional de Educación
Profesional Técnica
Organismo Público Descentralizado del Estado de México

DIRECCIÓN ACADÉMICA

P.T. INFORMÁTICA

PROGRAMACIÓN ORIENTADA
A OBJETOS

REPORTE. 5

“DADOS”

| | | |
| | | |
| | | |

FECHA: 26/03/12

Avenida Jorge Jiménez Cantú no. 1000 col. San Juan Atlántica, Cuautitlán Izcalli, Edo. Méx. Tel.: 58 80 98 80, 58 80 9847, 58 80 51 00 y 58 17 60 30
Avenida Jorge Jiménez Cantú no. 1000 col. San Juan Atlántica, Cuautitlán Izcalli, Edo. Méx. Tel.: 58 80 98 80, 58 80 98 47, 58 80 51 00 y 58 17 60 30
SECRETARÍA DE EDUCACIÓN SUBSECRETARÍA DE EDUCACIÓN MEDIA SUPERIOR Y SUPERIOR DIRECCIÓN GENERALDE EDUCACIÓN SUPERIOR
SECRETARÍA DE EDUCACIÓN SUBSECRETARÍA DE EDUCACIÓN MEDIA SUPERIOR Y SUPERIOR DIRECCIÓN GENERAL DE EDUCACIÓN SUPERIOR



1. Introducción
En este programa vimos lo que fue el uso de for, do while, en estructura y las utilizaciones del programafueron random, goto xy, funciones, clrscr. Todo esto se utilizo para que el programa escogiera caras de los dados al azar.

2. Planteamiento del Problema
Realiza un programa que me imprima en pantalla la cara de dos dados y me pregunte quieres jugar si el usuario dice que si que las caras de los dados se empiecen a mover y por azar elija un numero de caras de cada lado.

3.Desarrollo del proyecto

Algoritmo:
1.
2. Escribir “cara 1”
3. Escribir “cara 1”
4. hacer
5. Para c igual a 1; c menor o igual a 500; c aumenter 1
6. Entra
7. Borra
8. a igual a azar 6
9. b igual a azar 6
10. switch (a)
11. entra
12. caso 0:
13. leer ‘cara 1(5)’
14. romper
15. caso 1:
16. leer ‘cara 2(5)’
17. romper
18. caso 2:19. leer ‘cara 3(5)’
20. romper
21. caso 3:
22. leer ‘cara 4(5)’
23. romper
24. caso 4:
25. leer ‘cara 5(5)’
26. romper
27. caso 5:
28. leer ‘cara 6(5)’
29. romper
30. sale
31. swhitch (b)
32. caso 0:
33. leer ‘cara 1(20)’
34. romper
35. caso 1:
36. leer ‘cara 2(20)’
37. romper
38. caso 2:
39. leer ‘cara3(20)’
40. romper
41. caso 3:
42. leer ‘cara 4(20)’
43. romper
44. caso 4:
45. leer ‘cara 5(20)’
46. romper
47. caso 5:
48. leer ‘cara 6(20)’
49. romper
50. sale
51. tiempo (10)
52. escribir “quieres repetir si:1 no:2”
53. leer ‘op’
54. mientras q ‘op’ sea iguan que 1

Pseudocódigo:

Starts
Write ‘cara’
Write ‘cara’
Do
Forc=1;c<=500;c++
Clrscr();
a=random(6);
b=random(6);
switch(a)
case 0:
cara1(5);
break;
case 1:
cara2(5);
break;
case 2:
cara3(5);
break;
case 3:
cara4(5);
break;
case 4:
cara5(5);
break;
case 1:
cara6(5);
break;
switch(b)
case 0:
cara1(20);
break;
case 1:
cara2(20);
break;
case 2:
cara3(20);break;
case 3:
cara4(20);
break;
case 4:
cara5(20);
break;
case 1:
cara6(20);
break;
delay (10)
write “quires repetir si:1 no:2”
read ‘op’
while ‘op = =1’

Diagrama de flujo
Inicio
Inicio

c,a,b,op
c,a,b,op

Fin
Fin

C=1
C=1

op==1
op==1

C<=500
C<=500


clrscr
clrscr

Quieres repetir1:si no:2
Quieres repetir 1:si no:2
Swhitch(b)
Swhitch(b)

case 0
case 2
case 1
case 3
case 4
case 5
Cara1(5)
Cara4(5)
Cara5(5)
Cara6(5)
Cara2(5)
Cara3(5)
case 0
case 2
case 1
case 3
case 4
case 5
Cara1(5)
Cara4(5)
Cara5(5)
Cara6(5)
Cara2(5)
Cara3(5)
a=random(6)
b=random(6)
a=random(6)
b=random(6)

c++
c++

Swhitch(a)
Swhitch(a)

10
10
case 0
case 2
case...