Hola necesitaria ayuda, no me inicia ninguna variable y estoy muy estresado
Publicado por Juan Cruz (1 intervención) el 25/06/2020 20:52:52
Hola necesitaria ayuda, no me inicia ninguna variable y estoy muy estresado
Este es el programa
Program programamedico;
Este es el programa
Program programamedico;
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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
// Santiago Berrios, Dante Denegri y Juan Cruz Bonanno
Uses crt;
Const
s = 20;
e = 10;
sine = 6;
n = 23;
L = 20;
Type
vecSint = Array [1..s] Of String;
vec = Array [1..n] Of String;
vec1 = Array [1..L] Of String;
mat = Array [1..e,1..sine] Of String;
Var
CS: mat;
SE: mat;
sinT: vecSint;
codS: vecSint;
cp: vec;
opcion: Char;
ef,es,i,cont,conts,j,N1,N2,contador: Integer;
lista: vec;
aux: String;
ordenado: Boolean;
V: vec;
Bar: vec1;
Procedure CargarPROV(Var bar:vec1);
Begin
For i :=1 To n Do
Readln (V[i]);
End;
Procedure MostrarPROV(c:vec1);
Begin
For i :=1 To n Do
Writeln (c[i]);
End;
Procedure ordenarPROV(Var bar:vec1);
Begin
For i := 1 To 20-1 Do
For j := i+1 To n Do
If bar[i]> bar[j]
Then
Begin
aux := bar[i];
bar[i] := bar[j];
bar[j] := aux;
End
End;
Procedure CargarCOD(Var V:vec);
Begin
For i :=1 To n Do
Readln (V[i]);
End;
Procedure MostrarCOD(S:vec);
Begin
For i :=1 To n Do
Writeln (S[i]);
End;
Procedure ordenarCOD(Var V:vec);
Begin
For i := 1 To n-1 Do
For j := i+1 To n Do
If v[i]> v[j]
Then
Begin
aux := V[i];
V[i] := V[j];
V[j] := aux;
End
End;
Procedure cargaE(x:String;Var m:mat);
Begin
Writeln(' Ingrese los codigos: ', X);
For ef:= 1 To e Do
Begin
Writeln('Ingrese los sintomas de cada codigo: ',ef);
For es:= 1 To sine Do
Readln(m[ef,es]);
End;
Writeln();
End;
Procedure cargaS( Var s:vecSint ; Var cs:vecSint);
Begin
i := 0;
Repeat
Writeln('Ingresar los sintomas');
Readln(s[i]);
Writeln('Ingrese su codigo');
Readln(cs[i]);
i := i + 1;
Until (i = 20) Or (s[i]= '*')
End;
Begin
Repeat
Clrscr;
textcolor(2);
Writeln('--------Menu Principal---------');
Writeln('-------1-Provincias--------');
Writeln('-------2-Sintomas --------');
Writeln('-------3-Enfermedades--------');
Writeln('-------4-Pacientes--------');
Writeln('-------5-Historia Clinicas--------');
Writeln('-------6-Estadisticas--------');
Writeln('-------7-Salir--------');
Readln(opcion);
Case opcion Of
'1':Begin
Begin
Writeln('Ingrese los codigos de la provincia');
cargarCOD(V);
Writeln('arreglo sin ordenar');
mostrarCOD(v);
Writeln('arreglo ordenado');
ordenarCOD(V);
mostrarCOD(V);
END;
Begin
Writeln('Ingrese lOS nombres de la provincia');
cargarPROV(bar);
Writeln('arreglo sin ordenar');
mostrarPROV(bar);
Writeln('arreglo ordenado');
ordenarprov(bar);
mostrarPROV(bar);
Readkey
End;
END;
'2':
Begin
Writeln ('Sintomas');
cargaS(sinT,codS);
Readln();
End;
'3':
Begin
Writeln ('Enfermedades');
cargaE ('CS',CS);
cargaE ('SE',SE);
End;
'4': Writeln ('Pacientes');
'5': Writeln ('EN EJECUCION');
'6': Writeln ('EN EJECUCION');
End;
Readkey;
Until opcion = '7';
End.
Valora esta pregunta


0