-
Notifications
You must be signed in to change notification settings - Fork 0
/
Menu_Sin_datos.psc
132 lines (82 loc) · 2.33 KB
/
Menu_Sin_datos.psc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
Funcion opcion <- menu
Definir opcion Como Real
Escribir ""
Escribir "-----------------------------------------------"
Escribir "1: Llenar los vectores con valores aleatorios"
Escribir "2: Llenar los vectores manualmente"
Escribir "3: Realizar la suma de los vectores"
Escribir "4: Realizar la resta de los vectores"
Escribir "5: Realizar la multiplicacion de los vectores"
Escribir "6: Realizar la division de los vectores"
Escribir "7: Finalizar"
Escribir "-----------------------------------------------"
Escribir ""
Leer opcion
FinFuncion
Algoritmo Menu_Sin_datos
Definir opcion, vectores_llenos, vectores_vacios Como Real
opcion <- menu
vectores_llenos <- 0
Mientras opcion <> 90 Hacer
si opcion = 1 Entonces
Escribir ""
Escribir "Los vectores han sido llenados"
vectores_llenos <- 1
opcion <- menu
SiNo
si opcion = 2 Entonces
Escribir ""
Escribir "ingrese los vectores"
vectores_llenos <- 1
opcion <- menu
SiNo
si opcion = 3 Entonces
si vectores_llenos = 0 Entonces
Escribir ""
Escribir "Vectores no estan llenos"
SiNo
Escribir "vectores llenos"
FinSi
opcion <- menu
SiNo
si opcion = 4 Entonces
si vectores_llenos = 0 Entonces
Escribir ""
Escribir "Vectores no estan llenos"
SiNo
Escribir ""
Escribir "vectores llenos"
FinSi
opcion <- menu
SiNo
si opcion = 5 Entonces
si vectores_llenos = 0 Entonces
Escribir ""
Escribir "Vectores no estan llenos"
SiNo
Escribir "vectores llenos"
FinSi
opcion <- menu
SiNo
si opcion = 6 Entonces
si vectores_llenos = 0 Entonces
Escribir ""
Escribir "Vectores no estan llenos"
SiNo
Escribir "vectores llenos"
FinSi
opcion <- menu
SiNo
si opcion = 7 Entonces
Escribir ""
Escribir "Programa Finalizado"
opcion <- 90
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinMientras
FinAlgoritmo