Pascal/Turbo Pascal - ayuda con programa urgente

   
Vista:

ayuda con programa urgente

Publicado por Gerant gerant7@hotmail.com (1 intervención) el 03/07/2012 06:12:35
: necesito que alguien me ayude con el siguiente programa 30 minionseros fueron capturados por 40 canibales a las 2 de la tarde los 40 canibales se comen 1 misionero cada hora y despues del paso de 1 hora un canibal se retira afortunadamente para los misioneros tarzan esta en camino y se encuentra a 40 kilometos de distancia recorre 3 kilometros por hora durante el dia y en la noche 2 kilometros el dia comineza a las 6 de la mañana a 6 de la tarde sin embargo tarzan necesita al menos 3 horas de sueño las cuales seran de 1 de la mañana en adelante cuantos misioneros logra salvar
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 programa urgente

Publicado por ramon (2072 intervenciones) el 04/07/2012 17:13:26
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
{Cuento que tarzan empieza el camino alas 2}
 
program canimisi;
 uses
    crt;
  const
     dia = 18 - 14;
     andadia = 3;
     noche = (24 - 18) + 1;
     andanoche = 2;
     resto = 2;
     kilometros = 40;
     capturados = 30;
 
  function kilometrosdia : integer;
  begin
     kilometrosdia := dia * andadia;
  end;
 
  function kilometrosnoche : integer;
  begin
     kilometrosnoche := (noche * andanoche) + (resto * 2);
  end;
 
  function restodia : integer;
  begin
      restodia := 40 - (kilometrosdia + kilometrosnoche);
  end;
 
  function horasempleadas : integer;
  begin
      horasempleadas := (dia + noche + resto + (restodia div 3));
  end;
 
  function misionerossalvados : integer;
  begin
      misionerossalvados := capturados - (horasempleadas + 3);
  end;
 
  begin
     clrscr;
        writeln('Kilometros Dia          = ',kilometrosdia,' Km');
        writeln('Kilometros Noche        = ',kilometrosnoche,' Km');
        writeln('Resto Kilometros Dia    = ',restodia,' Km');
        writeln('Horas Empleadas Totales = ',horasempleadas,' H');
        writeln('Misioneros Salvados     = ',misionerossalvados);
     readln;
  end.
 
{a ver si vale}
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