![]() |
|
|
Planilha de Dimensionamento de Tubulações
Hidráulicas Água Fria e Água Quente CompletaNossa planilha automática de dimensionamento de tubulações de água fria e quente é uma ferramenta desenvolvida para auxiliar engenheiros e projetistas no cálculo rápido e preciso das redes hidráulicas de edificaçoes. Por meio da inserçao de dados como vazao, diâmetro da tubulaçao, comprimento da rede, material do tubo e coeficientes hidráulicos, a planilha realiza automaticamente os cálculos necessários para verificar velocidade da água, perda de carga e dimensionamento adequado das tubulaçoes. |
||
Você está aqui: VB.NET ::: Desafios e Lista de Exercícios Resolvidos ::: Matemática e Estatística |
Como calcular os fatores de um número em VB.NET - VB.NET para Matemática - Desafio de Programação Resolvido em VB.NETQuantidade de visualizações: 571 vezes |
|
Pergunta/Tarefa: Um fator de um número inteiro é um número que o divide sem deixar resto. Por exemplo, o número 2 é um fator do número 6, pois 6 dividido por 2 é igual a 3. Da mesma forma o número 3 é fator do número 6, pois 6 dividido por 3 é igual a 2. O número 1 é fator de todos os outros números. Um número é fator dele mesmo, pois a divisão dele por ele mesmo resulta em 1. Escreva um programa VB.NET que pede um número inteiro positivo e mostre todos os seus fatores. Sua saída deverá ser parecida com: Informe um número inteiro positivo: 60 Os fatores de 60 são: 1 2 3 4 5 6 10 12 15 20 30 60 Veja a resolução comentada deste exercício usando VB.NET:
Imports System
Module Program
' função principal do programa VB.NET
Sub Main(args As String())
' vamos pedir para o usuário informar um número
Console.Write("Informe um número inteiro positivo: ")
Dim numero As Integer = Int32.Parse(Console.ReadLine())
' agora calculamos e exibimos os fatores do número informado
Console.WriteLine(vbCrLf & "Os fatores de " & numero & " são:" & vbCrLf)
' um laço que repete de 1 até o número informado
For i As Integer = 1 To numero
' este número divide o valor de i sem deixar resto?
If numero Mod i = 0 Then
Console.Write(i & " ")
End If
Next
Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
' pausa o programa
Console.ReadKey()
End Sub
End Module
|
|
|
Mais Desafios de Programação e Exercícios e Algoritmos Resolvidos de VB.NET |
Veja mais Dicas e truques de VB.NET |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |



