NX = 50; {Количество точек по горизонтали}

dt = 2*pi/NX; {Шаг табуляции}

МахХ = 300; {Горизонтальный размер графика}

MaxY = 100; {Амплитуда графика}

dx = МахХ div NX; {Горизонтальный шаг графика}

dd = 20; {Поле по краям графика}

________________________________________.....- -"•г

r.'jll^n^nn^I^^

Puc.JOJ.

begin

ScreenSize.X := 80; {Ширина виртуального экрана} ScreenSize.Y := 60; {Длина экрана} AutoTracking :== False; {Запрещаем прокрутку} InitWinCrt; {Создаем окно} DC := GetDC(CrtWindow); {Получаем его контекст} {Выводим светлосерый прямоугольник для фона графика} R.Left := 0;

R.Top := 0;

R.Right := MaxX+3*dd;

R.Bottom := 2*MaxY+3*dd;

FillRect(DC,R,GetStockObject(LtGray_Brush)) ;

{Вычерчиваем оси} MoveTo(DC,dd,dd) ;

LineTo(DC,dd,2*(MaxY+dd)) ;

MoveTo(DC,dd,MaxY+dd) ;

LineTo(DC,MaxX+2*dd,MaxY+dd) ;

{Готовим шрифт для надписи} FillChar(LogFont,SizeOf(LogFont) ,0);

with LogFont do