Visual Basic 2005/Näited/Hüpotenuusi arvutamine

Allikas: Vikiõpikud
Jump to navigation Jump to search
Sub Main()
        Console.WriteLine("See programm arvutab täisnurkse kolmnurga hüpotenuusi.")
        Console.Write("Sisesta külg a: ")
        Dim a As String = Console.ReadLine()
        Console.Write("Sisesta külg b: ")
        Dim b As String = Console.ReadLine()

        If Val(a) = 0 Or Val(b) = 0 Then
            Console.WriteLine("Tegemist on punktmassi, mitte kolmnurgaga.")
            Console.Read()
	    Exit Sub
        End If

        Dim c = Math.Sqrt(Val(a) ^ 2 + Val(b) ^ 2)
        Console.WriteLine("Kolmnurga hüpotenuusi moodul on " & c & ".")

        Console.Read()
End Sub