Navigace: Hlavní stránka -> BASIC -> 03 Podmínky -> 03.01 Test, zda 3 zadaná čísla jsou stranami trojúhelníku

MENU

03.01 Test, zda 3 zadaná čísla jsou stranami trojúhelníku

Zadání:
Sestavte program, který určí, zda zadané tři hodnoty mohou být stranami trojúhelníku.
Řešení:
Hodnoty mohou být stranami trojúhelníku v případě, že součet libovolných dvou hodnot je větší než třetí hodnota. 
Module Module1

    Sub Main()

        Dim a, b, c As Double

        Console.Write("Zadejte prvni cislo: ")
        a = Console.ReadLine
        Console.Write("Zadejte druhe cislo: ")
        b = Console.ReadLine
        Console.Write("Zadejte treti cislo: ")
        c = Console.ReadLine

        If a + b > c And b + c > a And a + c > b Then
            Console.WriteLine("Trojuhelnik lze sestrojit")
        Else
            Console.WriteLine("Trojuhelnik nelze sestrojit")
        End If

        Console.ReadLine()

    End Sub

End Module
program ke stažení
Pro studenty:
V Basicu není nutné jednotlivé podmínky v příkazu IF umístit do závorek, logické operátory mají nižší prioritu, než matematické operátory.