BD @badats - Tumblr Blog

Visit Original Link

Heheyfvfv

domains i=integer* predicates nondeterm lista(i) clauses lista([]). lista([X|Y]):- X mod 2 = 0,write(X),nl, lista(Y); lista(Y). goal lista([2,1,8,5,7,9,11]).

#prolog

domains ii=integer* predicates nondeterm main nondeterm repite lee(integer) major(integer,integer,integer) encontrar_mayor(integer,ii) mayor(integer,integer,ii) mejor(integer,integer,integer) encontrar_menor(integer,ii) menor(integer,integer,ii) clauses main:- repite, lee(E),lee(F),lee(G), major(E,F,G), mejor(E,F,G), fail. lee(X):- write("Ingrese número: "),readint(X). major(A,B,C):- encontrar_mayor(M,[A,B,1]), encontrar_mayor(N,[B,C,1]), encontrar_mayor(Mayor,[M,N,1]),write("El mayor es: ",Mayor),nl. encontrar_mayor(M, [X|Xs]):- mayor(M, X, Xs).

mayor(M, M, []):- !. mayor(X, Y, [Z|Zs]):- Z >= Y,!, mayor(X, Z, Zs).

mayor(X, Y, [Z|Zs]):- Z <= Y, mayor(X, Y, Zs). mejor(A,B,C):- encontrar_menor(M,[A,B,A]), encontrar_menor(N,[B,C,A]), encontrar_menor(Menor,[M,N,M]),write("El menor es: ",Menor),nl. encontrar_menor(M, [X|Xs]):- menor(M, X, Xs).

menor(M, M, []):- !. menor(X, Y, [Z|Zs]):- Z <= Y,!, menor(X, Z, Zs).

menor(X, Y, [Z|Zs]):- Z >= Y, menor(X, Y, Zs). repite. repite:- repite. goal main.

#prolog

domains ii=integer* predicates nondeterm main nondeterm repite lee(integer) major(integer,integer,integer) encontrar_mayor(integer,ii) mayor(integer,integer,ii) mejor(integer,integer,integer) encontrar_menor(integer,ii) menor(integer,integer,ii) clauses main:- repite, lee(E),lee(F),lee(G), major(E,F,G), mejor(E,F,G). lee(X):- write("Ingrese número: "),readint(X). major(A,B,C):- encontrar_mayor(M,[A,B,1]), encontrar_mayor(N,[B,C,1]), encontrar_mayor(Mayor,[M,N,1]),write("El mayor es: ",Mayor),nl. encontrar_mayor(M, [X|Xs]):- mayor(M, X, Xs).

mayor(M, M, []):- !. mayor(X, Y, [Z|Zs]):- Z >= Y,!, mayor(X, Z, Zs).

mayor(X, Y, [Z|Zs]):- Z <= Y, mayor(X, Y, Zs). mejor(A,B,C):- encontrar_menor(M,[A,B,A]), encontrar_menor(N,[B,C,A]), encontrar_menor(Menor,[M,N,M]),write("El menor es: ",Menor,nl). encontrar_menor(M, [X|Xs]):- menor(M, X, Xs).

menor(M, M, []):- !. menor(X, Y, [Z|Zs]):- Z <= Y,!, menor(X, Z, Zs).

menor(X, Y, [Z|Zs]):- Z >= Y, menor(X, Y, Zs). repite. repite:- repite. goal main.

#prolog

DISEÑAR EL SIGUIENTE REPORTE

PAG:999

Boleta de nota codigo xxxxxxx nombre xxxxxxxxxxxxxxx especialidad xxxxxxxxx

codcur nomcurso ep ef promedio obser ================================================================ xxxx xxxxxxxxxxxxxxxx 99 99 99.9 xxxxxxxxx ================================================================ promedio de ciclo 99

addlible amoreno runqry *n union01

I agregar linea CDC cambiar el punto a mas

DC PARA PONER CAMPOS DC9 LO MISMO PERO EN GRUPO

CLR CONVERTIR LINEA DE REGISTRO

CLC CONVERTIR LINEA DE CAMPO

vf visualizar campo

*PAGNBR PAGINAS

F11 DEFINIR VARIABLES

AHIFT F6 +F10 CAMBIAR NOMBRE

STRRLU

UN ALGORITMO PARA IMPRIMIR

DECLARAR ARCHIVOS : REPBOL ->IMPRIMIR UNION01 ->LEER

DECLARA VARIABLE : XCOD LONGITUD 5 SM=0 <Acumulador> CON=0 <Contador> IN33=LEER(UNION01)=APAGADO SI XCOD=CODA ENTONCES PROM=EXP/2+EXF/2 CON++ ESCRIBIR(LINEA2) SINO PROC=SM/CON ESCRIBIR(LINEA3) XCOD=CODA SM<-0 CON<-O ESCRIBIR(LINEA1) FINSI FIN-MIENTRAS

#minicomputadoras

Persona(X,E)

mayor_de_edad(X) <-- persona(X,E), E>18

En prolog:

/* UNIVERSIDAD T D P FACULTAD DE I S E Comentarios en bloque */

goal write("Hola Mundo!!!"). %Mi primer programa en prolog

domains nombre=symbol edad=integer predicates alumno(nombre,edad) clauses %%%%%% H E C H O S %%%%%% alumno(juan,10). alumno(maria,19). alumno(carmen,20). alumno(italo,18). goal alumno(carmen,20).

#prolog

domains n=integer* p=integer predicates nondeterm lista(n,n,p,p,n) nondeterm insertar(p,n,n) clauses insertar(X,L,[X|L]). lista([],[],_,_,L):-write("La nueva lista: ",L),nl. lista([X|X1],[Y|Y1],P,M,L):- P mod 2<>0,P1=P+1,lista(X1,Y1,P1,M,L),!; P mod 2=0,M1=X*Y,P1=P+1, write("El producto es: ",M1),insertar(M1,L,L2) ,nl, lista(X1,Y1,P1,M1,L2),!. goal lista([4,6,9,2,5,11,8],[7,8,3,9,5,3,4],1,1,[]).

#prolog

domains i=integer*

predicates nondeterm ordenar(i,i) nondeterm permutacion(i,i) ordered(i) nondeterm uno(i,integer,i)

goal ordenar([5,3,9,2,8,7],L2).

#prolog

domains i=integer*

predicates mayor(integer,i) compara(integer,integer,i) clauses mayor(M, [X|Xs]):- compara(M, X, Xs). compara(M, M, []):- !. compara(X, Y, [Z|Zs]):- Z >= Y, !, compara(X, Z, Zs). compara(X, Y, [Z|Zs]):- Z <= Y, compara(X, Y, Zs). goal mayor(M, [5,3,9,2,8,7]).

#prolog

proyectos de infersion No Z(S)abuco, SOY POBRE

ARQUITECTURA PROFESORA GAMERO O ADUANET(+1)

ALU(ca#, nombalum, diralum) CUR(cc#, nomcur, cred) ALU-CUR(ca#, cc3, nota)

"Nombres de alumnos matriculados en 'Mate'"

SELECT A.NOMBALUM

FROM ALU AS A, CUR AS C, ALU-CUR AS AC

WHERE A.ca# = AC.ca# and C.cc# = AC.cc# and

C.nomcur = 'MATE'

TEORIA 2 2 MODELAMIENTO FASE 4 NORMALIZACION 2 1 ALGEBRA 4 1 DE 8 EJERCICIOS 5

Visit Original Link

INSTRUCCIONES DEL PIC16F877

I) MANEJO DE INFORMACION

MOVLW Mueve un literal o dato de 8 bit al registro de trabajo W

MOVLW LITERAL

MOVWF Mueve el dato contenido en el registro de trabajo W a cualquier otro registro

MOVWF REGISTRO

MOVFW Mueve el dato contenido en el registro de trabajo W a cualquier otro registro

MOVFW REGISTRO

II) MANEJO DE BITS

BCF Limpia (clear) el bit de un registro

BCF REGISTRO,BIT

BSF Pone a 1 (set) el bit de un registro

BSF REGISTRO,BIT

BTFSS Brinca una línea de programa si el bit de un registro tiene 1.

BTFSS REGISTRO,BIT

BTFSC Brinca una línea de programa si el bit de un registro tiene 0.

BTFSS REGISTRO,BIT

RRF Rota los bits de un registro a la derecha

RRF REGISTRO,DESTINO

RLF Rota los bits de un registro a la izquierda

RLF REGISTRO,DESTINO

DESTINO: F (registro en uso)

W (registro de trabajo)

III) OPERACIONES ARITMETICAS

ADDLW Suma un dato al registro de trabajo W

ADDLW LITERAL

ADDWF Suma el dato contenido en el trabajo W, con otro registro

ADDWF REGISTRO,DESTINO

SUBLW Resta a un dato el valor contenido en el registro de trabajo W

SUBLW LITERAL

SUBWF Resta al dato contenido en un registro el dato que tiene el registro trabajo W

SUBWF REGISTRO,DESTINO

INCF Incrementa en una unidad a un registro

INCF REGISTRO,DESTINO

DECF Decrementa en una unidad a un registro

DECF REGISTRO,DESTINO

INCFSZ Incrementa en una unidad a un registro y si resulta 0, brinca una línea de programa

INCFSZ REGISTRO,DESTINO

DECSZ Decrementa en una unidad a un registro y si resulta 0, brinca una línea de programa

DECFSZ REGISTRO,DESTINO

IV) OPERACIONES LOGICAS

COMF Complementa o niega el contenido de un registro

COMF REGISTRO,DESTINO

ANDLW Producto lógico de un dato con el registro de trabajo W

ANDLW LITERAL

ANDWF Producto lógico entre los datos contenidos en un registro y el registro trabajo W

ANDWF REGISTRO,DESTINO

IORLW Suma lógica de un dato con el registro de trabajo W

IORLW LITERAL

IORWF Suma lógica entre los datos contenidos en un registro y el registro trabajo W

IORWF REGISTRO,DESTINO

XORLW Suma lógica exclusiva o comparador lógico de un dato con el registro de trabajo W

XORLW LITERAL

XORWF Suma lógica exclusiva o comparación lógica entre los datos contenidos en un registro y el registro trabajo W

XORWF REGISTRO,DESTINO

V) CONTROL DE FLUJO DE PROGRAMA

GOTO Ir a, o va a la línea de programa indicada mediante un etiqueta

GOTO ETIQUETA

CALL Llama a una subrutina o a una tabla que tiene por nombre la etiqueta que la acompaña

CALL ETIQUETA

RETURN Retorna de la subrutina, a la cual accedió mediante CALL

RETURN

RETLW Retorna de una tabla con un dato en W, a la cual accedió mediante CALL

RETLW

RETFIE Retorna de una rutina de interrupción, a la cual fue solicitada mediante un elemento del HARDWARE

RETFIE

BTFSS Brinca una línea de programa si el bit de un registro tiene 1.

BTFSS REGISTRO,BIT

BTFSC Brinca una línea de programa si el bit de un registro tiene 0.

BTFSS REGISTRO,BIT

INCFSZ Incrementa en una unidad a un registro y si resulta 0, brinca una línea de programa

INCFSZ REGISTRO,DESTINO

DECSZ Decrementa en una unidad a un registro y si resulta 0, brinca una línea de programa

DECFSZ REGISTRO,DESTINO

VI) COMPLEMENTARIAS

CLRF Borra el contenido de un registro

CLRF REGISTRO

CLRW Borra el contenido del registro de trabajo W

CLRW

CLRWDT Borra el contenido del registro Watchdog

CLRWDT

SLEEP Duerme al procesador

SLEEP

NOP No operación, el procesador no hace nada solo hay un consumo de tiempo

NOP

#instrucciones del pic16f877a #pic16f877a

Contador decimal módulo 10 ascendente ( 0123456789 ) salida por display de 7 segmentos ( numérico )

LIST P=16F877A INCLUDE <P16F877A.INC> CBLOCK 0X20 ;Area de variables T1 ;Variables para los tiempos de retard T2 T3 CUENTA ;Variables para el conteo ENDC ORG 0X2007 ;Configuracion del PIC DW 0X3F7A ORG 0X0000 ;Direccion inicial de la memoria del programa BSF STATUS,RP0 ;Banco 1 BCF STATUS,RP1 MOVLW B'00000000' ;PortB de salida a LEDs MOVWF TRISB BCF STATUS,RP0 ;BANCO O BCF STATUS,RP1

INICIO: CLRF CUENTA OTRO: MOVFW CUENTA MOVWF PORTB CALL DELAY INCF CUENTA MOVFW CUENTA XORLW .10 BTFSS STATUS,Z ;Es igual al limite de la cuenta GOTO OTRO ;No, sigue la cuenta GOTO INICIO ;Si, vuelve a empezar

DELAY: MOVLW .10 ;1 seg. MOVWF T3

LAZO3: CALL T100MS DECFSZ T3,F GOTO LAZO3 RETURN

T100MS: MOVLW .100 ;Tiempo de 100 mseg. MOVWF T2 LAZO2: CALL T1MS DECFSZ T2,F GOTO LAZO2 RETURN

T1MS: MOVLW .250 ;Tiempo de 1 mseg. MOVWF T1 LAZO1: NOP DECFSZ T1,F RETURN END

#contador #contador decimal #display 7 segmentos #siete segmentos #7 segmentos #circuitos digitales #pic16f877a

Secuencial de luces en los leds del PORTB (mediante tabla)

LIST P=16F877A INCLUDE <P16F877A.INC> CBLOCK 0X20 ;Area de variables T1 ;Variables para los tiempos de retard T2 T3 X ;Variables para la tabla Y ENDC ORG 0X2007 ;Configuracion del PIC DW 0X3F7A ORG 0X0000 ;Direccion inicial de la memoria del programa BSF STATUS,RP0 ;Banco 1 BCF STATUS,RP1 MOVLW B'00000000' ;PortB de salida a LEDs MOVWF TRISB BCF STATUS,RP0 ;BANCO O BCF STATUS,RP1

INICIO: CLRF X OTRO: MOVFW X CALL TABLA MOVWF Y XORLW 0X39 ;Limite de la tabla BTFSC STATUS,Z ;Es igual al limite de la tabla GOTO INICIO ;Si, vuelve a empezar MOVFW Y ;No, continua con el dato siguiente MOVWF PORTB CALL DELAY INCF X,F ;Proximo valor de la tabla GOTO OTRO

TABLA: ADDWF PCL,F DT 0X81,0X42,0X24,0X18,0X24,0X42 ;Cierra y Abre DT 0X81,0X42,0X24,0X18,0X24,0X42 DT 0X81,0X42,0X24,0X18,0X24,0X42 DT 0X81,0X42,0X24,0X18,0X24,0X42 DT 0X81,0X42,0X24,0X18,0X24,0X42, 0X81 DT 0XFF,0X00,0XFF,0X00,0XFF,0X00 ;Flash DT 0XFF,0X00,0XFF,0X00,0XFF,0X00 DT 0X80,0X40,0X20,0X10,0X08,0X04,0X02,0X01 ;Rotaicion derecha DT 0X80,0X40,0X20,0X10,0X08,0X04,0X02,0X01 DT 0X80,0X40,0X20,0X10,0X08,0X04,0X02,0X01 DT 0X80,0X40,0X20,0X10,0X08,0X04,0X02,0X01 DT 0X55,0XAA,0X55,0XAA,0X55,0XAA ;Pares/Impares DT 0X55,0XAA,0X55,0XAA,0X55,0XAA

DT 0X39

DELAY: MOVLW .2 ;Tiempo ed 0.2 seg. MOVWF T3

LAZO3: CALL T100MS DECFSZ T3,F GOTO LAZO3 RETURN

T100MS: MOVLW .100 ;Tiempo de 100 mseg. MOVWF T2 LAZO2: CALL T1MS DECFSZ T2,F GOTO LAZO2 RETURN

T1MS: MOVLW .250 ;Tiempo de 1 mseg. MOVWF T1 LAZO1: NOP DECFSZ T1,F RETURN END

#secuencial de luces led #secuencial #luces #leds #tabla #circuitos digitales #pic16f877a

Secuencial de luces en los leds del Puerto B (rotación derecha)

LIST P=16F877A INCLUDE <P16F877A.INC> CBLOCK 0X20 ;Area de variables T1 ;Variables para los tiempos de retard T2 T3 ENDC ORG 0X2007 ;Configuracion del PIC DW 0X3F7A ORG 0X0000 ;Direccion inicial de la memoria del programa BSF STATUS,RP0 ;Banco 1 BCF STATUS,RP1 MOVLW B'00000000' ;PortB de salida a LEDs MOVWF TRISB BCF STATUS,RP0 ;BANCO O BCF STATUS,RP1 INICIO: MOVLW B'10000000' ;LED del bit 7 ON MOVWF PORTB TIEMPO: CALL DELAY RRF PORTB,F ;Rotacion a la derecha GOTO TIEMPO

DELAY: MOVLW .2 ;Tiempo ed 0.2 seg. MOVWF T3

LAZO3: CALL T100MS DECFSZ T3,F GOTO LAZO3 RETURN

T100MS: MOVLW .100 ;Tiempo de 100 mseg. MOVWF T2 LAZO2: CALL T1MS DECFSZ T2,F GOTO LAZO2 RETURN

T1MS: MOVLW .250 ;Tiempo de 1 mseg. MOVWF T1 LAZO1: NOP DECFSZ T1,F RETURN END

#rotacion #rotacion derecha #secuencial de luces #leds #circuitos digitales #pic16f877a

Trending Blogs

Recently Viewed Blogs

BD