фильтр Pascal

[ChiliC]

Задача состоит в создании фильтра Analog to Digital.
Имеем такую схему:

и вот такую функцию:
y(n*T)=a*x(n*T)+a*x((n-1)*T)-b*y((n-1)*T)
a=T/T+2*R*C
b=T-2*R*C/T+2*R*C
T=1 секунде
Амплитудная характеристика:

Нужно получить график в реальном времени, синусоиду, состоящую из 100 точек и частотой от 0,01 Гц до 0,5 Гц получаемую с приборов.
Наброски программы:

r:='M2T5E';
send(adress,r,status);
delay(1000);
enter(r,255,1,adress,status);
s:=copy(r,3,12);
val(s,x[i],code);
initialize(21,0);
i:=3; j:=1;
intergraph(i,j,'C:\TP6\BGI');
line(x1,y1,x2,y2);
putpixel(x1,y1,red);
cleardevice;

[Stilet]

Мдя... а это какой из паскалей?

[ChiliC]

Сообщение от Stilet

Мдя... а это какой из паскалей?

Турбо паскаль, который еще на 98 винде стоит