Možno narysovať trojuholník?

Keďže som tu jeden z mála čo vie programovať v jazyku VB.NET, tak som sa rozhodol pre tunajšie komunitu pripraviť veľmi jednoduchú ukážku. Tentoraz si to urobíme trochu zaujímavejšie.

Najprv vám poviem, ako zistiť, či trojuholník možno narysovať a ako spočítať jeho obvod aj obsah. Potom sa pokúsite sami vytvoriť jednoduchú aplikáciu, ktorá to spracuje automaticky. Ako overenie, že funguje správne, je nižšie textové pole a jednoduchá úloha, ktorá vašu aplikáciu otestuje. Až keď bude aplikácia otestovaná, Vám dovolím prečítať si, ako som túto aplikáciu riešil ja. Dúfam, že sa Vám to bude páčiť.

Možno trojuholník narysovať?

Trojuholník možno narysovať, ak platí, že

strana A + strana B > strana C

strana B + strana C > strana A

strana C + strana A > strana B

Ak platia všetky tieto pravidlá, trojuholník možno narysovať.

Obvod

Obvod spočítame jednoducho a to tak že sčítame všetky strany.

o = A + B + C

Obsah

Obsah už je trochu ťažšie, na papier by ste to asi zvládli, ale v algoritme je to ťažšie. existuje však tzv. Heronův vzorec.

Ten je nasledujúca a pri programovaní vyjdite znej:

herónov vzorec - Zdrojákoviště VB .NET - Základná konštrukcia

inak s =

Zdrojákoviště VB .NET - Základná konštrukcia

Takže teraz príde tá zábavná časť

Naprogramujte si aplikáciu, ktorá zistí, či je možné trojuholník narysovať. Ak áno, tak nech aplikácie zistí obvod a obsah trojuholníka. Ešte napoviem, že na odmocniny slúži funkcia Math.Sqrt(cislo).

Úloha

Vašou úlohou je zistiť obvod a obsah trojuholníka, pre ktorý platí: { A = 7 ; B = 5 ; C = 6 }. Tieto dáta nechajte spracovať vašu aplikáciu.

Nižšie napíšte výsledok, stačí na 2 desatinné miesta, zvyšok desatinných miest odtrhnite.

Obvod: Obsah:

Gratuluji, vaše aplikace funguje správně.
Můj zdrojový kód byl následující:


Sub Main()
    While True 'Budeme vyzívat uživatele k zadání hodnot, tak dlouho, dokud bude chtít. Však tam má červený křížek.
        Try
            Console.Write("Zadejte stranu A: ")
            Dim A As Integer = Console.ReadLine() 'strana A

            Console.Write("Zadejte stranu B: ")
            Dim B As Integer = Console.ReadLine() 'strana B

            Console.Write("Zadejte stranu C: ")
            Dim C As Integer = Console.ReadLine() 'strana C

            'Všiměnte si podmínky níže, pokud podmínka platí dosadí se True, pokud ne Tak False
            Dim lzeNarysovat As Boolean = (A + B > C And B + C > A And C + A > B) 'Pokud to vše platí, trojúhelník lze narýsovat

            If lzeNarysovat Then 'Pokud lze trojúhelník narýsovat
                Console.WriteLine("Trojúhelník lze narýsovat.")
                Console.WriteLine("Obvod trojúhelníku je: {0}", A + B + C)
                'Vzorcem na výpočet obsahu se příliš nezatěžujte, pokud jste zvídavý tak je popsán zde: http://www.matweb.cz/obsah-trojuhelniku
                Dim s As Double = (A + B + C) / 2
                Dim obsah = Math.Sqrt(s * (s - A) * (s - B) * (s - C))
                Console.WriteLine("Obsah trojúhelníku je: {0}", obsah)
            Else
                Console.WriteLine("Trojúhelník nelze narýsovat")
            End If
        Catch ex As InvalidCastException
            'Ach jo, uživatel je trubka a píše nám tam nesmsly...
            Console.WriteLine("Neplatná hodnota.")
        End Try
        Console.WriteLine()
    End While
End Sub

Váš kód nejspíš bude odlišný, ale to vůbec nevadí, můj kód si prohlédněte a podívejte se na takové různé zajimavosti.
Doufám, že se vám tento článek líbil a, že jste si jazyk VB.NET procvičili.

Galéria

Stiahnuť

Stiahnutím nasledujúceho súboru súhlasíš s licenčnými podmienkami

Stiahnuté 448x (60.57 kB)
Aplikácia je vrátane zdrojových kódov v jazyku VB

Program pre vás napísal Michal Žůrek - misaz

Užívateľské hodnotenie:

Ešte nikto nehodnotil, buď prvý!

Autor se věnuje tvorbě aplikací pro počítače, mobilní telefony, mikroprocesory a tvorbě webových stránek a webových aplikací. Nejraději programuje ve Visual Basicu a TypeScript. Ovládá HTML, CSS, JavaScript, TypeScript, C# a Visual Basic.

Aktivity