-
Linguagem
Visual Basic .Net
-
Descrição
Faça um algoritmo que receba um numero inteiro e imprima o seu antecessor e sucessor.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Module AntecessorESucessor
Sub Main()
Dim antecessor, sucessor, um_numero As Integer
Console.Write("Digite o valor do um numero: ")
um_numero = Integer.Parse(Console.ReadLine())
antecessor=um_numero-1
sucessor=um_numero+1
Console.WriteLine("O valor do antecessor: " & antecessor)
Console.WriteLine("O valor do sucessor: " & sucessor)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim antecessor, sucessor, um_numero As Integer
Console.Write("Digite o valor do um numero: ")
um_numero = Integer.Parse(Console.ReadLine())
antecessor=um_numero-1
sucessor=um_numero+1
Console.WriteLine("O valor do antecessor: " & antecessor)
Console.WriteLine("O valor do sucessor: " & sucessor)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module