Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
WarHead1
| Uploader: |  ytwinky |
| Datum/Zeit: | 09.01.2011 21:18:43 |
'Autor: Warhead
'Datum: 09/01/2011
'Funktion: Berechnung der binomischen Formeln mit Hilfe von 2 Werten
'
'Sprache: FreeBasic
'Veränderungen:
'Variablen deklarieren:
'x
DIM AS DOUBLE x, y, wahl, z
Var s="", c=""
'Hauptprogramm:
Do
s=!"Programm: Berechnung von binomischen Formeln\n\n"
s &= !"Formeln: 1. (x+y)^2 = x^2 + 2xy + y^2\n 2. (x-y)^2 = x^2 - 2xy + y^2\n"
s &= !" 3. (x+y) * (x-y) = x^2 - y^2\n\nWelche Formel möchtest du anwenden?\n"
s &= !"Für die erste Formel: 1\nFür die zweite Formel: 2\nFür die dritte Formel: 3\n\n"
Print s &!"e=Ende\nWas wählst du? ";
c="": While c="": c=Inkey:Wend
Print c
Select Case Wahl
Case 1
PRINT "Hierfür gilt die erste binomische Formel: "
PRINT "(x+y)^2 = x^2 + 2xy + y^2"
'Variablen einsetzen:
PRINT ""
INPUT "Wert x = ", x
INPUT "Wert y = ", y
'Berechnung:
z = (x + y)^2
s= !"Das Ergebnis lautet:\n\n( " & x &" " & y &" )^2 = " & z
Case 2
PRINT "Hierfür gilt die zweite binomische Formel: "
PRINT "(x-y)^2 = x^2 - 2xy + y^2"
'Variablen einsetzen:
INPUT "Wert x = ", x
INPUT "Wert y = ", y
'Berechnung:
z = (x - y)^2
s= !"Das Ergebnis lautet:\n\n( " & x &" - " & y &" )^2 = " &z
Case 3
PRINT "Hierfür gilt die dritte binomische Formel: "
PRINT "(x+y) * (x-y) = x^2 - y^2"
'Variablen einsetzen:
INPUT "Wert x = ", x
INPUT "Wert y = ", y
'Berechnung:
z = (x + y) * (x - y)
s=!"Das Ergebnis lautet:\n\n( " & x &" " & y &" ) ( " & x &" - " & y &" ) = " & z
END Select
Print s
Loop Until Instr(!"e\027", c)
END
'nur mal schnell geändert, nicht getestet..