Pascal/Turbo Pascal - necesito ayuda con este programa es para mañana

   
Vista:

necesito ayuda con este programa es para mañana

Publicado por fernando (5 intervenciones) el 25/06/2013 21:36:42
un zoológico pretende determinar el porcentaje de animales que hay en las siguientes tres categorías de edades: de 0 a 1 año, de mas de 1 año y menos de 3 y de 3 o mas años. El zoológico todavía no esta seguro del animal que va a estudiar. Si se decide por elefantes solo tomara una muestra de 20 d e ellos; si se decide por jirafas, tomara 15 muestras y si son chimpancés tomara 40
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 ayuda con este programa es para mañana

Publicado por ramon (2072 intervenciones) el 25/06/2013 23:37:44
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
{Espero esto sirva}
 
 program zoologico;
  uses
     crt;
   const
     numero = 40;
     entrados : integer = 0;
   type
     reganimal = record
           tipo : string[80];
           edad : integer;
         end;
     animales = array[1..numero] of reganimal;
   var
     animal : animales;
     cont : integer;
 
   procedure entradadatos;
   var
     asta : integer;
   begin
      clrscr;
      write('     Cuantos Animales max 40 : ');
      readln(asta);
      for cont := 1 to asta do
      begin
         write('   Entre Animal Raza : ');
         readln(animal[cont].tipo);
         write('   Entre Edad        : ');
         readln(animal[cont].edad);
      end;
       entrados := asta;
   end;
 
   procedure presentaresultados;
   var
     d0, d1, d2 : integer;
   begin
      d0 := 0;
      d1 := 0;
      d2 := 0;
      for cont := 1 to entrados do
      begin
         if animal[cont].edad in[0..1] then
         d0 := d0 + 1;
         if animal[cont].edad = 2 then
         d1 := d1 + 1;
         if animal[cont].edad > 3 then
         d2 := d2 + 1;
      end;
        clrscr;
        writeln('    Los Animales Segun Edad Son');
        writeln('    De 0 A 1 : ',d0);
        writeln('    De 2     : ',d1);
        writeln('    De 3 A + : ',d2);
        writeln;
        writeln('    Pulse Una Tecla');
        readkey;
   end;
 
   begin
       entradadatos;
       presentaresultados;
   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