読者です 読者をやめる 読者になる 読者になる

落書きノート

ふと自分が気になった事を書いてます

Haskellで不定期練習

import Text.Printf

main :: IO()
main = do
  putStrLn "xの値"
  x <- getLine
  putStrLn "yの値"
  y <- getLine
  let xi = read x :: Float
  let yi = read y :: Float
  printf "合計は%fです。\n" (xi + yi)
  printf "平均は%fです。\n" ((xi + yi) / 2)




import Text.Printf

main :: IO()
main = do
  putStrLn "三角形の面積を求めます。"
  putStrLn "底辺"
  b <- getLine
  putStrLn "高さ"
  h <- getLine
  let bi = read b :: Float
  let hi = read h :: Float
  printf "面積は%fです。\n" (bi * hi / 2)




import Text.Printf

main :: IO()
main = do
  let pi = 3.14
  putStrLn "球の表面積と体積を求めます。"
  putStrLn "半径"
  r <- getLine
  let ri = read r :: Float
  printf "表面積は%fです。\n" (4 * pi * ri * ri)
  printf "体積は%fです。\n" (4 / 3 * pi * ri * ri * ri)





import Text.Printf
import System.Random

main :: IO()
main = do
  a <- (getStdRandom $ randomR (1,9) :: IO Int)
  b <- (getStdRandom $ randomR (-9,-1) :: IO Int)
  c <- (getStdRandom $ randomR (10,99) :: IO Int)
  putStrLn "3個の乱数を生成しました。"
  printf "1桁の正の整数 : %d\n" a
  printf "1桁の負の整数 : %d\n" b
  printf "2桁の正の整数 : %d\n" c





import Text.Printf
import System.Random

main :: IO()
main = do
  putStrLn "整数値"
  n <- getLine
  let ni = read n :: Int
  answer <- (getStdRandom $ randomR (ni - 5, ni + 5) :: IO Int)
  printf "値は%dです。\n" answer
> cabal install random