Como usar o Excel para encontrar fatores primos

Escrito por stephanie ellen | Traduzido por wanderson david
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como usar o Excel para encontrar fatores primos
Use o Excel e encontre os fatores e números primos (Numbers image by paul hampton from Fotolia.com)

Um número primo tem como divisores apenas o número um e o próprio número. Por exemplo, o 13 é um número primo porque ele só tem os divisores 1 e 13. Todo número pode ser escrito como um produto de números primos. Há muitas ferramentas para encontrar os números primos, incluindo os esquemas de tomada de decisão. Você pode facilmente adicionar um macro no Excel 2007 para substituir parte do processo de tomada de decisão. Um macro é uma ferramenta que te permite personalizar o Excel com seus próprios botões: neste caso, um botão que computa fatores. Assim que você adicionar o macro, simplesmente coloque o número e o Excel calculará os fatores.

Nível de dificuldade:
Desafiante

Outras pessoas estão lendo

O que você precisa?

  • Excel 2007

Lista completaMinimizar

Instruções

  1. 1

    Feche todas as pastas de trabalho e inicie uma nova planilha do Excel. Pressione "ALT + F11" para iniciar o editor visual básico.

  2. 2

    Dê duplo clique em uma pasta de trabalho no menu VBAProject no topo esquerdo da tela para abrir uma planilha.

  3. 3

    Corte e cole o código seguinte dentro da pasta de trabalho vazia:

    Sub GetFactors() Dim Count As Integer Dim NumToFactor As Single 'Integer limits to < 32768 Dim Factor As Single Dim y As Single Dim IntCheck As Single

    Count = 0 Do NumToFactor = _ Application.InputBox(Prompt:="Type integer", Type:=1) 'Force entry of integers greater than 0. IntCheck = NumToFactor - Int(NumToFactor) If NumToFactor = 0 Then Exit Sub 'Cancel is 0 -- allow Cancel. ElseIf NumToFactor < 1 Then MsgBox "Please enter an integer greater than zero." ElseIf IntCheck > 0 Then MsgBox "Please enter an integer -- no decimals." End If 'Loop until entry of integer greater than 0. Loop While NumToFactor <= 0 Or IntCheck > 0 For y = 1 To NumToFactor 'Put message in status bar indicating the integer being checked. Application.StatusBar = "Checking " & y Factor = NumToFactor Mod y 'Determine if the result of division with Mod is without _ remainder and thus a "factor". If Factor = 0 Then 'Enter the factor into a column starting with the active cell. ActiveCell.Offset(Count, 0).Value = y 'Increase the amount to offset for next value. Count = Count + 1 End If Next 'Restore Status Bar. Application.StatusBar = "Ready" End Sub

    Sub GetPrime() Dim Count As Integer Dim BegNum As Single 'Integer limits to < 32768 Dim EndNum As Single Dim Prime As Single Dim flag As Integer Dim IntCheck As Single Count = 0

    Do BegNum = _ Application.InputBox(Prompt:="Type beginning number.", Type:=1) 'Force entry of integers greater than 0. IntCheck = BegNum - Int(BegNum) If BegNum = 0 Then Exit Sub 'Cancel is 0 -- allow Cancel. ElseIf BegNum < 1 Then MsgBox "Please enter an integer greater than zero." ElseIf IntCheck > 0 Then MsgBox "Please enter an integer -- no decimals." End If 'Loop until entry of integer greater than 0. Loop While BegNum <= 0 Or IntCheck > 0

    Do EndNum = _ Application.InputBox(Prompt:="Type ending number.", Type:=1) 'Force entry of integers greater than 0. IntCheck = EndNum - Int(EndNum) If EndNum = 0 Then Exit Sub 'Cancel is 0 -- allow Cancel. ElseIf EndNum < BegNum Then MsgBox "Please enter an integer larger than " & BegNum ElseIf EndNum < 1 Then MsgBox "Please enter an integer greater than zero." ElseIf IntCheck > 0 Then MsgBox "Please enter an integer -- no decimals." End If 'Loop until entry of integer greater than 0. Loop While EndNum < BegNum Or EndNum <= 0 Or IntCheck > 0

    For y = BegNum To EndNum flag = 0 z = 1 Do Until flag = 1 Or z = y + 1 'Put message into Status Bar indicating the integer and _ divisor in each loop. Application.StatusBar = y & " / " & z Prime = y Mod z If Prime = 0 And z <> y And z <> 1 Then flag = 1 End If z = z + 1 Loop

    If flag = 0 Then 'Enter the factor into a column starting with the active cell. ActiveCell.Offset(Count, 0).Value = y 'Increase the amount to offset for next value. Count = Count + 1 End If Next y 'Restore Status Bar. Application.StatusBar = "Ready" End Sub

  4. 4

    Clique em "Arquivo" e depois escolha "Fechar e retornar ao Microsoft Excel".

  5. 5

    Clique no botão do Microsoft Office no Excel. Clique em "Opções do Excel", "Personalizar" e, em seguida, selecione "Macros" nos comandos de "Escolha".

  6. 6

    Na lista, clique no macro "ThisWorkbook.GetFactors", e então clique em "Adicionar". Clique em "OK". Esta operação faz com que o macro seja adicionado na barra de ferramentas de acesso rápido no topo esquerdo do Excel.

  7. 7

    Selecione a célula onde você gostaria que os dados apareçam.

  8. 8

    Clique no botão macro na barra de ferramentas de rápido acesso. Digite o número do qual você quer encontrar o fator primo. O Excel retornará com uma lista de todos os fatores (incluindo primos e não-primos) na coluna selecionada. Por exemplo, os fatores do 30 são 1,2,3,5,6,10,15 e 30.

  9. 9

    Selecione os números primos da lista fornecida. Os números primos na lista são 2,3 e 5. Esses são os fatores primos do seu número fornecido.

Dicas & Advertências

  • Deixe que o Excel calcule as divisões para você. Adicione as equações relevantes às células que retornam os fatores, ao invés de calcular à mão.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível