Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ задачка на графику

Автор: btr86 3.06.2004 18:57

Ребята помогите пожалуйста ! Срочно надо решить это задание ! Я пытался пытался не получается!! ПОжалуйста помогите решить мне последняя задача осталась и я ее решить не могу!!!
Задание:Для любой функции(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.

Это мой график.

Автор: btr86 4.06.2004 1:16

Люди, ну не уэели никто не может помочь?

Автор: trminator 4.06.2004 1:53

Разного наклона - это что значит? На каждом промежутке свой наклон? Тогда можно использовать просто FillChar, выбрав подходящий FillStyle (SetFillStyle).

Поставь в SetFillStyle Pattern = UserFill, и помучайся с полчасика с SetFillPattern. Вроде должно получиться что-нибудь. Pattern'ы дл SetFillPattern наверное можно не подготавливать во время работы программы, а посчитать заранее.

ИМХО копать в ту сторону.

Автор: Romtek 7.06.2004 3:04

Код
SetFillStyle(LtSlashFill, Yellow);

Автор: trminator 8.06.2004 0:02

romtek, просят заштриховать линиями _разного_ наклона.