|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.11.2017, 12:56 | #1 |
Новичок
Джуниор
Регистрация: 19.11.2017
Сообщений: 1
|
Одномерный массив
Ребят, нужна помощь. Делаю работу в делфи, надо показать сложение векторов в Arrow chart.Все сделал, но только без использования массивов. Теперь надо сделать то же только с помощью массивов, а я не особо в курсе как с ними работать. В общем я задаю два вектора, каждый с помощью 4 координат(x0,y0,x1,y1) и считаю их сумму . Как теперь задавать эти векторы с помощью массивов???
Вот мой код: var Form1: TForm1; x0,y0,x1,y1,x2,y2,S: real; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender:TObject) ; begin With Series1 do begin x0:=strtofloat(edit1.Text); y0:=strtofloat(edit2.Text); x1:=strtofloat(edit3.Text); y1:=strtofloat(edit4.Text); x2:=strtofloat(edit5.Text); y2:=strtofloat(edit6.Text); AddArrow(x0,y0,x1,y1,' ',clRed); AddArrow(x1,y1,x2,y2,' ',clBlue); AddArrow(x0,y0,x2,y2,' ',clGreen); S:=sqrt(sqr(x2-x0)+sqr(y2-y0)); label7.Caption:='Длина результирующего вектора= '+floattostr(S) end; end; procedure TForm1.Button2Click(Sender: TObject); begin chart1.SeriesList[0].Clear; end; end. Последний раз редактировалось Hollydolly; 19.11.2017 в 15:55. |
21.11.2017, 12:21 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,566
|
Если с массивами, то я бы сделал так :
Код:
Можно и по другому: Поместить на форму еще одну кнопку Proc, в начале она неактивна. После ввода 8 значений она активируется, а кнопка x0 - наоборот. Тогда в обработчик второй кнопки уходит вся хрень . Последний раз редактировалось digitalis; 21.11.2017 в 12:33. |
22.11.2017, 12:03 | #3 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,566
|
Ну что, помогло? Или - абы спросить ?
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ошибка в libcef.dll только с Delphi 7, в Delphi XE3 - нет | noname_06 | Общие вопросы Delphi | 6 | 08.05.2013 06:49 |
Не изменяется интерфейс моей программы при переходе с Delphi 7 на Delphi 2010 | Elvisnya | Общие вопросы Delphi | 3 | 28.04.2011 15:59 |
Rad Studio 2011 XE: новое в Delphi, C++ Builder, RadPHP и Delphi Prism | savva-paladin | Софт | 18 | 02.10.2010 20:24 |
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью? | redred | Общие вопросы Delphi | 10 | 11.12.2007 10:43 |
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет? | dagarik | БД в Delphi | 7 | 22.10.2007 17:54 |