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 » necesito resolver ejercicio en turbo pascal es urgente

Pascal/Turbo Pascal - necesito resolver ejercicio en turbo pascal es urgente

Volver
Nuevo Tema
<<>>
 
Vista:

necesito resolver ejercicio en turbo pascal es urgente

Publicado por yecimar (1 intervención) el 02/07/2013 17:25:13
primer ejercicio ---- realice un programa en pascal que lea una distancia en millas marinas y escriba la conversión de las mismas a metros, tomando en cuanta 1 milla marina son 1.852 metros.

segundo ejercicio--- realice un programa en pascal que según los datos de altura de estudiantes de un salón de 30 alumnos, las siguientes estadísticas:

- los que están entre 1.20 y 1.50 mts
-los que están entre 1.50 y 1.60 mts
-los que miden mas de 1.60 mts
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

necesito resolver ejercicio en turbo pascal es urgente

Publicado por ramon (2158 intervenciones) el 05/07/2013 15:10:19
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
{A ver si esto te ayuda}
 
program ejercicios;
 uses
    crt;
  const
  milla = 1852;
  alumno = 30;
  altu1 = 1.20;
  altu2 = 1.51;
  altu3 = 1.61;
  var
    metros : real;
    altura : array[1..alumno] of real;
    al : integer;
    al1, al2, al3 : integer;
 
  procedure millas_a_metros;
  var
    millas : real;
   begin
      clrscr;
      writeln;
      write('  Entre Millas : ');
      readln(millas);
      writeln;
      writeln('  Las Millas Son : ',millas * milla:0:2,' Metros');
   end;
 
   procedure genera_alturas;
   var
      l, g, i : integer;
      h : real;
    begin
       g := 1;
       randomize;
     repeat
          h := 0;
          i := random(1) + 1;
          l := random(4) + 1;
          h := i;
          h := h + frac((l / 1.30));
          altura[g] := h;
          g := g + 1;
     until g > alumno;
    end;
 
   procedure resultmillas;
   begin
      clrscr;
      writeln('**** Conversion Millas Marinas En Metros ****');
      writeln;
      millas_a_metros;
      writeln;
      writeln('<<<<< Pulse Una Tecla >>>>>>');
      readkey;
   end;
 
   procedure resultadoalturas;
   begin
      clrscr;
      genera_alturas;
      writeln;
      al1 := 0;
      al2 := 0;
      al3 := 0;
      for al := 1 to alumno do
      begin
      if (altura[al] >= altu1) and (altura[al] < altu2) then
      al1 := al1 + 1;
      if (altura[al] >= altu2) and (altura[al] < altu3) then
      al2 := al2 + 1;
      if altura[al] >= altu3 then
      al3 := al3 + 1;
     end;
     writeln('**** Altura De Los Estudiantes ****');
     writeln;
     for al := 1 to alumno do
     write(' ',altura[al]:0:2);
     writeln;
     writeln;
     writeln('**** Estadistica de Altura Estudiantes ****');
     writeln;
     writeln('>>>> Estudiantes de ',altu1:0:2,' A ',altu2:0:2,' : ',al1);
     writeln('>>>> Estudiantes de ',altu2:0:2,' A ',altu3:0:2,' : ',al2);
     writeln('>>>> Estudiantes de ',altu3:0:2,' A ',2.5:0:2,' : ',al3);
     writeln;
     writeln('<<<<< Pulse Una Tecla >>>>>>');
     readkey;
   end;
 
  procedure menu;
  var
    tecla : char;
    sal : boolean;
  begin
     sal := false;
   repeat
       clrscr;
       writeln('******* Menu Jeneral ********');
       writeln;
       writeln('   1 = Conversion de Millas Marinas a Metros');
       writeln('   2 = Estadistica Altura De Estudiantes');
       writeln('   3 = Salir');
       writeln;
       writeln('<<<<< Elija Opcion >>>>>>');
     repeat
       tecla := readkey;
     until tecla in['1','2','3'];
  case tecla of
 '1' : resultmillas;
 '2' : resultadoalturas;
 '3' : sal := true;
  end;
   until sal = true;
  end;
 
  begin
      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