Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
mov al, 0FFH
add al, 1TITLE ADDSUB
; this program adds and substract integers
.386
.MODEL flat, stdcall
.STACK 4096
ExitProcess PROTO, dwExitCode: DWORD
DumpRegs PROTO
.code
main PROC
mov eax, 10000h
add eax, 40000h
sub eax, 20000h
call DumpRegs
INVOKE ExitProcess, 0
main ENDP
END mainCitarAssembling: C:\Projectos\pru.asm
MASM : fatal error A1000: cannot open file : C:\Projectos\pru.asm
El volumen de la unidad C es Programas
El n£mero de serie del volumen es: 249C-05D7
Directorio de C:\Projectos
28/05/2010 10:23 309 pru
1 archivos 309 bytes
0 dirs 3.452.473.344 bytes libres
One of the following may be a cause:
The file does not exist. El archivo existe
The file is in use by another process. No está siendo usado por otro
The filename is not valid. No se ha que se refiere, creo que no tiene nada extraño el filename
A read-only file with the output filename already exists.La carpeta está vacía, solo con el pru.asm
The current drive is full. Quedan 3gb
The current directory is the root and is full. Root? No podré compilar en C?
The device cannot be written to. Si se puede escribir
The drive is not ready. Creo que si lo está
plus.obj : error LNK2001: unresolved external symbol _ExitProcess@4
plus.obj : error LNK2001: unresolved external symbol _DumpRegs@0#include <stdio.h>
int main(){
int *a, b;
b = 5;
a = &b;
printf("El valor es:%d",*a);
return 0;
}Citaraviso: GDB: Failed to set controlling terminal: Operación no permitida
int funcion(int *a, int *b);int funcion(int &a, int &b);int *lista;
...
lista = (int *)(malloc(sizeof(int) * (n + 1)));
...void ingreso(int *L, int N){
int i;
for(i = 0; i < N; i++){
puts("Elemento >");
scanf("%d",L);
L++;
}
}Citargcc Agenda.c
/tmp/ccL3qioR.o: In function `main':
Agenda.c:(.text+0x7b): undefined reference to `data_new_write'
collect2: ld returned 1 exit status
...
void data_new_write(st_p, char *, int *);
...
int main(){
...
data_new_write(*user, path, &e);
...
}
void data_write(st_p P, char *path, int *error){
FILE *f;
*error = 0;
f = fopen(path, "w+");
if(f)
fprintf(f, "%s%s%s%u", P.name, P.dir, P.phone, P.age);
else
*error = 1;
close(f);
}
void _ingreso(int *Lista, int *Cnt);
#include <stdio.h>
/* Posible solución, pero que al colocar el último elemento trae consigo un error */
#define SIZE 10
int main(){
int *lista;
int i;
lista = malloc(sizeof(int)*10);
for(i = 0; i < SIZE; i++){
printf("Ingrese elemento N %d\n",i);
scanf("%d", lista);
*lista++;
}
free(lista);
puts("Terminado");
return 0;
} gcc puntero1.c
puntero1.c: In function 'main':
puntero1.c:34: warning: parameter names (without types) in function declaration#include <stdio.h>
/* Practica para ordenar arreglos
1- Utilizando una funcion con un argumento array
2- Utilizando una funcion con un argumento puntero
*/
int Ord_Array(int Lista[], int Cant);
int Ord_Point(int *Lista, int Cant);
int main()
{
//Declaracion de variables
int miLista[10];
int *miPuntero;
int i;
int _max = 10;
//Inicializacion de array
puts("\t\t Ingreso de lista");
for(i = 0; i < 10; i++)
{
printf("Elemento n %d:",i);
scanf("%d",&miLista[i]);
}
puts("Terminado");
//Inicializamos el puntero
miPuntero = &miLista[0];
//Ordenamos
int Ord_Point(miLista, _max);
//Mostramos
for(i = 0; i < 10; i++)
{
printf("Elemento n %d \t %d\n",i,miLista[i]);
printf("Elemento n %d \t %d\n",i,*(miPuntero + i));
}
return 0;
}
int Ord_Array(int Lista[], int Cant)
{
int i, j, aux;
for(i = 0; i < Cant; i++)
{
for(j = i + 1; i < Cant + 1; i++)
{
if(Lista[i] > Lista[j])
{
aux = Lista[i];
Lista[i] = Lista[j];
Lista[j] = aux;
}
}
}
}
int Ord_Point(int *Lista, int Cant)
{
int i, j, aux;
for(i = 0; i < Cant; i++)
{
for(j = i + 1; i < Cant + 1; i++)
{
if(*(Lista + i) > *(Lista + j))
{
aux = *(Lista + i);
*(Lista + i) = *(Lista + j);
*(Lista + j) = aux;
}
}
}
}import math
def menor(a,b):
return a if(a <= b) else b
def raiz2(a,b):
c = a//b
if(math.fabs(b - c) <= 1):
return menor(b,c)
else:
raiz2(a,(b + c)//2)
a = 170000
b = raiz2(a,3)
print(b)
Alguien tiene idea?
CitarEl algoritmo de compresión lz77 pertenece a la familia de compresores sin pérdida, también llamados compresores de texto, a los cuales se les llama así porque no omiten información del archivo al comprimirlo, al contrario que los compresores que utilizan algoritmos del tipo lossy, que omiten algo de información pero que disminuyen considerablemente el tamaño del archivo original, el cual es el caso de los archivos MP3, MPG, jpeg, etc.
Los compresores basados en algoritmos sin pérdida se utilizan cuando la información a comprimir es crítica y no se puede perder información, por ejemplo en los archivos ejecutables, tablas de bases de datos, o cualquier tipo de información que no admita pérdida.
El modelo lz77 es muy usado porque es fácil de implementar y es bastante eficiente.
En 1977 Abraham Lempel y Jacob Ziv presentaron su modelo de compresión basado en diccionario, para compresión de texto –compresión de texto se refiere a compresión sin pérdida para cualquier tipo de datos–. Hasta la fecha todos los algoritmos de compresión desarrollados eran básicamente compresores estáticos. El nuevo modelo fue llamado lz77 (por razones obvias). La salida consistía siempre en desplazamientos o corrimientos y tamaños del texto visto anteriormente. También se incluía en la salida el siguiente byte después de una coincidencia, porque el contexto (últimos bytes vistos) de este byte es la frase, y si no era parte de la frase (la coincidencia), luego tal vez no se había comprimido, así que, ¿Para que desperdiciar tiempo tratando de encontrar una coincidencia (o espacio) para él?
En 1982 James Storer y Thomas Szymanski basados en el trabajo de Lempel y Ziv, presentaron su modelo, el lzss. La diferencia principal es en la salida, lz77 siempre daba un para desplazamiento/tamaño, aún si la coincidencia era de un solo byte (en cuyo caso usaban más de ocho bits para representar un byte) de manera que el LZSS usa otro truco para mejorarlo: usa banderas (flags), que ocupan un solo bit y nos informan de lo que viene luego: una literal o un par desplazamiento/tamaño y este algoritmo es el que actualmente usamos, pero el lzss es comúnmente llamado lz77, así que lo llamaremos lz77 de este punto en adelante, pero es importante recordar que también puede ser llamado LZSS. LZSS también puede usar árboles binarios o árboles de sufijos para hacer búsquedas más eficientes.
La teoría es muy simple e intuitiva. Cuando se haya una coincidencia (también llamada frase o conjunto de bytes que ya han sido vistos en el archivo de entrada) en lugar de escribir dichos bytes se escribe el desplazamiento o tamaño de la repetición: dónde está y su longitud.
Éste es un modelo basado en diccionario, porque se mantiene un diccionario (que en este caso se conoce como “Ventana Corrediza”) y se hace referencia a ella con pares desplazamiento/tamaño. Esta versión de lz77, usa una ventana corrediza, la cual tiene un tamaño máximo, de manera que la ventana no puede ser el archivo completo, en su lugar, la ventana corrediza mantiene los últimos bytes “vistos”.
Imaginemos que estamos comprimiendo el texto “ab ab”, leemos hasta “ab ” y lo escribimos sin comprimir, luego leemos “ab” y escribimos lo siguiente: con el “desplazamiento” de 0 se halló una coincidencia de dos bytes repetidos.
#Autor: determx
#Fecha: 14/11/2009
#Version : 1.0.0
import os
import string
#Funcion que devuelve el archivo de texto en una lista
def Leer_Fichero(Ruta):
if os.path.exists(Ruta):
archivo = open(Ruta)
datos = []
for linea in archivo:
datos.append(linea)
archivo.close()
return datos
#Funcion para escribir texto comprimido en archivo
def Escribe_Fichero(Ruta,Texto,lInsp,lMem):
archivo = open(Ruta,"w")
archivo.write(str(lInsp) + '\n')
archivo.write(str(lMem) + '\n')
archivo.write(Texto)
archivo.close()
#Function para codificar
def _encode(prim,cnt):
aux = '(' + str(hex(prim))[2:] + ',' + str(hex(cnt))[2:] + ')'
return aux
#Cadena con espacios
def _blancos(Cad,Cantidad):
Cad = Cad + " " * Cantidad
return Cad
#Inserta blancos al frente
def _fblancos(Cad,Cantidad):
Cad = " " * Cantidad + Cad
return Cad
#Mueve caracteres a la ventana de inspeccion
def _toshift(Vdel,Vins,cantidad):
Vins = Vins[cantidad:] + Vdel[:cantidad]
Vdel = Vdel[cantidad:]
return Vdel,Vins
#Funcion para buscar coincidencias
def _matches(mem,insp):
while insp != '':
pos = string.find(mem,insp)
if pos != -1:
break
else:
insp = insp[:-1]
return pos,len(insp)
#Funcion que devuelve un texto comprimido
def Comprimir(Texto,TamInsp,TamMem):
V_Mem = ''
V_Insp = ''
V_Mem = _blancos(V_Mem,TamMem)
V_Insp = _blancos(V_Insp,TamInsp)
Comprimido = [] #Array donde junto el texto a guardar
for L in Texto:
cant = len(L)
cont = 1
shcant = cont
L_Comp = "" #Linea a comprimir
L, V_Insp = _toshift(L,V_Insp,szInsp)#Inicializo mi ventana insp
L = _blancos(L,szInsp)
while cont < cant:
inicio,fin = _matches(V_Mem,V_Insp)
#Unicamente se codificaran las coincidencias
#mayores a la codificacion
if (fin - inicio) < len(str(szMem)*2)+3:
L_Comp = L_Comp[:] + V_Insp[0]
#Muevo un solo caracter del texto a inspeccion
shcant = 1
cont += shcant
else:
L_Comp = L_Comp[:] + _encode(inicio,fin)
shcant = fin
cont += shcant
V_Insp, V_Mem = _toshift(V_Insp,V_Mem,shcant)
V_Insp = _fblancos(V_Insp,shcant)
L, V_Insp = _toshift(L,V_Insp,shcant)
L = _blancos(L,szInsp)
Comprimido.append(L_Comp)
return '\n'.join(Comprimido)
#Main
Ruta = raw_input('Ruta de archivo a comprimir>')
Dest = raw_input('Ruta destino de compresion>')
Documento = Leer_Fichero(Ruta);
szInsp = int(raw_input('Tamaño ventana inspeccion>'))
szMem = int(raw_input('Tamaño ventana memoria>'))
if Documento != None:
Txt_Comp = Comprimir(Documento,szInsp,szMem)
Escribe_Fichero(Dest,Txt_Comp,szInsp,szMem)
print ('GOOD!')
else:
print "NO EXISTE EL ARCHIVO/ARCHIVO VACIO"
#Autor: determx
#Fecha: 14/11/2009
#Version : 1.0.0
import os
import string
#Funcion que devuelve el archivo de texto en una lista
def Leer_Fichero(Ruta):
if os.path.exists(Ruta):
archivo = open(Ruta)
datos = []
for linea in archivo:
datos.append(linea)
archivo.close()
return datos
#Funcion para escribir texto comprimido en archivo
def Escribe_Fichero(Ruta,Texto):
archivo = open(Ruta,"w")
archivo.write(Texto)
archivo.close()
#Funcion que devuelve inicio y fin en enteros
def _decode(Coded):
poscoma = string.find(Coded,',')
if poscoma != -1:
try:
ini = int(Coded[1 : poscoma],16)
except:
return 0,0
try:
fin = int(Coded[poscoma + 1: len(Coded)-1],16)
except:
return 0,0
return ini,fin
else:
return 0,0
#Cadena con espacios
def _blancos(Cad,Cantidad):
Cad = Cad + " " * Cantidad
return Cad
def Descomprime(Texto):
szInsp = int(Texto[0])
szMem = int(Texto[1])
Texto = Texto[2:]
l_Descomp = []
V_Mem =''
V_Mem = _blancos(V_Mem,szMem)
for l in Texto:
s_Descomp = ''
while l != '\n' and l!= '':
if l[0] != '(':
V_Mem = V_Mem[1:] + l[0]
s_Descomp = s_Descomp + l[0]
l = l[1:]
else:
PosFin = string.find(l,')')
Encoded = l[0:PosFin+1]
i,f = _decode(Encoded)
if (i != 0 or f !=0):
s_Descomp = s_Descomp + V_Mem[i:i+f]
V_Mem = V_Mem[f:] + V_Mem[i:i+f]
l = l[PosFin+1:]
else:
V_Mem = V_Mem[1:] + l[0]
s_Descomp = s_Descomp + l[0]
l = l[1:]
l_Descomp.append(s_Descomp)
return '\n'.join(l_Descomp)
#MAIN
Path = raw_input('Ingresa ruta archivo comprimido>')
Dest = raw_input('Ruta destino de compresion>')
Documento = Leer_Fichero(Path)
toArchivo = Descomprime(Documento)
Escribe_Fichero(Dest,toArchivo)
print('GOOD!')#Funcion para buscar coincidencias
def _matches(mem,insp):
while insp != "":
pos = mem.index(insp)
if pos != -1:
break
else:
insp = insp[:-1]
return pos,len(insp)memo = 'HOLA QUE TAL'
inspo = 'HOLA QUE TAL'memo = 'HADES'
inspo = 'HADESASO'
ValueError : substring not founddef cambia(uno,dos):
aux = dos
dos = uno
uno = aux
return uno,dos
x = raw_input("UNO>")
y = raw_input("DOS>")
x,y = cambia(x,y)
print str(x) + " " + str(y)
@echo off
echo "************************"
echo "* 1-Facu *"
echo "* 2-Algoritmia *"
echo "* 3-Assembly *"
echo "* 4-C++ *"
echo "* 5-Python *"
echo "************************"
:bucle
set /p var = Introduzca opcion:
if %var% == 1 goto:facu
if %var% == 2 goto:algo
if %var% == 3 goto:asm
if %var% == 4 goto:c
if %var% == 5 goto:pyth
:facu
start d:\BuckUp\EBOOKS\facu
:algo
start d:\BuckUp\EBOOKS\Algoritmia
:asm
start d:\BuckUp\EBOOKS\Assembly
:c
start d:\BuckUp\EBOOKS\C++
:pyth
start d:\BuckUp\EBOOKS\Python
![:-\](https://forum.elhacker.net/Smileys/navidad/undecided.gif ":-\")
.TITLE fibonnacci-10n
Include Irvine32.inc
.data
i byte 1
j byte 0
t byte 0
.code
main PROC
mov cx,10 ;counter=10
lblLooop1:
mov ax,i
add ax,j
mov bx,t
add bx,ax
mov i,j
mov j,t
mov dx,j
call DUMPREGS
loop lblLoop1
main ENDP
END main mov i,j
mov j,tif( eax = 0 ) then
stdout.put( "error: NULL pointer encountered", nl );
else
stdout.put( "Pointer is valid", nl );
endif;#include( "stdlib.hhf" )
var
i32: int32;
ColCnt: int8;
begin NumsInColumns;
mov( 96, i32 );
mov( 0, ColCnt );
while( i32 > 0 ) do
if( ColCnt = 8 ) then
stdout.newln();
mov( 0, ColCnt );
endif;
stdout.puti32Size( i32, 5, ' ' );
sub( 1, i32 );
add( 1, ColCnt );
endwhile;
stdout.newln();
end NumsInColumns;
program Untitled;
uses
crt;
type
Persona=
record
Nombre:string[10];
Telefono:string[10];
end;
var
option:integer;
Friend:Persona;
Fichero:file of Persona;
nameFile:string;
buscado:integer;
adato:Persona;
begin
repeat
//Menu
clrscr;
nameFile:='c:\AGENDA.txt';
writeln('1) Agregar persona');
writeln('2) Buscar persona');
writeln('3) Salir de agenda');
//Validar opcion
repeat
writeln('Elige opcion:');
readln(option);
until (option>0) and (option<=3);
case option of
1:
begin
writeln('AGREGANDO PERSONA');
writeln('INGRESA NOMBRE:');
readln(Friend.Nombre);
writeln('INGRESA TELEFONO:');
readln(Friend.Telefono);
Assign(Fichero,nameFile);
Reset(Fichero);
Write(Fichero,Friend);
Close(Fichero);
end;
2:
begin
writeln('BUSCANDO');
readln(buscado);
Assign(Fichero,nameFile);
reset(Fichero);
seek( fichero, buscado );
read(fichero,adato);
writeln('Nombre:',adato.Nombre);
writeln('Telefono:',adato.Telefono);
close(Fichero);
end;
3:writeln('Seleccionaste salir')
end;
readln();
until option=3;
end.Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
GetCursorPos pt
Label3.Caption = "X:" & Str$(pt.x) & " Y:" + Str$(pt.y)
End SubOption Explicit
Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long
Private Declare Sub InitCommonControls Lib "Comctl32" ()
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Const SW_SHOW = 5
Private Const SW_HIDE = 0
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_RBUTTONUP = &H205
Private Const KEY_TOGGLED As Integer = &H1
Private Const KEY_PRESSED As Integer = &H1000
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
ucallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Dim sysTray As NOTIFYICONDATA
Private Sub Command1_Click()
MsgBox " Hacer Doble click en el ícono para reestaurar el Form", vbInformation, "SH_DEKTOP"
Call Colocar_Tray(1000)
End Sub
Private Sub Command2_Click()
Call Quitar_Systray
End Sub
Sub Colocar_Tray(Intervalo As Integer)
With sysTray
.cbSize = Len(sysTray)
.hwnd = Me.hwnd
.uId = 1&
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.ucallbackMessage = WM_LBUTTONDOWN
.hIcon = Image1.Picture
End With
Call Shell_NotifyIcon(NIM_ADD, sysTray)
Me.Hide
Timer1.Interval = Intervalo
End Sub
Sub Quitar_Systray()
With sysTray
.cbSize = Len(sysTray)
.hwnd = Me.hwnd
.uId = 1&
End With
Call Shell_NotifyIcon(NIM_DELETE, sysTray)
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Initialize()
Call SetErrorMode(2)
Call InitCommonControls
Me.Caption = "SH_DEKTOP"
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg
msg = X / Screen.TwipsPerPixelX
If msg = WM_LBUTTONDBLCLK Then
mnuMostrar_Click
ElseIf msg = WM_RBUTTONUP Then
Me.PopupMenu mnuPopup
End If
End Sub
Private Sub mnuMostrar_Click()
Timer1.Interval = 0
Me.Show
End Sub
Private Sub mnuSalir_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
sysTray.hIcon = Image1.Picture
Call Shell_NotifyIcon(NIM_MODIFY, sysTray)
End Sub
Private Sub Form_Load()
Image1.Visible = False
Command1.Caption = " Colocar en el systray "
Command2.Caption = " Quitar del sysTray "
Command3.Caption = "Salir"
Timer2.Enabled = True
Timer2.Interval = 100
End Sub
Private Sub Form_Unload(Cancel As Integer)
Quitar_Systray
End
End Sub
Private Sub Timer2_Timer()
If GetKeyState(vbKeyF10) And KEY_PRESSED Then
Dim HWND_Escritorio As Long
On Error Resume Next
HWND_Escritorio = FindWindowEx(0&, 0&, "Progman", vbNullString)
Call ShowWindow(HWND_Escritorio, SW_HIDE)
ElseIf GetKeyState(vbKeyF11) And KEY_PRESSED Then
On Error Resume Next
HWND_Escritorio = FindWindowEx(0&, 0&, "Progman", vbNullString)
Call ShowWindow(HWND_Escritorio, SW_SHOW)
End If
End Sub
#include <iostream>
using namespace std;
int mi_mazo[100],secuencia[100];
int main()
{
bool e=0;
int i=0;
int j,k,AUX,n;
while(!e)
{
i++;
cout<<"Ingrese carta: "<<endl;
cin>>mi_mazo[i];
secuencia[i]=mi_mazo[i];
n=i;
for(j=2;j<=n;j++)
{
AUX=mi_mazo[j];
mi_mazo[0]=AUX;
k=j-1;
while(AUX<mi_mazo[k])
{
mi_mazo[k+1]=mi_mazo[k];
k--;
}
mi_mazo[k+1]=AUX;
}
for(j=1;j<=n;j++)
{
if((mi_mazo[j]==mi_mazo[j+1])&&(mi_mazo[j]==mi_mazo[j+2]))
{
e=1;
}
}
}
cout<<"Cantidad de cartas"<<endl;
cout<<"Secuencia"<<endl;
for(i=1;i<=n;i++)
{
cout<<secuencia[i]<<",";
}
system("PAUSE");
return 1;
}Private Sub Form_Load()
cnt_p = 0
cnt_i = 0
Dim lista(100) As Integer
Dim elim(100) As Integer
Label1.Caption = "" 'Array
Label2.Caption = "" 'Array con eliminaciones
Label3.Caption = "" 'Posiciones a eliminar
MsgBox "Inicializacion", vbOKOnly
k = 0
cant = InputBox("Cantidad: ")
N = Val(cant)
For i = 1 To N
entero = InputBox("Numero: ")
num = Val(entero)
lista(i) = num
Next
For i = 1 To N
Label1.Caption = Label1.Caption & lista(i) & ","
Next
For i = 1 To N
d_num = lista(i) 'Separo los digitos
While d_num <> 0
dig = d_num Mod 10
If dig Mod 2 = 0 Then 'Compruebo si son multiplos pares
cnt_p = cnt_p + 1
End If
If dig Mod 2 <> 0 Then
cnt_i = cnt_i + 1
End If
d_num = d_num \ 10
Wend
If cnt_p > cnt_i Then 'Si la cantidad de digitos pares es mayor a las impares
k = k + 1
elim(k) = i 'Array que contiene las posiciones
End If
cnt_p = 0
cnt_i = 0
Next
For i = 1 To k
Label3.Caption = Label3.Caption & elim(i) & ","
Next
For i = 1 To k
pos = elim(i)
For j = pos To (N - 1)
lista(j) = lista(j + 1)
Next
N = N - 1
Next
For i = 1 To N
Label2.Caption = Label2.Caption & lista(i) & ","
Next
End Sub