serie de ejercicios en prolog

____________________________________________

(defun ncifra (n)
  (setq suma 0)
  (while (> n 0)
    (setq r( mod n 10))
    (setq n( / n 10 ))
    (setq suma( + suma r))
  )
)


(ncifra 45)
____________________________________________


(defun par(a)
 (setq r (mod a 2))
  (if (= r 0) 'es_par  'es_impar)
)

(par 6)

Da como resultado si un numero n es multiplo de m

Da como resultado si un numero n es multiplo de m


import java.io.*;

class problm_12{

public static void main(String args[])throws IOException

{

Numero factorial C++

Numero factorial C++

#include <iostream.h>
using namespace std;
unsigned int factorial(int);
int permutacion(int);
int combinacion(int);
int main(){
int x,y;
cin>>x;
y=factorial(x);
cout<<"n El factorial de "<<x<<" es: "<<y;


return 0;

}
unsigned int factorial(int n){

if(n==0||n==1)
return 1;
return n*factorial(n-1);
}

int permutacion(int n, int r){
return factorial(n)/factorial(n-1);
}

int combinacion(int n, int r){
return factorial(n)/(factorial(n-1)*factorial(r));
}

encontrar el dia año y mes ingresando el numero de dias

encontrar el dia año y mes ingresando el numero de dias

import java.io.*;

class problm19{

public static void main(String[] args)throws IOException

{

BufferedReader in=new BufferedReader(new InputStreamReader (System.in));

System.out.print("Ingrese el dia:");

double a =Double.valueOf(in.readLine().trim()).doubleValue();

<!--more-->

System.out.print("Ingrese el año:");

double b =Double.valueOf(in.readLine().trim()).doubleValue();

if (a<=31)

{ System.out.println(a+"/ "+01+"/ "+b);

}

else if(a<=59)

{a=a-31;

System.out.println(a+"/ "+02+"/ "+b);

}

else if(a<=90)

{a=a-59;

System.out.println(a+"/ "+03+"/ "+b);

}

else if(a<=120)

{ System.out.println(a+"/ "+04+"/ "+b);

}

else if(a<=151)

{a=a-120;

System.out.println(a+"/ "+05+"/ "+b);

}

else if(a<=181)

{a=a-151;

System.out.println(a+"/ "+06+"/ "+b);

}

else if(a<=212)

{a=a-181;

System.out.println(a+"/ "+07+"/ "+b);

}

else if(a<=243)

{a=a-212;

System.out.println(a+"/ "+8+"/ "+b);

}

else if(a<=274)

{a=a-243;

System.out.println(a+"/ "+9+"/ "+b);

}

else if(a<=304)

{a=a-274;

System.out.println(a+"/ "+10+"/ "+b);

}

else if(a<=334)

{a=a-304;

System.out.println(a+"/ "+11+"/ "+b);

}

else if(a<=365)

{a=a-334;

System.out.println(a+"/ "+12+"/ "+b);

}

else

{double m=a/365;

int j=(int)m;

a=a%365;

b=b+j;

if (a<=31)

{ System.out.println(a+"/ "+01+"/ "+b);

}

else if(a<=59)

{a=a-31;

System.out.println(a+"/ "+02+"/ "+b);

}

else if(a<=90)

{a=a-59;

System.out.println(a+"/ "+03+"/ "+b);

}

else if(a<=120)

{ System.out.println(a+"/ "+04+"/ "+b);

}

else if(a<=151)

{a=a-120;

System.out.println(a+"/ "+05+"/ "+b);

}

else if(a<=181)

{a=a-151;

System.out.println(a+"/ "+06+"/ "+b);

}

else if(a<=212)

{a=a-181;

System.out.println(a+"/ "+07+"/ "+b);

}

else if(a<=243)

{a=a-212;

System.out.println(a+"/ "+8+"/ "+b);

}

else if(a<=274)

{a=a-243;

System.out.println(a+"/ "+9+"/ "+b);

}

else if(a<=304)

{a=a-274;

System.out.println(a+"/ "+10+"/ "+b);

}

else if(a<=334)

{a=a-304;

System.out.println(a+"/ "+11+"/ "+b);

}

else if(a<=365)

{a=a-334;

System.out.println(a+"/ "+12+"/ "+b);

}

}

}

}

Lea un numero y obtenga el signo, su parte entera y su parte fraccionaria

Lea un numero y obtenga el signo, su parte entera y su parte fraccionaria

import java.io.*;

class prop15{

public static void main(String[]args)throws IOException

{

BufferedReader in=new BufferedReader(new InputStreamReader(System.in));

System.out.print("ingresar nota de trabajo T:");

double T = Double.valueOf(in.readLine().trim()).doubleValue();

<!--more-->

System.out.print("ingrese nota medio ciclo M:");

double M = Double.valueOf(in.readLine().trim()).doubleValue();

System.out.print("ingrese nota fin del ciclo F:");

double F = Double.valueOf(in.readLine().trim()).doubleValue();

double prom=(T*0.5+M*0.2+F*0.3)/1;

if ((prom<=20)&&(prom>=16))

{

System.out.println("es bueno");

}

else if ((prom<=15)&&(prom>=11))

{

System.out.println("es regular");

}

else if ((prom<=10)&&(prom>=6))

{

System.out.println("es malo");

}

else

{

System.out.println("es una pesimo");

}

}

}

algoritmo factorial de un numero con sentencia while

algoritmo factorial de un numero con sentencia while

<b>//El factorial de un numero se define como el producto de todos los numeros consecutivos desde la unidad asta el numero </b>

//y se denota `por el simbolo !. por ejemplo 4! = 4*3*2*1, teniendo en cuenta esto lea un numero y encuentre su factorial

import java.io.*;

class whiledop4_1{

public static void main(String args[])throws IOException

{

<!--more-->

int n,f,i;

BufferedReader in=new BufferedReader (new InputStreamReader(System.in));

System.out.println("Encuentra el factorial de un numero ");

System.out.println("Ingrese numero ");

n=Integer.parseInt(in.readLine());

f=1;

i=n;

while(i!=0){

f=f*i;

i=i-1;

}

System.out.println(n+"!= "+f);

}

}