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 con este ejercicio de registros

Pascal/Turbo Pascal - Ayuda con este ejercicio de registros

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 6
Ha aumentado su posición en 46 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con este ejercicio de registros

Publicado por Andres (15 intervenciones) el 05/07/2021 18:43:49
En una ciudad se conocen los siguientes datos de los ciudadanos: Cédula de
Identidad, Nombres, Apellidos, Edad, Sexo, Estado Civil y Nacionalidad. Para los
hombres, además se conoce si tiene pies planos o no y si prestó o está prestando
actualmente el Servicio Militar.
Se desea que usted, utilizando registros, implemente una estructura de datos en el
lenguaje Pascal para almacenar esta información (considere los tipos de datos más
conveniente para cada uno de los campos del registro).
Además debe elaborar un programa que genere las siguientes salidas, sobre el
registro creado:
a) Listar la cédula, nombres y apellidos, de aquellos ciudadanos que pueden
prestar servicio militar.
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
sin imagen de perfil
Val: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con este ejercicio de registros

Publicado por dario (87 intervenciones) el 06/07/2021 19:39:38
Hola, te dejo esto espero te ayude.
Salu2.

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
uses crt;
const maximo = 5; {cambiar este valor para registrar mas personas}
type
	registro = record
		cedula:string;
		nombres:string;
		apellidos:string;
		edad:byte;
		sexo,estadoCivil:char;
		nacionalidad:string;
		piesPlanos:char;
		sMilitar:char;
	end;
var
	datos:array[1..maximo] of registro;
	i:byte;
begin
	clrscr;
	{entrada de datos}
	for i:=1 to maximo do begin
		with datos[i] do begin
			write('Cedula: ');
			readln(cedula);
			write('Nombre: ');
			readln(nombres);
			write('Apellido: ');
			readln(apellidos);
			write('Edad: ');
			readln(edad);
			write('Sexo [M]asculino, [F]emenino: ');
			readln(sexo);
			sexo:=upcase(sexo);
 
			if sexo = 'M' then begin
				write('Tiene pies planos s/n: ');
				readln(piesPlanos);
				piesPlanos:=upcase(piesPlanos);
				write('Prestó o está prestando Servicio Militar [P][T]: ');
				readln(sMilitar);
				sMilitar:=upcase(sMilitar);
			end;
 
			write('Estado Civil [S][C][V][D]: ');
			readln(estadoCivil);
			estadoCivil:=upcase(estadoCivil);
			write('Nacionalidad: ');
			readln(nacionalidad);
 
		end;
		writeln;
	end;
 
	{Mostrar registro}
	writeln('Ciudadanos que pueden prestar Servicio Militar');
	for i:=1 to maximo do begin
		if datos[i].sMilitar = 'T' then begin
			with datos[i] do begin
				writeln('Cedula: ',cedula);
				writeln('Nombres y apellidos: ',nombres+' '+apellidos);
			end;
		end;
	end;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar