Pascal/Turbo Pascal - Ayuda con ejercicio Pascal

   
Vista:

Ayuda con ejercicio Pascal

Publicado por Jass (2 intervenciones) el 12/01/2013 00:06:18
Que tal, necesito ayuda con este ejercicio, pues apenas estoy iniciando y quisiera saber como se resuelve.. Si me pueden ayudar, Gracias

**El ingeniero inspector de la construcción de un puente realiza diariamente (de lunes a viernes) una prueba de resistencia a la comprensión del concreto armado que se está empleando en la obra. Ha registrado esta información por cuatro semanas. Escriba un programa en Pascal que le permita al ingeniero determinar:

* La resistencia promedio semanal a la compresión del concreto armado

* La resistencia promedio a la compresión de concreto armado, durante las 4 semanas

* El mayor registro de resistencia a la compresión del concreto armado que realizo durante las 4 semanas

* Si las normas indican que la resistencia a la compresión del concreto armado no puede ser menor a 500Kg/cm2. ¿ cuántas mediciones realizadas por este ingeniero no cumplen la norma?
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 con ejercicio Pascal

Publicado por ramon (2072 intervenciones) el 13/01/2013 17:02:17
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
{a ver si con esto te ayudamos un poco }
 
program prueing;
  uses
     crt;
  const
      resist = 500.00;
  var
     semanas : array[1..4,1..5] of real;
     aux, lunes, martes, miercoles, jueves, viernes : real;
     p, k, md : integer;
     mayor : array[1..20] of real;
 
  procedure entradadatos(n : integer);
  begin
      writeln('La Semana Es = ',n);
      writeln;
      write('Entre datos del Lunes     : ');
      readln(lunes);
      semanas[n,1] := lunes;
      write('Entre datos del Martes    : ');
      readln(martes);
      semanas[n,2] := martes;
      write('Entre datos del Miercoles : ');
      readln(miercoles);
      semanas[n,3] := miercoles;
      write('Entre datos del Jueves    : ');
      readln(jueves);
      semanas[n,4] := jueves;
      write('Entre datos del Viernes   : ');
      readln(viernes);
      semanas[n,5] := viernes;
   end;
 
   function mediasemanal(n : integer) : real;
   var
     cont : integer;
     total : real;
   begin
      total := 0.0;
      mediasemanal := 0.0;
      for cont := 1 to 5 do
      total := total + semanas[n,cont];
      mediasemanal := total / 5;
   end;
 
   function mediacuatrosemanas : real;
   var
      media : real;
      j, cont, t : integer;
   begin
       j := 1;
       mediacuatrosemanas := 0.0;
       media := 0.0;
       for t := 1 to 4 do
         for cont := 1 to 5 do
         begin
            media := media + semanas[t,cont];
            mayor[j] := semanas[t,cont];
            j := j + 1;
         end;
       mediacuatrosemanas := media / (4 * 5);
   end;
 
   procedure entradamedidas;
   var
      sem : integer;
   begin
      clrscr;
      writeln('Entrada De Las Medidas De Las Cuatro Semanas');
      writeln;
      for sem := 1 to 4 do
      entradadatos(sem);
   end;
 
   procedure presenta_media_semanales;
   begin
      writeln('La Media Semanal Fueron ');
       for md := 1 to 4 do
       writeln('Semana :',md,'  ',mediasemanal(md):8:2);
   end;
 
   procedure presenta_media_de_cuatro_semanas;
   begin
       writeln('La Media De Las Cuatro Semanas Es');
       writeln(mediacuatrosemanas:8:2);
   end;
 
   procedure presenta_mayor_medicion;
   begin
      writeln('La Mayor Medicion De Las Cuatro Semanas Fue');
       for p := 1 to 20 do
         for k := 20 downto p + 1 do
         if mayor[p] < mayor[k] then
         begin
            aux := mayor[p];
            mayor[p] := mayor[k];
            mayor[k] := aux;
         end;
         writeln('Medicion : ',mayor[1]:8:2);
     end;
 
   procedure presenta_valor_que_no_cumple_las_normas;
   begin
      writeln('Los Valores Que No Cumplen Las Normas Son');
      writeln;
      for k := 1 to 20 do
      if mayor[k] < resist then
      writeln('Incumple Norma : ',mayor[k]:8:2);
   end;
 
 
   begin
       entradamedidas;
       clrscr;
       writeln;
       presenta_media_semanales;
       writeln;
       presenta_media_de_cuatro_semanas;
       writeln;
       presenta_mayor_medicion;
       writeln;
       presenta_valor_que_no_cumple_las_normas;
       writeln;
       writeln('Pulse Enter');
       readln;
     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