Pascal/Turbo Pascal - Una ayudita más!!

   
Vista:

Una ayudita más!!

Publicado por Miguel (6 intervenciones) el 13/12/2012 05:52:17
Muy buenas a todos, pasando haber si me pueden dar una ayuda con estos 2 programas.

1: Realizar un programa que insertando un numero por teclado indique si el numero es primo.

2:En un viaje se encuentra con un prosupuesto de 100 deben de ir 100 personas, las (Mujeres valen 10) los ( Hombres valen 5) y los ( Niños valen 0.5). Realizar un programa que indique una combinación de hombres, mujeres y niños que cubran la cantidad de personas y utilize el presupuesto exacto.

Espero y me puedan ayudar, muchas gracias!!
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

Una ayudita más!!

Publicado por ramon (2072 intervenciones) el 13/12/2012 22:40:30
Disculpa la información que pones en el dos es correcto 100 y 100 no encuentro un equilibrio
entre importe cantidad, me puedes ratificar el echo.
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

Una ayudita más!!

Publicado por Angel Luis (1 intervención) el 14/12/2012 07:09:50
Es una combinacion entre hombre, mujer y niño que tede el presupuesto exacto 100 y tambien que abarque 100 personas no importa si son mas de algunos solo que te de 100 pero que te indique la combinacion!
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

Una ayudita más!!

Publicado por ramon (2072 intervenciones) el 14/12/2012 20:44:33
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
{De momento esto lo otro después}
 
program numeros;
  uses
     crt;
  const
     maxn = 1000;
 
  var
    nume, tt, ii : integer;
 
  procedure primo;
  var
    prim : integer;
    fin : boolean;
  begin
      clrscr;
      writeln('    **** Verificacion De Numeros Primos ****');
      window(1,5,79,24);
      fin := false;
   repeat
      clrscr;
      tt := 0;
      write('  Entre Un Numero 1 Al 1000 [0] Termina : ');
      readln(prim);
      writeln;
      if prim > 0 then
      begin
      for nume := 1 to maxn do
      begin
         if prim mod nume = 0 then
         begin
            tt := tt + 1;
         end;
      end;
      if tt = 2 then
      writeln(' El Numero [ ',prim,' ] Es Primo')
    else
      writeln(' El Numero [ ',prim,' ] No Es Primo');
      writeln;
      writeln(' <<<< Pulse Una Tecla >>>>');
      readkey;
    end
  else
     fin := true;
   until fin = true;
  end;
 
 
  begin
     primo;
  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

Una ayudita más!!

Publicado por ramon (2072 intervenciones) el 15/12/2012 13:27:14
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
{Lo otro  básico}
 
program calcula;
 uses
    crt;
 const
     pasajeros = 100;
     euros = 100;
 var
   sumas, resto, mujer, hombre, nino : real;
   nmuj, nhom, nnin : real;
  begin
      clrscr;
      mujer := 0;
      hombre := 0;
      nino := 0;
      sumas := euros / 0.5;
      if sumas > 100 then
      resto := (sumas - 100) * 0.5;
      nino := (sumas - 100);
      nhom := resto / 5;
      hombre := nhom;
      nino := nino - nhom;
      resto := 100 - ((nino * 0.5) + (nhom * 5));
      if resto > 0 then
       if (resto + 5) = 10 then
       begin
          mujer := mujer + 1;
          hombre := hombre - 1;
          resto := 100 - ((mujer * 10) + (nino * 0.5) + (hombre * 5));
       end;
      writeln('  Inicio Euros = ',100);
      writeln('  Ni¤os  0.5 E = ',nino:0:0,'  Pasajeros Ni¤os');
      writeln('  Mujeres 10 E = ',mujer:0:0,'   Pasajeros Mujeres');
      writeln('  Hombres  5 E = ',hombre:0:0,'   Pasajeros Hombres');
      writeln('  Qeda Euros = ',resto:0:0);
      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

Una ayudita más!!

Publicado por Miguel (6 intervenciones) el 16/12/2012 17:22:14
Exacto es asi como dice angel luis gracias por explicarle mejor, una combinacion que abarque 100 entre los hombres, mujer y niños con los datos que emplea pero hay miro que lo resolviste, Muchas gracias de verdad que aki ayudan mucho.. Ramon gracias hombre :D
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