marongiuchristian93

[VB.NET] Trovare il divisore dei numeri inseriti

Jan 20th, 2018
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Module Module1
  2.  
  3.     Sub Main()
  4.  
  5.         Dim N As Int64 'numero da inserire
  6.        Dim M As Double 'resto della divisione
  7.        Dim T As String 'tasto digitato
  8. INIZIO:  'destinazione GoTo
  9.        System.Console.WriteLine("Programma per trovare i divisori del numero inserito")
  10.         System.Console.Write("Inserisci un numero: ")
  11.  
  12.         N = System.Console.ReadLine() 'input N
  13.  
  14.             System.Console.WriteLine("I divisori del numero inserito [" & N & "] sono: ")
  15.             System.Console.WriteLine()
  16.  
  17.         For i = N To 1 Step -1 'inizio for
  18.            M = N Mod i 'calcolo del resto della divisione
  19.            If M = 0 Then 'se il resto è 0 allora
  20.                System.Console.WriteLine(i) 'output i
  21.            End If 'fine se
  22.        Next 'fine for
  23.            System.Console.WriteLine()
  24. DOMANDA:  'destinazione GoTo
  25.            System.Console.WriteLine("Vuoi riprovare? S: SI, N: NO")
  26.             T = System.Console.ReadLine()
  27.             System.Console.WriteLine()
  28.         If T = "S" Then 'se è stato scritto S allora
  29.            GoTo INIZIO 'torna all inizio del programma
  30.        ElseIf T = "N" Then 'altrimenti se è N allora
  31.            System.Console.WriteLine("Hai deciso di non riprovare.")
  32.             GoTo FINE 'vai alla fine del programma
  33.        Else 'altrimenti se è messo un altro carattere dai errore
  34.            System.Console.WriteLine("Comando non valido!")
  35.             System.Console.WriteLine()
  36.             GoTo DOMANDA 'vai alla domanda di riprovare
  37.        End If
  38. FINE:
  39.             System.Console.WriteLine("Premi un qualsiasi tasto")
  40.             System.Console.ReadKey()
  41.     End Sub
  42.  
  43. End Module
Advertisement
Add Comment
Please, Sign In to add comment