Форум программистов, компьютерный форум, киберфорум
Наши страницы

Метод хорд для решения нелинейного уравнения - Delphi

Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Загрузить данные из XML в ComboBox http://www.cyberforum.ru/delphi-beginners/thread535602.html
Привет!! ребят помогите как сделать чтобы из XML в ComboBox1 данные грузились procedure TForm1.Button1Click(Sender: TObject); begin XMLDocument1.LoadFromFile('http://мой сайт.ru/xml');...
Delphi Отсортировать строки в компоненте ListBox в алфавитном порядке Помогите , запутался . Отсортировать строки в компоненте ListBox в алфавитном порядке. Перенести в компонент Memo выделенные строки. Организовать удаление выделенных строк из компонента ListBox.... http://www.cyberforum.ru/delphi-beginners/thread535509.html
Последовательное переключение radiobutton Delphi
Здравствуйте, в общем задача такая. Мне надо чтобы по radiobutton с РП1-РП8 переходил сигнал, при достижении РП8 загорался КИ0 (т.е. чтобы загорелся следующий сигнал КИ1, РП должны пройти с 1-8) ,...
Delphi Поменять местами строку матрицы с минимальным элементом со строкой с максимальным
Дана квадратная матрица вещественных чисел. Если сумма элементов главной диагонали больше суммы элементов побочной диагонали, поменять местами строку с минимальным элементом со строкой с максимальным...
Delphi Сортировка по убыванию методом пузырька http://www.cyberforum.ru/delphi-beginners/thread535458.html
Условие задачи : 26. Есть некий измерительный прибор, работа которого зависит от входных параметров a и x, а результат определяется следующей формулой у = a sin(ax) cos2 (x/a). Проводится серия...
Delphi Объединение нескольких строк в одну Привет всем! У меня к вам очередной вопрос! Значит по теме у меня есть строка STRING:='Привет'; У меня есть число например 10 оно изменяется то есть сейчас оно 10 в следующий раз 20 и так... подробнее

Показать сообщение отдельно
Swex
0 / 0 / 0
Регистрация: 19.03.2012
Сообщений: 15
01.04.2012, 15:53  [ТС]
да, через Tchart...в правильности не уверен. нас только так учили. вот кусок программы по которому строится

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button2Click(Sender: TObject);
var X1,X2,x,h,f,tg,a:extended;
begin
X1 := strtofloat(Edit1.Text);
X2 := strtofloat(Edit2.Text);
h := strtofloat(Edit4.Text);
a := strtofloat(Edit5.Text);
x := x1;
while x<=X2 do
 begin
 tg:=sin(x)/cos(x);
  f := a*cos(abs(x))*cos(abs(x))*cos(abs(x))+a*sin(a*x)+a*tg*tg*tg*tg+a*ln(x)*ln(x)+a;
  series1.addXY(x,f);
   x := x+h;
end;
end;
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru