Code-Beispiel
Berechnung des Satzes des Pythagoras
| Lizenz: | Erster Autor: | Letzte Bearbeitung: |
| k. A. |  Warhead |  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 Warhead angelegt.
- Die aktuellste Version wurde am 27.06.2023 von Sundboy60 gespeichert.
|
|
Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!
Bearbeiten
Versionen