Plot[-(p Log[p]) - (1 - p) Log[1 - p], {p, 0, 1}]