我咯血了,医院CT结果为右肺尖少许感染,医生说是肺炎,要输液10天,吃药15天,可是肺炎怎么会咯血呢?