Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Ayuda para resolver programa en pascal...

Pascal/Turbo Pascal - Ayuda para resolver programa en pascal...

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Ayuda para resolver programa en pascal...

Publicado por Jose Jose (9 intervenciones) el 31/05/2013 06:13:17
Por favor necesito que me ayuden hacer este programa en turbo pascal:
El estado Lara a traves de la gran mision vivienda venezuela (GMVV), requiere que se diseñe un programa para el control de registro de beneficiarios, sobre todo en el proceso de inscripcion, para ello usted debe tener un registro de los solicitantes, con los datos mas relevantes, cedula, sexo, fecha de nacimiento, numero de hijos, estado civil, condiciones actuales de vivienda (alquilado, arrimado, rancho, terreno vacio), municipio, parroquia, ademas de los otros datos que usted considere son de interes para el programa.
se requiere que se diseñe un sistema que inscriba a los solicitantes de vivienda, con los datos de su respectiva carga familiar.
- Cuente los solicitantes quetiene mas de dos hijos e imprima el nombre, la edad y sexo de los niños.
- Indique el numero de solicitantes que tienen menos de un hijo.
- Indique el promedio de solicitantes de acuerdo a la condicion actual. (ejemplo el 15% vive en ranchos, el 20% vive en condicion de alquiler, etc).
- Indique la parroquia con el mayor numero de ranchos.
- Imprima la cantidad total de solicitantes.
- Porcentaje de solicitantes por sexo.
- Cantidad de varones y hembras segun los familiares.
- Cantidad de solicitantes menores a 18años, entre 18 y 25, entre 26 y 40, y mayores de 41 años.
- Porcentaje de personas casadas, solteras, divorciadas, y viudas.

Por favor ayuda, por lo menos una explicacion entendible que me ayude hacer este enunciado en pascal, es un proyecto para la universidad...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda para resolver programa en pascal...

Publicado por ramon (2158 intervenciones) el 31/05/2013 13:59:48
Para poderte ayudar de la manera mas positiva te pregunto esto como deseas realizar esto
con arrays lo cual seria acondicionado por el tamaño de los registros a un total x,
con punteros sin muchas restricciones de memoria lo cual no quiere decir que podamos usar
toda la que tenemos eso depende de nuestro sistema operativo y por desgracia window que
es lo normal es un poquito restringido.

espero me comentes algo yo empezare con arrays.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Ayuda para resolver programa en pascal...

Publicado por Jose Jose (9 intervenciones) el 31/05/2013 18:47:11
Bueno amigo la verdad es que el profesor que me da la materia, lo que nos ha explicado es lo de los arrays (uni, bi y multidimensional), ademas de los condicionales o estructuras (if, case, repeat, while, for), el dice que para ese programa se pueden utilizar cualquiera de los arrays, estructuras o condiciones, lo importante es que corra el programa y se obtenga el resultado esperado...

Lo de los punteros sino me equivoco creo q es lo de guardar el programa en una ubicacion de memoria, si es eso, no es necesario; lo que necesito es hacer el programa, compilarlo y que corra en pascal...

De verdad necesito su ayuda y se lo agradeceria mucho!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda para resolver programa en pascal...

Publicado por ramon (2158 intervenciones) el 31/05/2013 21:31:44
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
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
{Mira esto para empezar te valdría así solo podrás manejar unos 30 registros }
 
 program bibiendas;
  uses
    crt;
  const
     tipovivi : array[1..4] of string[14] = (
     'alquilado','arrimado','rancho','terreno vacio');
     numhijo = 5;
 
  type
   hijos = record
      nombre : string[50];
        edad : integer;
        sexo : char;
      end;
 
    regdatos = record
         nombrep : string[200];
         nombrem : string[200];
         cedulap : longint;
         cedulam : longint;
           sexop : char;
           sexom : char;
     nacimientop : string[10];
     nacimientom : string[10];
             nhj : integer;
        numhijos : array[1..numhijo] of hijos;
       estacivil : char;
        vivienda : string[14];
       municipio : string[80];
       parroquia : string[80];
     end;
 
 
 
   var
     losdatos : regdatos;
     f : file of regdatos;
     tecla : char;
     datos : boolean;
 
   procedure entradadatos;
   var
     t, nuhi : integer;
   begin
       datos := true;
       clrscr;
       writeln('**** Entrada de datos Primera Persona ****');
       writeln;
       write('  Nombre y Primer Apellido : ');
       readln(losdatos.nombrep);
       write('  Estado Casado[C] / Soltero[S] : ');
       readln(losdatos.estacivil);
       if upcase(losdatos.estacivil) = 'C' then
       begin
          clrscr;
          writeln('<<< Datos Del Conlluge >>>');
          writeln;
          write('  Nombre y Primer Apellido : ');
          readln(losdatos.nombrem);
          write('  Num.Cedula : ');
          readln(losdatos.cedulam);
          write('  Sexo [F]=Femenino [M]=Masculino : ');
          readln(losdatos.sexom);
          write('  Fecha Nacimiento xx/xx/xxxx : ');
          readln(losdatos.nacimientom);
          writeln;
          losdatos.nhj := 0;
          write(' Tienen Hijos [0] No  Num. : ');
          readln(nuhi);
          losdatos.nhj := nuhi;
          clrscr;
          writeln('  Datos De Los Hijos ');
          writeln;
          if nuhi > 0 then
          begin
             for t := 1 to nuhi do
             begin
             writeln;
             write('  Nombre : ');
             readln(losdatos.numhijos[t].nombre);
             write('  Edad   : ');
             readln(losdatos.numhijos[t].edad);
             write('  Sexo [F]=Femenino [M]=Masculino : ');
             readln(losdatos.numhijos[t].sexo);
             end;
          end;
       end;
            clrscr;
            writeln('**** Sigen datos Primera Persona ****');
            writeln;
            write('  Num. Cedula : ');
            readln(losdatos.cedulap);
            write('  Sexo [F]=Femenino [M]=Masculino : ');
            readln(losdatos.sexop);
            write('  Fecha Nacimiento xx/xx/xxxx : ');
            readln(losdatos.nacimientop);
            writeln('  Tipo Vivienda ');
            writeln;
            writeln('  1 = alquilado');
            writeln('  2 = arrimado');
            writeln('  3 = rancho');
            writeln('  4 = terreno vacio');
            writeln;
            writeln('  Pulse Numero Adecuado');
            repeat
                tecla := readkey;
            until tecla in['1','2','3','4'];
            case tecla of
         '1' : losdatos.vivienda := tipovivi[1];
         '2' : losdatos.vivienda := tipovivi[2];
         '3' : losdatos.vivienda := tipovivi[3];
         '4' : losdatos.vivienda := tipovivi[4];
             end;
            writeln;
            write('  Municipio : ');
            readln(losdatos.municipio);
            write('  Parroquia : ');
            readln(losdatos.parroquia);
            writeln;
            writeln('  Fin De Entrada Pulse Una Tecla');
        end;
 
    procedure presentaentrada;
    var
       k : integer;
    begin
      if datos = true then
      begin
       clrscr;
       writeln('**** Presentacion De Datos Entrados ****');
       writeln('  Nombre     : ',losdatos.nombrep);
       writeln('  Estado     : ',losdatos.estacivil);
       writeln('  Cedula     : ',losdatos.cedulap);
       writeln('  Sexo       : ',losdatos.sexop);
       writeln('  Nacimiento : ',losdatos.nacimientop);
       if losdatos.estacivil = 'C' then
       begin
       writeln('<<<< Datos Conlluge >>>>');
       writeln('  Nombre     : ',losdatos.nombrem);
       writeln('  Cedula     : ',losdatos.cedulam);
       writeln('  Sexo       : ',losdatos.sexom);
       writeln('  Nacimiento : ',losdatos.nacimientom);
       end;
       writeln('  Bibienda   : ',losdatos.vivienda);
       writeln('  Municipio  : ',losdatos.municipio);
       writeln('  Parroquia  : ',losdatos.parroquia);
       if losdatos.nhj > 0 then
       begin
          for k := 1 to losdatos.nhj do
          begin
              writeln('  Hijo Num.[',k,']');
              writeln('  Nombre : ',losdatos.numhijos[k].nombre);
              writeln('  Edad   : ',losdatos.numhijos[k].edad);
              writeln('  Sexo   : ',losdatos.numhijos[k].sexo);
              writeln;
          end;
       end;
     end
   else
       begin
          clrscr;
          writeln('  La Base No Tiene Ningun Dato ');
       end;
         writeln;
         writeln('>>>>>> Pulse Una Tecla <<<<<<<<');
         readkey;
    end;
 
   procedure menu;
   var
     sal : boolean;
     tec : char;
   begin
      sal := false;
    repeat
       clrscr;
       writeln('     ****** Menu General ******');
       writeln;
       writeln('          1 = Entrada Datos');
       writeln('          2 = Ver Entrada');
       writeln('          3 = Salir');
       writeln;
       writeln('      >>> Elija Opcion <<<');
       repeat
           tec := readkey;
       until tec in['1','2','3'];
       clrscr;
   case tec of
 '1' : entradadatos;
 '2' : presentaentrada;
 '3' : sal := true;
    end;
    until sal = true;
   end;
 
 
 
   begin
      clrscr;
      datos := false;
      menu;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Ayuda para resolver programa en pascal...

Publicado por Jose Jose (9 intervenciones) el 01/06/2013 04:55:13
Epale amigo ya lo pase a pascal pero en la parte de if upcase(losdatos.estacivil) = 'C' then cuando compilo me sale el error 106(se esperaba expresion de caracteres). Si quiere o si puede me da su correo para enviarselo y me corrija los errores que tiene... De todas manera aqui le dejo el mio [email protected] me escribe a ese correo para saber cual es el suyo y mandarle el programa...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda para resolver programa en pascal...

Publicado por ramon (2158 intervenciones) el 02/06/2013 14:12:32
Primero el error que me comentas es por entrada errónea en readln revisarlo bien tiene que ser
1 carácter o sea char.
Lo otro para corregirlo pon lo aquí y te corregiré lo que sea.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Ayuda para resolver programa en pascal...

Publicado por Jose Jose (9 intervenciones) el 02/06/2013 19:14:41
Aqui lo tienes amigo revisalo a ver cuales son los errores que tiene...

PROYECTO.PAS
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
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
program G_M_V_V;
 
uses
crt, dos;
 
const
tipovivi: array[1..4] of string [14]=('alquilado','arrimado','rancho','terreno vacio');
numhijo=5;
 
type
hijos=record
nombre:string[50];
edad:integer;
sexo:char;
end;
 
regdatos=record
nombrep:string[200];
nombrem:string[200];
cedulap:longint;
cedulam:longint;
sexop:char;
sexom:char;
estacivil:string;
nacimientop:string[10];
nacimientom:string[10];
nhj:char;
vivienda:string[14];
municipio:string[80];
parroquia:string[80];
end;
 
var
losdatos:regdatos;
f: file of regdatos;
tecla: char;
datos:boolean;
 
procedure entradadatos;
var
t,nuhi:integer;
begin
datos:=true;
clrscr;
writeln('Datos del solicitante.');
writeln;
write('Nombre y Primer Apellido: ');
readln(losdatos.nombrep);
write('Numero de cedula: ');
readln(losdatos.cedulap);
write('Sexo [F]Femenino, [M]Masculino: ');
readln(losdatos.sexop);
write('Fecha de nacimiento xx/xx/xxxx: ');
readln(losdatos.nacimientop);
write('Estado Civil Casado[C]/ Soltero[S]: ');
readln(losdatos.estacivil);
if upcase (losdatos.estacivil)= 'C'then
begin
clrscr;
writeln('Datos del Conyugue');
writeln;
write('Nombre y apellido: ');
readln(losdatos.nombrem);
write('Numero de Cedula: ');
readln(losdatos.cedulam);
write('Sexo [F]Femenino, [M]Masculino: ');
readln(losdatos.sexom);
write('Fecha de nacimiento xx/xx/xxxx: ');
readln(losdatos.nacimientom);
writeln;
losdatos.nhj:=0;
write('Tienen hijos [0] no num: ');
readln(nuhi);
losdatos.nhj:=nuhi;
clrscr;
write('Datos de los hijos');
writeln;
if nuhi>0 then
begin
for t:= 1 to nuhi do
begin
writeln;
write('Nombre: ');
readln(losdatos.numhijos[t].nombre);
write('Edad: ');
readln(losdatos.numhijos[t].edad);
write('Sexo [F]=Femenino, [M]=Masculino: ');
readln(losdatos.numhijos[t].sexo);
end;
end;
end;
write('Indique el tipo de vivienda: ');
writeln;
writeln('1=alquilado');
writeln('2=arrimado');
writeln('3=rancho');
writeln('4=terreno vacio');
writeln;
writeln('Pulse el numero adecuado: ');
repeat
tecla:= readkey;
until tecla in ['1','2','3','4'];
case tecla of
'1':losdatos.vivienda:=tipovivi[1];
'2':losdatos.vivienda:=tipovivi[2];
'3':losdatos.vivienda:=tipovivi[3];
'4':losdatos.vivienda:=tipovivi[4];
end;
writeln;
write('Municipio: ');
readln(losdatos.municipio);
write('Parroquia: ');
readln(losdatos.parroquia);
writeln;
writeln('Fin de entrada, Pulse una tecla');
end;
 
procedure presenta_entrada;
var
k:integer;
begin
if datos= true then
begin
clrscr;
writeln('Presentacion de datos de entrada');
writeln('Nombre: ',losdatos.nombrep);
writeln('Estado: ',losdatos.estacivil);
writeln('Cedula: ',losdatos.cedulap);
writeln('Sexo: ',losdatos.sexop);
writeln('Nacimiento: ',losdatos.nacimientop);
if losdatos.estacivil='C'then
begin
writeln('Datos del Conyugue');
writeln('Nombre: ',losdatos.nombrem);
writeln('Cedula: ',losdatos.cedulam);
writeln('Sexo: ',losdatos.sexom);
writeln('Nacimiento: ',losdatos.nacimientom);
end;
writeln('Vivienda: ',losdatos.vivienda);
writeln('Municipio: ',losdatos.municipio);
writeln('Parroquia: ',losdatos.parroquia);
if losdatos.nhj>0 then
begin
for k:= 1 to losdatos.nhj do
begin
writeln('Hijo num.[',k,']');
writeln('Nombre: ',losdatos.numhijos[k].nombre);
writeln('Edad: ',losdatos.numhijos[k].edad);
writeln('Sexo: ',losdatos.numhijos[k].sexo);
writeln;
end;
end;
end;
else
begin
clrscr;
write('La base no tiene ningun dato');
end;
writeln;
writeln('Pulse una tecla');
readkey;
end;
 
procedure menu;
var
sal:boolean;
tec:char
begin
sal:=false
repeat
clrscr;
writeln('Menu General');
writeln;
writeln('Elija Opcion');
repeat
tec:=readkey;
until tec in ['1','2','3'];
clrscr,
case tec of
'1':entradadatos;
'2':presenta_entrada;
'3':sal:=true;
end;
until sal=true;
end;
begin
clrscr;
datos:=false;
menu;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Ayuda para resolver programa en pascal...

Publicado por Jose Jose (9 intervenciones) el 06/06/2013 16:56:56
POR FAVOOOOORRRR AMIGOO!! TERMINEME DE AYUDAR, TENGO Q ENTREGAR ESTE PROYECTO EL MIERCOLES 12/06/2013 SINO ME QDA LA MATERIA Y NO QUIERO ESO... APIADESE DE MI QUE DIOS LE MULTIPLICARA LA AYUDA Q USTED ME ESTA OFRECIENDO, POR FAVOORRR!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda para resolver programa en pascal...

Publicado por ramon (2158 intervenciones) el 06/07/2013 13:20:25
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
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
{A qui lo tienes corregido espero sea eso lo que necesitas suerte}
 
  program G_M_V_V;
 
uses
crt, dos;
 
const
tipovivi: array[1..4] of string [14]=('alquilado','arrimado','rancho','terreno vacio');
numhijo=5;
 
type
hijos=record
nombre:string[50];
edad:integer;
sexo:char;
end;
 
regdatos=record
nombrep:string[200];
nombrem:string[200];
cedulap:longint;
cedulam:longint;
sexop:char;
sexom:char;
estacivil:char;
nacimientop:string[10];
nacimientom:string[10];
nhj:integer;
datos_hijos : array[1..numhijo] of hijos;
vivienda:string[14];
municipio:string[80];
parroquia:string[80];
end;
 
var
losdatos:regdatos;
f: file of regdatos;
tecla: char;
datos:boolean;
 
procedure entradadatos;
var
t,nuhi:integer;
begin
datos:=true;
clrscr;
writeln('Datos del solicitante.');
writeln;
write('Nombre y Primer Apellido: ');
readln(losdatos.nombrep);
write('Numero de cedula: ');
readln(losdatos.cedulap);
write('Sexo [F]Femenino, [M]Masculino: ');
readln(losdatos.sexop);
write('Fecha de nacimiento xx/xx/xxxx: ');
readln(losdatos.nacimientop);
write('Estado Civil Casado[C]/ Soltero[S]: ');
readln(losdatos.estacivil);
if upcase (losdatos.estacivil)= 'C'then
begin
clrscr;
writeln('Datos del Conyugue');
writeln;
write('Nombre y apellido: ');
readln(losdatos.nombrem);
write('Numero de Cedula: ');
readln(losdatos.cedulam);
write('Sexo [F]Femenino, [M]Masculino: ');
readln(losdatos.sexom);
write('Fecha de nacimiento xx/xx/xxxx: ');
readln(losdatos.nacimientom);
writeln;
losdatos.nhj:=0;
write('Tienen hijos [0] no num: ');
readln(nuhi);
losdatos.nhj:=nuhi;
clrscr;
write('Datos de los hijos');
writeln;
if nuhi>0 then
begin
for t:= 1 to nuhi do
begin
writeln;
write('Nombre: ');
readln(losdatos.datos_hijos[t].nombre);
write('Edad: ');
readln(losdatos.datos_hijos[t].edad);
write('Sexo [F]=Femenino, [M]=Masculino: ');
readln(losdatos.datos_hijos[t].sexo);
end;
end;
end;
write('Indique el tipo de vivienda: ');
writeln;
writeln('1=alquilado');
writeln('2=arrimado');
writeln('3=rancho');
writeln('4=terreno vacio');
writeln;
writeln('Pulse el numero adecuado: ');
repeat
tecla:= readkey;
until tecla in ['1','2','3','4'];
case tecla of
'1':losdatos.vivienda:=tipovivi[1];
'2':losdatos.vivienda:=tipovivi[2];
'3':losdatos.vivienda:=tipovivi[3];
'4':losdatos.vivienda:=tipovivi[4];
end;
writeln;
write('Municipio: ');
readln(losdatos.municipio);
write('Parroquia: ');
readln(losdatos.parroquia);
writeln;
writeln('Fin de entrada, Pulse una tecla');
end;
 
procedure presenta_entrada;
var
k:integer;
begin
if datos= true then
begin
clrscr;
writeln('Presentacion de datos de entrada');
writeln('Nombre: ',losdatos.nombrep);
writeln('Estado: ',losdatos.estacivil);
writeln('Cedula: ',losdatos.cedulap);
writeln('Sexo: ',losdatos.sexop);
writeln('Nacimiento: ',losdatos.nacimientop);
if losdatos.estacivil='C'then
begin
writeln('Datos del Conyugue');
writeln('Nombre: ',losdatos.nombrem);
writeln('Cedula: ',losdatos.cedulam);
writeln('Sexo: ',losdatos.sexom);
writeln('Nacimiento: ',losdatos.nacimientom);
end;
writeln('Vivienda: ',losdatos.vivienda);
writeln('Municipio: ',losdatos.municipio);
writeln('Parroquia: ',losdatos.parroquia);
if losdatos.nhj>0 then
begin
for k:= 1 to losdatos.nhj do
begin
writeln('Hijo num.[',k,']');
writeln('Nombre: ',losdatos.datos_hijos[k].nombre);
writeln('Edad: ',losdatos.datos_hijos[k].edad);
writeln('Sexo: ',losdatos.datos_hijos[k].sexo);
writeln;
end;
end;
end
else
begin
clrscr;
write('La base no tiene ningun dato');
end;
writeln;
writeln('Pulse una tecla');
readkey;
end;
 
procedure menu;
var
sal:boolean;
tec:char;
begin
sal:=false;
repeat
clrscr;
writeln('Menu General');
writeln;
writeln('     1 : Entrada Datos');
writeln('     2 : Presenta Entrada');
writeln('     3 : salir');
writeln;
writeln('Elija Opcion');
repeat
tec:=readkey;
until tec in ['1','2','3'];
clrscr;
case tec of
'1':entradadatos;
'2':presenta_entrada;
'3':sal:=true;
end;
until sal=true;
end;
 
 
begin
   clrscr;
   datos := false;
   menu;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar