Sergioor's blog

Hola, este día les traigo un programa que presente en la universidad en la materia de programación espero les sea de ayuda. Este programa esta hecho en power builder. ---------codigo----------------- double a,b,f,c1 Integer N INt M, C, D, U String S if (Integer(Sle_numero.text) >0) then MessageBox(" ","I") a=0 b=1 for c1=1 to Integer(Sle_numero.text)-1 f=a+b N=f M=N / 1000 N=N - M * 1000 C=N / 100 N=N - C * 100 D= N / 10 U=N - D * 10 Choose case M Case 1 S="M" Case 2 S="MM" case 3 S="MMM" Case 4 S="MMMM" Case 5 S="MMMMM" case 6 S="MMMMMM" Case 7 S="MMMMMMM" Case 8 S="MMMMMMMM" case 9 S="MMMMMMMMM" End Choose Choose case C Case 1 S=S+"C" Case 2 S=S+"CC" case 3 S=S+"CCC" Case 4 S=S+"CD" Case 5 S=S+"D" case 6 S=S+"DC" Case...

Hola estimados lectores este dia he preparado algo muy util para las personas que esten en algun curso o alguna materia en la que vean lenguaje maquina (assembly) . este es un programa que pide la entrada de un numero de 1-25 luego lo evalua y despliega la sucesión de Fibonacci en decimal y sus equivalentes en hexadecimal y para no aburrirlos mas con explicasiones no hay nada mejor que ponerlo en practica, aqui esta el codigo: .model small .stack 100h .data a dw 0 b dw 0 c dw 0 temp dw 0 zeroizq dw 0 convierte dw 10000,1000,100,10,1 linefeed db 13,10,'$' inicioprog db 'serie fibonacci Mod sergioor.',13,10,'$' peticion db 'introdusca numero de elementos de la serie (1-25):','$' buffer db 32,32,'$' longitud dw 0 tecla db 0 finprog db 13,10,'fin del programa.',13,10,'$' .code inicio: mov ax,@data mov ds,ax mov ah,0 mov al,2 int 10h mov ah,09h lea dx,inicioprog int 21h ...