построить график пропускной способности канала при передачи сигналов со скоростью v=1c-1 на символ и вероятность ошибочного приема символа Pc (0<Pc<1) как фунцыю C=f(Pc)
C=v*(log2M+(1-Pc)*log2(1-Pc)+Pc*log2(Pc/m-2)
M>=2
log основой 2

Ну, что-то вот такое не подойдет?

const
  scaleX = 600;
  scaleY = { подберешь в зависимости от значений func }
var
  i: integer;
  Pc, func: real;
...
{ 99 точек хватит? }
for i := 1 to 99 do begin
  Pc := i / 100;
  func := { здесь твоя функция }; 

  { а здесь - рисуешь точку на графике:
  по оси Х значение Pc, по оси Y - значения func }

  putpixel(Pc*scaleX, getmaxy - func*scaleY, white);
end;