Pascal/Turbo Pascal - Problemas con un programa -.-"

   
Vista:

Problemas con un programa -.-"

Publicado por eduardo (13 intervenciones) el 23/06/2013 16:36:09
Resulta que me mandaron a realizar un programa y pues yo hoy lo termine de realizar compilo y me da bien pero cuando le doy a run simplemente no me da lo que quiero que realice el programa alguien podría revisar en que estoy equivocado ?

Primero que nada el problema dice así:

Un entrenador le ha propuesto a un atleta recorrer una ruta de 5 kilómetros durante 10 días para determinar si es apto para la prueba de 5 kilómetros o debe buscar otra especialidad. Para considerarlo apto debe cumplir por lo menos una de las siguientes condiciones:

- Que en ninguna de las pruebas haga un tiempo mayor a 16 minutos.
- Que al menos en una de las pruebas haga un tiempo mayor a 16 minutos.
- Que su promedio de tiempo sea menor o igual a 15 minutos.

Aquí esta mi programa tal cual lo realice XD :

program Kilometros;
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
uses wincrt;
type
dias=1..10;
var
tiempo:integer;
kilometro:integer;
Ndias:dias;
begin
clrscr;
writeln;
writeln('Kilometros');
writeln(Kilometro);
While kilometro = 5 do
begin
writeln('tiempo');
if tiempo = 16 then
Writeln('Es apto')
else
if tiempo > 16 then
writeln ('Es apto')
else
if tiempo <= 15 then
writeln('Es apto')
else
Writeln('No es apto');
writeln('Pulsa Una Tecla');
readkey;
end;
end.


por favor alguien podría revisarlo y me puede decir en que me equivoque ? le agradecería mucho mucho *-*
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

Problemas con un programa -.-"

Publicado por ramon (2072 intervenciones) el 23/06/2013 18:40:03
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
{Mira esto a ver si te ayuda}
 
 program prueba;
   uses
      crt;
   const
      dias = 10;
      kilome = 5;
      pordia = round(dias div kilome);
 
  var
    pruebas : array[1..dias] of integer;
    i, t, cont : integer;
    menor_igual_15, mallor : integer;
    total, media : integer;
    aptosino : boolean;
 
  begin
     cont := 1;
     menor_igual_15 := 0;
     mallor := 0;
     total := 0;
     media := 0;
     repeat
     clrscr;
     writeln('  Recorrera Diariamente ',pordia,' Kl.');
     writeln;
     write('  Dia Num. [',cont,'] Tiempo : ');
     readln(pruebas[cont]);
     cont := cont + 1;
     until cont > dias;
     for i := 1 to dias do
     begin
       if pruebas[i] > 16 then
        mallor := mallor + 1;
        if pruebas[i] <= 15 then
        menor_igual_15 := menor_igual_15 + 1;
     end;
      if mallor <= 1 then
      begin
       if menor_igual_15 <= 16 then
       begin
           for t := 1 to dias do
           begin
           total := total + pruebas[t];
           end;
           media := total div dias;
           if media > 15 then
           begin
              aptosino := false;
           end
        else
           begin
              aptosino := true;
           end;
       end
     else
         begin
            aptosino := false;
         end;
      end
   else
      begin
         aptosino := false;
      end;
      clrscr;
      writeln;
      if aptosino = false then
      writeln('   Es Apto : No es Apto');
      if aptosino = true then
      writeln('   Es Apto : Si es Apto');
      writeln;
      writeln('   Sus Tiempos Fueron ');
      writeln;
      for i := 1 to dias do
      writeln('  Dia [',i,'] : ',pruebas[i]);
      writeln(' Su Promedio Fue : ',media);
      writeln;
      writeln('  Pulse Una Tecla');
     readkey;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Problemas con un programa -.-"

Publicado por eduardo (13 intervenciones) el 23/06/2013 19:48:05
muchas gracias men resulto exactamente a lo que queria *-*

tremendo fallo que yo tenia no ? XD
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

Problemas con un programa -.-"

Publicado por ramon (2072 intervenciones) el 24/06/2013 19:31:00
Es pero que el fallo sea corregido falta de atención creo.
Pero no te desanimes todos hemos cometido algún que otro fallo es ley de vida suerte.
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