jueves, 11 de noviembre de 2010

LENGUAJES IMPERATIVOS

El programa mas conocido o mas enseñado aqui es c/c++ por lo cual aqui dejo el primer programa en c

  AREA DEL TRIANGULO

#include <stdio.h>
#include <math.h>
#include <conio.h>
main()

{
      float b,h,a;
      int opcion;
      opcion=1;
      while (opcion==1)
      {
           printf ("Dame la base: ");
           scanf ("%f", &b);
           printf ("Dame la altura: ");
           scanf ("%f", &h);
          a=(b*h)/2;
          printf ("El area es: %.2f",a);
          printf ("\n desea saber otra area : \nSi=1 \nNo=0");
          scanf("%d", &opcion);
      }
getche();
return 0;
}


otro programa es en pascal la suma de un numero N veces





CLASE "REGLA DE SIMPSON"

PROBLEMA LÓGICO

El problema lógico que yo tome fue el de Montly Hall, quien es un presentador en un programa televisivo algo parecido al programa de chavelo donde te "catafixia" un premio por otro premio poco favorable, en este caso una cabra que estan ocultas detrás de dos puertas. dejando una tercera puerta para un auto. si habiendo escogido una puerta, el conductor revela una puerta donde esta escondida una cabra y te da la opcion de cambiar de puerta, para ganar el auto, ¿que harias? ¿cambiarias? ¿es lo mismo?

para la solución de este problema; al principio teníamos que elegir una puerta, si son 3 tenemos 1/3 de posibilidades de elegir la que tiene el auto, al revelar el conductor una puerta con una cabra nos quedan 2/3 de posibilidades de que nosotros hayamos escogido la otra cabra, por eso es recomendable cambiar de puerta.

LENGUAJES FUNCIONALES

Los lenguajes funcionales se componen solo por definición de funciones, es decir funciones matemáticas. algunos de estos lenguajes son: R, Haskell, Lisp, entre otros.


Un ejemplo en Haskell del factorial serian simplemente dos lineas
factorial 0 = 1
factorial n = n * factorial (n - 1)



Un ejemplo en Erlang del factorial seria
-module(fact).    %  el archivo, el modulo,  y el nombre del archivo deben coincidir 
-export([fac/1]). 
fac(0) -> 1; % Si es 0, entonces devuelve 1
fac(N) -> N * fac(N-1).



Un ejemplo en Objetive Calm de la serie de fibonacci seria
let fib n =
  let rec fib_aux n a b =
    match n with
    | 0 -> a
    | _ -> fib_aux (n - 1) (a + b) a
  in
  fib_aux n 0 1;;