|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.05.2011, 16:05 | #1 |
Пользователь
Регистрация: 19.04.2010
Сообщений: 80
|
гипербола в делфи
procedure TForm1.x1Click(Sender: TObject);
var i,y:integer; p:real; s:string; begin MediaPlayer1.FileName:='Tada.wav'; MediaPlayer1.Open; MediaPlayer1.Play; p:=0; y:=10; ChartFX1.OpenDataEx(COD_VALUES,1,y) ; for i:=0 to y-1 do begin что сюда добавить что рисовало гиперболу кривых второго порядка ибо за такой формулой(x^=2py and x^=-2py ) img115.jpg Вот фотка {ChartFX1.Value[i]:=2*p*y; str((2*p*y):1:2,s); ChartFX1.Legend[i]:=s;} end; ChartFX1.CloseData(COD_VALUES); StatusBar1.Panels[2].Text:='Побудова графіка ' end; вот исходник всего 1.rar |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
делфи | Alinka-nise | Помощь студентам | 1 | 27.02.2011 17:14 |
JS в делфи | maloun | Общие вопросы Delphi | 3 | 29.01.2011 13:26 |
Делфи | natasxa | Помощь студентам | 2 | 01.05.2010 23:04 |
Код игры на Паскале и на Делфи сильно отличается? Как переписать код с Паскаля в Делфи? | Mclaren | Помощь студентам | 2 | 27.04.2009 22:37 |