Heheyfvfv

titsay
Cosimo Galluzzi
DEAR READER

@theartofmadeline
noise dept.
cherry valley forever
NASA

tannertan36
occasionally subtle
taylor price

blake kathryn
One Nice Bug Per Day
🪼

⁂
PUT YOUR BEARD IN MY MOUTH
Today's Document

#extradirty

No title available
Mike Driver
todays bird

seen from Canada
seen from United States

seen from United States
seen from United States

seen from Japan

seen from Poland

seen from South Korea
seen from Maldives
seen from United States

seen from Singapore

seen from United States

seen from Germany

seen from United States
seen from Türkiye

seen from Malaysia

seen from United States

seen from United States
seen from India

seen from United States
seen from Japan
@badats
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]).
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.
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.
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
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).
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,[]).
domains i=integer*
predicates nondeterm ordenar(i,i) nondeterm permutacion(i,i) ordered(i) nondeterm uno(i,integer,i)
clauses ordenar(L, S) :- permutacion(L, S), ordered(S). permutacion([], []). permutacion(L, [H|R]) :- uno(L, H, L1), permutacion(L1, R). uno([H|T], H, T). uno([X|R], H, [X|T]) :- uno(R, H, T). ordered([_]). ordered([X,Y|T]) :- X <= Y, ordered([Y|T]).
goal ordenar([5,3,9,2,8,7],L2).
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]).
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
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
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
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 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