Pascal/Turbo Pascal - Ejercicios de Pascal

   
Vista:

Ejercicios de Pascal

Publicado por Edgard (10 intervenciones) el 20/07/2017 22:21:54
Junto con saludar
Solicito su ayuda para ejercicios de Pascal
Saludos y gracias de antemano


Escribir un programa en Pascal que almacene en un arreglo de registros las características de cada persona: nombre, sexo, edad, peso, color de pelo, color de piel, color de ojos, nacionalidad y teléfono. Imprimir los datos de aquellos mayores de 24 años.
.......................
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

Ejercicios de Pascal

Publicado por ramon (2113 intervenciones) el 13/08/2017 14:00:22
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
{A ver si esto ayuda }
 
 
 program edades;
  uses
     crt;
  const
      eda = 24;
      n = 5;
  type
     persona = record
             nombre : string[30];
             sexo   : string[10];
             edad   : integer;
             peso   : real;
             colorp : string[15];
             colorpi: string[20];
             coloroj: string[20];
             nacionalid : string[50];
             telefono : string[16];
         end;
 
    var
      arreglo : array[1..n] of persona;
      cont : integer;
      pers : persona;
      tew : char;
 
   procedure  entradas(var pe : persona);
   begin
      clrscr;
      writeln('  Entrada Datos Persona');
      writeln;
      write('Nombre       : ');
      readln(pe.nombre);
      write('Sexo         : ');
      readln(pe.sexo);
      write('Edad         : ');
      readln(pe.edad);
      write('Peso         : ');
      readln(pe.peso);
      write('color pelo   : ');
      readln(pe.colorp);
      write('color piel   : ');
      readln(pe.colorpi);
      write('color ojos   : ');
      readln(pe.coloroj);
      write('nacionalidad : ');
      readln(pe.nacionalid);
      write('telefono     : ');
      readln(pe.telefono);
      end;
 
  procedure presentamallores24(nn : integer);
  var
   h : integer;
  begin
     for h := 1 to nn do
     if arreglo[h].edad > 24 then
     begin
        writeln('  Datos De Mallores 24 A¤os');
        writeln;
        writeln('  ',arreglo[h].nombre);
        writeln('  ',arreglo[h].sexo);
        writeln('  ',arreglo[h].edad);
        writeln('  ',arreglo[h].peso:0:2);
        writeln('  ',arreglo[h].colorp);
        writeln('  ',arreglo[h].colorpi);
        writeln('  ',arreglo[h].coloroj);
        writeln('  ',arreglo[h].nacionalid);
        writeln('  ',arreglo[h].telefono);
        writeln;
        writeln('  Pulse Una Tecla');
        readkey;
        clrscr;
     end;
  end;
 
 
  begin
    cont := 1;
    repeat
     entradas(pers);
     arreglo[cont] := pers;
     cont := cont + 1;
     if cont > n then
     cont := n;
     writeln;
     writeln('  Desea Entrar Mas [S/N]');
     repeat
         tew := upcase(readkey);
     until tew in['S','N'];
     clrscr;
   until tew = 'N';
    presentamallores24(cont - 1);
  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
Revisar política de publicidad