Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [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

Kreisfläche als Function (Beispiel für Moep)

Uploader:AdministratorSebastian
Datum/Zeit:13.07.2008 18:41:40

CONST Pi As Double = 3.14159#

Declare Function KreisFlaeche (Radius As Double) As Double

Dim As Double Eingabe
PRINT "Berechnung der Kreisflaeche"
INPUT "Radius (mit . statt , eingeben!): ", Eingabe
Print Using "A = ####.######"; KreisFlaeche(Eingabe)
Sleep
End


Function KreisFlaeche (Radius As Double) As Double
    Dim As Double Ergebnis
    Ergebnis = Pi*(Radius^2)
    Return Ergebnis
End Function