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 (:
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 (: