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!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Warhead2

Uploader:Redakteurytwinky
Datum/Zeit:09.01.2011 22:01:16

'Autor: Warhead
'Datum: 09/01/2011
'Funktion: Berechnung der binomischen Formeln mit Hilfe von 2 Werten
'
'Sprache: FreeBasic
'Veränderungen:

'Variablen deklarieren:

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..