Desafio!?

[Tacinho 0]

Usando o português estruturado para desenvolver esse algorítmo, temos que ler dois números e a base e fazer a divisão na base informada, onde essa base pode ser binária, octal, decimal ou hexadecimal.Exemplificando em Sistemas Numéricos: 16 dividido por 2 na base 8 = 7 e o resto é 0.76 dividido por 5 na base 8 = 14 e o resto é 2.3C dividido por A na base hexadecimal = 6 e o resto é 0(A=10, B=11, C=12, D=13, E=14, F=15 na base hexadecimal)___________________________________________________________________________________Consegui fazer os algorítimos, exemplificados abaixo, referentes a soma e subtração de bases, mas a divisão não sai.____________________________________________________________________________________Ler dois números e a base e fazer a SOMA na base informada.Alg_SomaDeclare N1, N2, Mai, Men, Res : LiteralDif, I, I2, P1, P2, Base, Soma, Vaium : InteiroLeia N1, N2, BaseSe Tam(N1) > Tam(N2) EntãoMai:= N1Men:= N2SenãoMai:= N2Men:= N1Fim_SeDif:= Tam(Mai) - Tam(Men)Para I:= 1 ate DifMen:= 'O' + MenFim_ParaPara I2:= Tam(Mai) Ate 1 Inc -1Vaium:= 0P1:= Val(Parte(Mai, I2, 1))P2:= Val(Parte(Men, I2, 1))Soma:= P1 + P2 + VaiumSe Soma >= Base EntãoParcial := Soma - BaseVaium:= 1SenãoParcial := SomaVaium := 0Fim_SeRes:= Cadeia(Parcial) + ResFim_ParaSe Vaium <> 0Res:= Cadeia(Vaium) + ResFim_SeEscreva ResFim_Alg______________________________________________________________________________________Ler dois números e a base e fazer a SUBTRAÇÃO na base informada.Dec N1, N2, Mai, Men, Res: LitDif, I, I2, P1, P2, Base, Sub, Parcial, Vaium : IntLeia N1, N2, BaseSe TAM(N1) >= TAM(N2) EntãoMai:=N1Men:=N2SenãoMai:=N2Men:=N1Fim_SeDif:= TAM(Mai) - TAM(Men)Para I:=1 ate Dif Men:= "0" + MenFim_ParaVaium:= 0Para I2:= TAM(Mai) ate 1 Inc -1P1:= VAL(PARTE(Mai, I2, 1))P2:= VAL (PARTE(Men, I2, 1))Se P1 >= P2 EntãoSub:= P1 - P2 + VaiumVaium:= 0SenãoSub:= Base - P2 + VaiumVaium:= 1Fim_SeRes:= CADEIA (Sub) + ResFim_ParaSe Vaium <> 0 EntãoRes:= CADEIA (Vaium) + ResFim_SeEscreva ResFim_AlgVLW

[Tacinho 0]

Usando o português estruturado para desenvolver esse algorítmo, temos que ler dois números e a base e fazer a divisão na base informada, onde essa base pode ser binária, octal, decimal ou hexadecimal.Exemplificando em Sistemas Numéricos: 16 dividido por 2 na base 8 = 7 e o resto é 0.76 dividido por 5 na base 8 = 14 e o resto é 2.3C dividido por A na base hexadecimal = 6 e o resto é 0(A=10, B=11, C=12, D=13, E=14, F=15 na base hexadecimal)___________________________________________________________________________________Consegui fazer os algorítimos, exemplificados abaixo, referentes a soma e subtração de bases, mas a divisão não sai.____________________________________________________________________________________Ler dois números e a base e fazer a SOMA na base informada.Alg_SomaDeclare N1, N2, Mai, Men, Res : LiteralDif, I, I2, P1, P2, Base, Soma, Vaium : InteiroLeia N1, N2, BaseSe Tam(N1) > Tam(N2) EntãoMai:= N1Men:= N2SenãoMai:= N2Men:= N1Fim_SeDif:= Tam(Mai) - Tam(Men)Para I:= 1 ate DifMen:= 'O' + MenFim_ParaPara I2:= Tam(Mai) Ate 1 Inc -1Vaium:= 0P1:= Val(Parte(Mai, I2, 1))P2:= Val(Parte(Men, I2, 1))Soma:= P1 + P2 + VaiumSe Soma >= Base EntãoParcial := Soma - BaseVaium:= 1SenãoParcial := SomaVaium := 0Fim_SeRes:= Cadeia(Parcial) + ResFim_ParaSe Vaium <> 0Res:= Cadeia(Vaium) + ResFim_SeEscreva ResFim_Alg______________________________________________________________________________________Ler dois números e a base e fazer a SUBTRAÇÃO na base informada.Dec N1, N2, Mai, Men, Res: LitDif, I, I2, P1, P2, Base, Sub, Parcial, Vaium : IntLeia N1, N2, BaseSe TAM(N1) >= TAM(N2) EntãoMai:=N1Men:=N2SenãoMai:=N2Men:=N1Fim_SeDif:= TAM(Mai) - TAM(Men)Para I:=1 ate Dif Men:= "0" + MenFim_ParaVaium:= 0Para I2:= TAM(Mai) ate 1 Inc -1P1:= VAL(PARTE(Mai, I2, 1))P2:= VAL (PARTE(Men, I2, 1))Se P1 >= P2 EntãoSub:= P1 - P2 + VaiumVaium:= 0SenãoSub:= Base - P2 + VaiumVaium:= 1Fim_SeRes:= CADEIA (Sub) + ResFim_ParaSe Vaium <> 0 EntãoRes:= CADEIA (Vaium) + ResFim_SeEscreva ResFim_AlgVLW

O assunto desse algorítmo chama-se Sistemas Numéricos.