cLase tipos de datos (parte 2/2)

cLase tipos de datos (parte 1/2)

Reporte #8

Este es un codigo en el lenguaje GO.

CODIGO

package main
func main() {
      adder :=(func(x, y int) int { return x + y })
        const N = 100
        var reqs [N]
for i:= 0; i < N; i++ {
            req := &reqs[i]
            req.x = i
            req.y = i + N
            req.replyc = make(chan int)
            adder <- req
        }
     for i := N-1; i >= 0; i-- {   // doesn't matter what order
            if <-reqs[i].replyc != N + 2*i {
                println("fail at", i)
            }
        }
       println("done")
    }
IMAGEN

El codigo tiene un error el cual no puedo encontrar, seguire buscando para ver si lo puedo corregir.

Y este es un codigo mas sencillo es una multiplicación.

CODIGO

package main
func multi(x int, y int) (multiplicacion int){
multiplicacion = x * y
return
}
func main(){
x := 8
y := 6
multiplicacion := multi(x, y)
println("multiplicacion= ", multiplicacion)
}
IMAGEN

Bibliografia:
http://golang.org/

Paola Cantú Agilar 1429400

Reporte #7

Este es mi reporte #7, es hacerca de lenguajes orientados a objetos, el primer lenguaje que utilice es el de Java.


JAVA
Este es un codigo que nos pregunta la edad, para ver si podemos entrar o no a cierto lugar.

CODIGO

import java.util.Scanner;
public class edades{
public static void main(String args[]){
int x;
Scanner teclado=new Scanner(System.in);
System.out.println("¿Cual es tu edad?");
x=teclado.nextInt();
if(x>=18)
System.out.println("Puedes entrar");
else
System.out.println("No puedes entrar");
}
}

                                     

Y este es un codigo de la serie de Fibonacci

CODIGO

import java.util.*;

public class Serie

{

 public static void main(String args[])

    {

int x=0;

int y=1;

int p=0;

int num;

        Scanner scan= new Scanner(System.in);

         System.out.print("\n\t¿Cuantos dígitos deseas tener en la serie?: ");

         num=scan.nextInt();

         System.out.print("\nEsta es la serie de Fibonacci:\n\n");

         System.out.print("0 ");

        for (int i=1;i<num;i++)

        {

            x=y;

            y=p;

            p=x+y;

            System.out.printf("%d  ",p);

        }

    }

}

IMAGEN

y este es un codigo en c++

#include <iostream.h>
#include <stdlib.h>
main() {
int in,suma,x,c,numero;
in=0;
suma=1;
 x=0;
 c=0;
cout<<"\n\tCuantos digitos deseas tener en la serie?: ";
cin>>numero;
cout<<"\nEsta es la serie de fibonnacci:\n";
if (numero>0)
 {
 if(numero==1)
 cout<<endl;
else
{
cout<<endl<<in<<"\n,"<<suma<<"\n,";
while (c<numero-2)
{
c++;
x=in+suma;
cout<<x<<"\n,";
in=suma;
suma=x;
}
}
}
system("PAUSE");
return 0;
}

IMAGEN

Y por ultimo este es un programa que nos muestra las tablas de multiplicar.

CODIGO

#include<stdlib.h>
#include<iostream.h>
#include<conio.h>
int main()
{
    int i,T,j;
    cout<<"\t\t**Tablas de Multiplicar del 1 al 10**";
    cout<<"\n\n-------------------------------------------------------------------------------\n";
    for(j=1;j<=10;j++)
    {
                      for(i=1; i<=5; i++)
                      {
                      T=j*i;
                      cout<<i <<" x " <<j <<" = " <<T <<"\t";
                      }
    }
    cout<<"\n";
    for(j=1;j<=10;j++)
    {
                      for(i=6; i<=10; i++)
                      {
                      T=j*i;
                      cout<<i <<" x " <<j <<" = " <<T <<"\t";
                      }
    }
    cout<<"-------------------------------------------------------------------------------\n";
    getche();
return 0;
}

IMAGEN

Este es mi reporte espero que cumpla con lo necesario.

Paola Cantú Aguilar 1429400

Reporte #6: Lenguajes Imperativos

Bueno este es mi reporte #6, tenemos que hacer 1 programa en 4 lenguajes diferentes.

1.- FORTRAN

Este es el codigo de un programa que nos da la suma de 2 valores.

program SUMA

 real A, B, C

     write (*,*) 'Valor de a:'

     write (*,*) 'Valor de b:'

     read (*,*) A, B

     C = A + B

     write (*,*) 'La suma es: ', C

     end program

Imagen

Este es un programa que nos pide el perimetro de un rectangulo.

CODIGO

program rectangulo

real a,b

      write (*,*) 'Dame el valor de a:'

      write (*,*) 'Dame el valor de b: '

      read  (*,*) a

      read (*,*) b

      Perimetro = 2*a+2*b

      write (*,*) 'El perimetro del rectangulo es = ', perimetro

      stop

      end program

IMAGEN

Y por ultimo un programa que nos pide el area del rectangulo.

CODIGO

program rectangulo

  real a,b

      write (*,*) 'Da el valor de a:'

      write (*,*) 'Da el valor de b: '

      read  (*,*) a

      read (*,*) b

      area = b*a

      write (*,*) 'El area del rectangulo es: = ', area

       stop

      end program

IMAGEN

2.- PASCAL

Este es un programa que nos adivina un numero.

CODIGO

program adivina_numero;

uses crt;

var numero, n, i: integer;

 begin

clrscr;

writeln(‘Adivina el numero, esta entre 0 y 15’);

randomize;

numero := random(16);

i := 0;

repeat

i := i + 1;

write(‘Dame un numero: ‘);

readln(n);

until numero=n;

writeln  (‘si adivinaste!’);

writeln(‘El numero era:  ’, numero);

writeln(‘Adivinaste en el intento numero: ‘, i);

readkey;

end.

IMAGEN

Y este es un codigo que nos da el promedio de ciertos alumnos.

CODIGO

program promedio_alumnos;

uses crt;

var cantidad, cont, numero, s:integer;

begin

clrscr;

s:=0;

writeln(‘Numero de alumnos: ’); Read(Cantidad);

for cont:=1 to cantidad do

begin

writeln(‘Calificacion: ’, cont,’:’);

read(numero);

s:=s+numero;

end;

writeln(‘El promedio total de los alumnos es: ’, s/cantidad:0:2);

Readkey;

end.

IMAGEN

3.- C

Este en un programa que nos da el area y el perimetro.

CODIGO
#include<stdio.h>
#include<conio.h>
#include<math.h>
main()
{
      float RADIO, AREA, PERIMETRO, PI=3.1416;
      printf("Numero del RADIO: ");
      scanf("%f", &RADIO);
      AREA=PI*(pow(RADIO,2));
      printf("El resultado de la operacion es: %.6f \n", AREA);
      PERIMETRO=(2*PI*RADIO);
      printf("El PERIMETRO sera: %.6f", PERIMETRO);
      getch();
}

IMAGEN

Este programa nos convierte la cantidad de dolares a pesos mexicanos.
CODIGO

#include<stdio.h>
#include<conio.h>
main()
{
      float DOLARES, PESOS;
      printf("Introduce el valor de dolares a convertir: \n");
      scanf("%f", &DOLARES);
      PESOS=(DOLARES*12.95);
      printf("El resultado de la convercion es: %f", PESOS);
      getch();
}

IMAGEN

4.- ALGOL

Este es un programa que hace la conversion de grados fahrenheit a celsius.

CODIGO

fahrenheit

begin

real fahr;
print ("Degrees Fahrenheit: ");
read (fahr);
print ("The degrees Celsius are: ", (fahr-32.0) * 5.0/9.0);

end

finish

Bueno este es m reporte y espero que cumpla con el objetivo.

Paola E. Cantú Aguilar 1429400

Reporte #4: Lenguajes Funcionales!

En este reporte aprenderemos acerca de los lenguajes funcionales.

1.- Este es un código en Erlang

-module(probabilidad).
-export([fac/1, permutacion/2, combinacion/2]).
fac(1) -> 1;
fac(N) -> N * fac(N - 1).
permutacion(N,X) -> ((fac(N)) / (fac(N - X))).
combinacion(N,X) -> ((fac(N)) / (fac(N - X) * fac(X))).

2.- Este es un código en R

x <- seq(1:20)
y <- c
(3,2.5,6,1.38,2.25,2.36,2.14,1.38,3.5,4.3,3.8,1.95,1.78,3.24,2.67,2.01,2,3.1,2.46,1.56)
par(bg = "lightyellow", col.axis = "blue", mar = c(4, 4, 3, 1))
plot(x, y, xlab = "Agente", ylab = "Tiempos (min)",
xlim = c(0, 20), ylim = c(0, 7), pch = 18, col = "red", bg = "black")
title("Tiempos en llamadas por agente")

Bueno este es mi reporte #4, espero que cumpla con los objetivos requeridos.

Reporte #5: Lenguajes Logicos!

El problema logico que me toco resolver se llama Sombreros Blancos y Negros y es el siguiente:

Loa Caníbales emboscan a un safari en la selva y capturan a tres hombres. Los caníbales dan a los hombres una oportunidad única para escapar sin ser comidos.

Los cautivos se alinean en orden de altura, y están atados a estacas. El hombre en la parte trasera puede ver las espaldas de sus dos amigos, el hombre en el medio se puede ver la espalda del hombre en el frente, y el hombre en el frente no puede ver a nadie. Los caníbales muestran a los hombres cinco sombreros. Tres de los sombreros son de color negro y dos de los sombreros son de color blanco.

Se les colocan vendas sobre los ojos de cada hombre y un sombrero se coloca en la cabeza de cada hombre. Los dos sombreros sobrantes están ocultos. Las vendas se retiran y se dice a los hombres que si uno de ellos se puede adivinar qué color de sombrero que lleva puesto que todos pueden salir ileso.

El hombre en la parte trasera que puede ver los dos sombreros de sus amigos, pero no la suya, dice, "no sé". El hombre de mediana que puede ver el sombrero del hombre en el frente, pero no la suya, dice, "no sé". El hombre frente a quien no puede ver el sombrero de nadie dice "¡Lo sé!"

¿Cómo sabía el color de su sombrero y de qué color era?

SOLUCION

El color del sombrero del hombre es negro porque sabía que el primer hombre no vio dos sombreros blancos ( si ubiera visto los dos sombreros blancos sabria que el color del sombrero seria negro puesto que solamente hay dos blancos) y el segundo hombre no vio un sombrero blanco, porque si él vio un sombrero blanco, el segundo hombre hubiera sabido que su sombrero era negro.

Programa en Prolog:

Este es un pequeño programa en Prolog:

domains

      palabra=symbol

predicates

      animales(palabra)

      utiles_escolares(palabra)

      personas(palabra)

clauses

      animales(leon).

      animales(pato).

      utiles_escolares(colores).

      personas(juan).

----------------------------------------------------

predicates
       animal_domestico(X) :- mascota(X), ladra(X)
       animal_domestico(X) :- mascota(X), maulla(X)

clauses
      mascota(pita).
      mascota(fibi).
      mascota(coby).

      ladra(pita)
      maulla(fibi)
      ruge(coby)

----------------------------------------------------

predicates

      comida(alimento)

clauses

      alimento(cereal).

      alimento(verduras).

      alimento(leche).

      alimento(huevo).

      alimento(pollo).

      alimento(carne).

      alimento(helado).

Espero que este reporte cumpla con lo requerido.

Paola Cantú 1429400