|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.06.2012, 15:27 | #1 |
Новичок
Джуниор
Регистрация: 08.06.2012
Сообщений: 1
|
delphi создать ползунок(scrollbar) на графике
есть программа по вычислению интеграла с графиком ф-ции нужно дополнить график ползунком scrollbar чтобы было перемещение по х и у,и добавить погрешность что бы вводилась как это осуществить?
begin Button2.Enabled:=true; n:=StrToInt(Edit1.Text); //присвоение значений a:=StrToFloat(Edit2.Text); b:=StrToFloat(Edit3.Text); sum:=0; if (a>0)AND(a<b) then //условие что а должно быть больше 0 поскольку у нас корень, и мельше б поскольку б-крайняе верхняя граница begin h:=(b-a)/round(n); //n:=round(int(n1)); //нахождение количества разбиений StringGrid1.RowCount:=n+2; for i:=1 to n do begin StringGrid1.Cols[1].Clear; //обнуление хранилища координат StringGrid1.Cols[0].Clear; end; //сумма площадей на которые был разбит общий интеграл for i:=1 to (n-1) do //здесь в масиве исполняется вычисление интеграла begin x:=a+i*h; f0:=sin(12*x); f1:=cos(6*x); k:=exp(ln(x)/3); //нахождение корня кубического f:=k*(6*f0+12*f1); StringGrid1.Cells[0,i+1]:=FloatToStrF(x,ffFixed,4,3); //запись координат для постоения графика StringGrid1.Cells[1,i+1]:=FloatToStrF(f,ffFixed,4,3); sum:=sum+f; end; fa:=exp(ln(a)/3)*( 6*sin(12*a)+12*cos(6*a)); StringGrid1.Cells[0, 1]:=FloatToStrF(a,ffFixed,4,3); //запись последней координаты для постоения графика StringGrid1.Cells[1, 1]:=FloatToStrF(fa,ffFixed,4,3); fb:=exp(ln(b)/3)*( 6*sin(12*b)+12*cos(6*b)); StringGrid1.Cells[0,n+1]:=FloatToStrF(b,ffFixed,4,3); //запись последней координаты для постоения графика StringGrid1.Cells[1,n+1]:=FloatToStrF(fb,ffFixed,4,3); sft:=h*((fa+fb)/2+sum); //конечное вычисление интеграла и вывод его на форму Label5.Caption:=FloatToStrF(h,ffFix ed,4,3); Label6.Caption:=FloatToStrF(sft,ffF ixed,4,3); end else //если условие не выполнено, на экран выводится определённое сообщение begin ShowMessage('Внимание! вводите значение "a<0 или a>b"'); Edit2.Clear; Edit2.SetFocus; end; BitBtn1.Click; Series1.Cursor := crCross; end; Последний раз редактировалось globalfine; 08.06.2012 в 15:38. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ползунок. | Abuhamed | JavaScript, Ajax | 2 | 05.03.2011 09:59 |
Как создать линии исходящие из точки на графике на оси координат? | Pavarotti | Microsoft Office Excel | 3 | 27.01.2011 09:06 |
Привязка ScrollBar к GroupBox В Delphi | bookkc | Помощь студентам | 6 | 19.10.2010 14:41 |
Программа по графике на Delphi | lBlackCatl | Помощь студентам | 9 | 29.05.2009 15:11 |