面白い問題おしえて〜な 27問目

[0260 １３２人目の素数さん 2018/08/26(日) 07:14:03.46 ID:bVDU8wDx]

Rで書くとこんな感じ

area3 <- function(A,B,C){
a=sqrt(sum((B-C)^2))
b=sqrt(sum((C-A)^2))
c=sqrt(sum((A-B)^2))
s=(a+b+c)/2
return(sqrt(s*(s-a)*(s-b)*(s-c)))
}