Das deutsche Python-Forum

Code: Alles auswählen

#!/usr/bin/env coffee
readline = require "readline"

Number :: squared = () -> this * this

interface = readline.createInterface process.stdin, process.stdout
interface.question "Bitte Durchmesser eingeben: ",
    (answer) ->
        d = parseFloat answer
        if isNaN d
            console.log "Fehler: Eingabe war keine Zahl!"
        else
            console.log "Die Fläche beträgt", Math.PI * d.squared() / 4
        
        interface.close()
        process.stdin.destroy()

Code: Alles auswählen

import Data.Maybe (listToMaybe)
import System.IO (hSetBuffering, BufferMode(NoBuffering), stdout)
import Network.CGI.Protocol (maybeRead)

area :: Double -> Double
area diameter = pi * diameter ^ 2 / 4

ask question = fmap maybeRead (putStr question >> getLine)

main :: IO ()
main = do
    hSetBuffering stdout NoBuffering
    maybeAnswer <- ask "Bitte Durchmesser eingeben: "
    putStrLn $ maybe ("Fehler: Eingabe war keine Zahl!")
                     (("Die Fläche beträgt " ++) . show . area)
                     maybeAnswer

Code: Alles auswählen

Program CircleArea;

Const
  four: Word = 4;

Var A, d: Real;

Begin
  Write('Bitte Durchmesser eingeben: ');
  ReadLn(d);
  Asm
    fninit
    fld d
    fmul %st,%st
    fldpi
    fmulp
    fidiv four
    fstp A
  End;
  WriteLn('Die Fläche beträgt ', A:0:3);
End.

Code: Alles auswählen

: main ( -- )
    ." Bitte Durchmesser eingeben: " pad 80 accept cr
    pad swap >float
    if
        fdup f* pi f* 4e f/
        ." Die Fläche beträgt " f.
    else
        ." Eingabe war keine Zahl."
    then cr ;

main bye

Code: Alles auswählen

import java.util.Scanner;

public class Durchmesserberechner {
    public static void main(String[] args) {
        System.out.print("Bitte Durchmesser eingeben: ");
        String eingabe = new Scanner(System.in).nextLine();
        try {
            double durchmesser = new Double(eingabe);
            System.out.format("Die Fläche beträgt %.1f",
                              Math.PI * Math.pow(durchmesser, 2) / 4);
        } catch (NumberFormatException e) {
            System.err.println("Fehler: Eingabe war keine Zahl!");
        }
    }
}

Code: Alles auswählen

LIST

10 INPUT"DURCHMESSER";D
20 PRINT"FLAECHE:";π*D↑2/4
READY.
RUN
DURCHMESSER? 10
FLAECHE: 78.5398164

READY.