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

個人的自由ノート

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

OCamlで問題を解く

print_string "整数値 : ";;
let n = read_int() in if n mod 10 == 0
                      then print_string "その値は10の倍数です。\n"
                      else print_string "その値は10の倍数ではありません。\n";;



print_string "整数値 : ";;
let n = read_int() in if n mod 3 == 0
                      then print_string "その値は3で割り切れます。\n"
                      else if n mod 3 == 1
                      then print_string "その値を3で割った余りは1です。\n"
                      else if n mod 3 == 2
                      then print_string "その値を3で割った余りは2です。\n";;



print_string "点数 : ";;
let t = read_int() in if t >= 0 && t <= 59
                      then print_string "不可\n"
                      else if t >= 60 && t <= 69
                      then print_string "可\n"
                      else if t >= 70 && t <= 79
                      then print_string "良\n"
                      else if t >= 80 && t <= 100
                      then print_string "優\n"
                      else print_string "不正な点数です。\n";;




print_string "実数a : ";;
let a = read_float();;
print_string "実数b : ";;
let b = read_float();;
      
let max = if a > b then a else b;;

print_endline("大きい方の値は" ^ string_of_float(max) ^ "です。");;




print_string "整数a : ";;
let a = read_int();;
print_string "整数b : ";;
let b = read_int();;

let diff = if a > b then a - b else b - a;;

print_string("それらの差は" ^ string_of_int(diff) ^ "です。\n");;