• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

anficori

Cálculo de Mínimo Múltiplo Comum

3 mensagens neste tópico

Boas Pessoal,

estou com um problematizo e precisava da vossa ajuda,

Dado um número com três algarismos calcula o mínimo múltiplo comum entre esses três algarismos.

       Dim a As Integer
       Dim b As Integer
       Dim c As Integer
       Dim um As Integer
       Dim dois As Integer
       Dim tres As Integer


       If (TextBox1.Text > 100 And TextBox1.Text < 999) Then

           tres = TextBox1.Text Mod 10
           dois = (TextBox1.Text / 10) Mod 10
           um = ((TextBox1.Text / 10) / 10) Mod 10


           For i = 0 To 9
               a = um * i
               For k = 0 To 9
                   b = dois * k
                   If (a = b) Then
                       For j = 0 To 9
                           c = tres * j
                           If (a = c And b = c) Then
                               Label1.Text = a
                           End If
                       Next
                   End If
               Next
           Next
       End If

Mas só calcula algumas vezes não dá sempre. e Se for inserido o numero 236, o resultado devia ser 6 e dá-me 12:S

alguém me pode ajudar ?

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

(TextBox1.Text / 10) Mod 10  se o numero na textbox for 236 vai dar 4..... Pensa bem porque....

faz antes assim:

            tres = TextBox1.Text.Substring(2)
            dois = TextBox1.Text.Substring(1, 1)
            um = TextBox1.Text.Substring(0, 1)

fazendo isto já da 6.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

mas o meu principal é objectivo é utilizar este bloco em pseudo-código, só passei para vb para confirmar.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora