fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

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

Uploader:	Sebastian
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

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.