Menú

Mostrar Mensajes

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.

Mostrar Mensajes Menú

Temas - Genoske

#1
Programación C/C++ / Ayuda con un programa
8 Julio 2011, 07:21 AM
Hola a todos es mi primera vez escribiendo aquí y quisiera saber si hay alguien que me ayude con el desarrollo de un programa en dev-c++, soy un aprendiz de programación por lo que quisiera puedan ayudarme con el seudocódigo y consejos para poder desarrollarlo.
Sin mas que decir aqui planteo el problema:

Implemente un programa que lea un número decimal y lo muestre en pantalla en hexadecimal (base 16). El cambio de base se realiza mediante divisiones sucesivas por 16 en las cuales los restos determinan los dígitos hexadecimales del número según la siguiente correspondencia:


____________________________________________________

Me ayudaron con el seudocódigo, pero es en visual net si mal no recuerdo, pero quisiera que alguien me de las pautas para desarrollarlo en dev-c++
y si pudieran el seudódigo, aunque no lo entiendo aki se los dejo.
_____________________________________________________

Codigo----

Dim num, resultado As Double
Dim nuevoNumero As String
Private Sub Command1_Click()
Label1.Caption = ""
num = CDbl(numero.Text)
resultado = 0
nuevoNumero = ""
While num > 15
resultado = num Mod 16
Label1.Caption = Label1.Caption & "Resultado Modulo-> " & resultado & " <-" & vbCrLf
If resultado < 10 Then
nuevoNumero = resultado & nuevoNumero
End If
If resultado = 10 Then
nuevoNumero = "A" & nuevoNumero
End If
If resultado = 11 Then
nuevoNumero = "B" & nuevoNumero
End If
If resultado = 12 Then
nuevoNumero = "C" & nuevoNumero
End If
If resultado = 13 Then
nuevoNumero = "D" & nuevoNumero
End If
If resultado = 14 Then
nuevoNumero = "E" & nuevoNumero
End If
If resultado = 15 Then
nuevoNumero = "F" & nuevoNumero
End If
If num / 16 > 15.1 And num / 16 < 16 Then
num = 15
Else
num = CInt(num / 16)
End If
Label1.Caption = Label1.Caption & "Creacion Numero-> " & nuevoNumero & vbCrLf
Label1.Caption = Label1.Caption & "Nuevo Numero-> " & num & vbCrLf
Wend
If num < 10 Then
nuevoNumero = num & nuevoNumero
End If
If num = 10 Then
nuevoNumero = "A" & nuevoNumero
End If
If num = 11 Then
nuevoNumero = "B" & nuevoNumero
End If
If num = 12 Then
nuevoNumero = "C" & nuevoNumero
End If
If num = 13 Then
nuevoNumero = "D" & nuevoNumero
End If
If num = 14 Then
nuevoNumero = "E" & nuevoNumero
End If
If num = 15 Then
nuevoNumero = "F" & nuevoNumero
End If
Label1.Caption = Label1.Caption & "Ultimo numero-> " & num & " <-" & vbCrLf
Label1.Caption = Label1.Caption & "Creacion Numero-> " & nuevoNumero & vbCrLf
res.Text = nuevoNumero
End Sub

Eso es todo espero su ayuda (: