Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Mathematik

Berechnung des Satzes des Pythagoras

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.MitgliedWarhead 27.06.2023

Dieses Code- Beispiel stellt die Berechnung des Satzes des Pythagoras vor.
Im diesen Codebeispiel kann man alle Werte ausrechnen. Das Programm braucht dafür jeweils 2 Werte, welche durch die Eingabe erfolgen.
Die Formel zur Berechnung gilt wie folgt: c^2 = a^2 + b^2 bzw. c = Wurzel aus (a^2 + b^2)

'' -------------------------------------------------------------------
'' Datei: Satz_des_Pythagoras.bas
'' letzte Aenderung 26.06.2023 - Sundboy60
'' Ueberarbeitung und Optische Verschoenerung
'' Autor: Warhead, Datum: 11/01/2011
'' -------------------------------------------------------------------

    DIM AS DOUBLE A, B, C : DIM AS STRING IN
    WIDTH 190, 62 : COLOR 10 : LOCATE , , 0
    ? !"\10 Berechnung des ""Satzes des Pythagoras"""
    ? !"\10 Formel: c\253 = a\253 + b\253"
    ? !"\10 Welchen Wert m\148chtest du ermitteln?"
    ? !"\10 [a] Kathete a" : ? " [b] Kathete b"
    ? " [c] Hypothenuse" : ? " [ ] Programmende"
    DO
        ? !"\10 Deine Auswahl bitte: ";
        DO : IN = INKEY : LOOP WHILE IN = "" : ? IN
        SELECT CASE IN
            CASE "a"
                ? !"\10 Hierf\129r gilt folgende Formel: " _
                            & !"a = "; WCHR(8730); !"(c\253 - b\253)\10"
                INPUT " Hypothenuse = ", C
                INPUT " Kathete   b = ", B
                IF B > C THEN ? " Werte getauscht!" : SWAP B, C
                A = SQR(C ^ 2 - B ^ 2)
                IF A = 0 THEN
                    ? " Kein Dreieck!"
                ELSE : ? " Kathete   a = " & A : END IF
            CASE "b"
                ? !"\10 Hierf\129r gilt folgende Formel: " _
                            & !"b = "; WCHR(8730); !"(c\253 - a\253)\10"
                INPUT " Hypothenuse = ", C
                INPUT " Kathete   a = ", A
                IF A > C THEN ? " Werte getauscht!" : SWAP A, C
                B = SQR(C ^ 2 - A ^ 2)
                IF B = 0 THEN
                    ? " Kein Dreieck!"
                ELSE : ? " Kathete   b = " & B : END IF
            CASE "c"
                ? !"\10 Hierf\129r gilt folgende Formel: " _
                            & !"c = "; WCHR(8730); !"(a\253 + b\253)\10"
                INPUT " Kathete   a = ", A
                INPUT " Kathete   b = ", B
                C = SQR(A ^ 2 + B ^ 2)
                ? " Hypothenuse = " & C
            CASE ELSE : EXIT DO
        END SELECT
    LOOP
    CLS : END


Zusätzliche Informationen und Funktionen
  • Das Code-Beispiel wurde am 08.01.2011 von MitgliedWarhead angelegt.
  • Die aktuellste Version wurde am 27.06.2023 von MitgliedSundboy60 gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen