daily pastebin goal
4%
SHARE
TWEET

Untitled

a guest Mar 8th, 2018 49 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. /*
  2.     Ejercicio 4.
  3.  */
  4.  
  5. program ej4;
  6.  
  7. /*
  8.     No creo que haga falta adornarlo para que a la salida diga
  9.     "x" menor que "y" menor que "z", y espacios entre los numeros
  10.     tampoco lo veo necesario. m* m-1 * m-2 * m-n+1 7 y 5
  11. */
  12.  
  13. procedure comb(x:int,y:int)
  14. {
  15.     writeln(x/y);
  16. }
  17.  
  18. function ordenar2(ref a: int,ref b: int) :int
  19. {
  20.     if(a > b){
  21.         return a;
  22.        
  23.     }else{
  24.         return b;
  25.        
  26.     }
  27.  
  28. }
  29.  
  30. procedure main()
  31.     a:int;
  32.     b:int;
  33.     e:int;
  34.     ex:int;
  35.     i:int;
  36.     d:int;
  37.     aux:int;
  38.     m:int;
  39.     n:int;
  40.     x:int;
  41.     y:int;
  42.    
  43. {
  44.     writeln("Cantidad");
  45.     read(a);
  46.     e = 0;
  47.     while (a > 0){
  48.         writeln("Comb1");
  49.         read(m);
  50.         writeln("Comb2");
  51.         read(n);
  52.         d = m;
  53.         for (i = 0, i < (n-1)){
  54.             m = m*(n - (i-1));
  55.            
  56.         }
  57.         if (n > 1){             /*NO PUEDE SER 0!*/
  58.         b = n;
  59.             for (i = 1, i < b){
  60.             n = n*i;
  61.             }
  62.        
  63.         }
  64.     writeeol();
  65.     writeln(m/n);
  66.     x =(m/n);
  67.         if (e > 1){
  68.             writeeol();
  69.             writeln(ordenar2(x,aux));
  70.            
  71.         }
  72.     e = e +2;
  73.     a = a - 1;
  74.     aux = x;
  75.     }
  76.    
  77.    
  78. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top