Задание:Для любой функции(cos или sin), те области которые выше оси х и ниже функции f(x),(т.е идет допустим синусоида она меняется с амплитудой дак вот именно внутреннюю область, которая над осью x и нижнюю внутреннюю область область, которая под осью х) заштриховать наклонными линиями разного наклона.
program graphik;
uses Crt, graph;
var gm,gd: integer;
cx,cy,mx,my: integer;
l,r,x,y: real;
begin
WriteLn('Введите левую границу интервала:');
ReadLn(l);
WriteLn('Введите правую границу интервала:');
ReadLn(r);
gd:=detect;
InitGraph(gd,gm,'c:\bp\bgi');
cx:=GetMaxX div 2;
cy:=GetMaxY div 2;
SetColor(White);
MoveTo(50,cy);
LineTo(GetMaxX - 50,cy);
MoveTo(cx,50);
LineTo(cx,GetMaxY - 50);
x:=l;
mx:=Round(GetMaxX/(Abs(l)+Abs(r)));
my:=Round(GetMaxY/2);
MoveTo(Round(x*mx) + cx,Round(sin(x))*my + cy + 2);
while x<=r do
begin
y:=sin(x)*my + cy + 2;
LineTo(Round(x*mx) + cx,Round(y));
x:=x + 0.1;
end;
ReadLn;
CloseGraph;
end.
Это мой график.