| ← Июль 2020 → | ||||||
|
1
|
4
|
5
|
||||
|---|---|---|---|---|---|---|
|
6
|
7
|
8
|
9
|
10
|
11
|
12
|
|
13
|
14
|
17
|
18
|
19
|
||
|
20
|
21
|
23
|
24
|
25
|
26
|
|
|
27
|
28
|
29
|
30
|
31
|
||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
 ...Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 11.07.2020, 22:42 Консультирует puporev (Профессор): Здравствуйте, JonMoxley! Код (Pascal) :: выделить код unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart, Grids,
Menus;
type
TForm1 = class(TForm)
Chart1: TChart;
Series1: TLineSeries;
Series2: TLineSeries;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a,b:double;
implementation
{$R *.dfm}
function f(x:double):double;//функция
begin
f:=exp(sin(2*x));
end;
function f1(x:double):double;//1 производная
begin
f1:=2*cos(2*x)*exp(sin(2*x));
end;
//Подготовка некоторых параметров графиков
procedure TForm1.FormCreate(Sender: TObject);
begin
with Chart1 do
begin
Title.Text.Clear;
Title.Text.Add('Графики функции y=e^sin(2x)');
Title.Text.Add('и ее производной');
Series1.Title:='y=e^sin(2x)';
Series1.SeriesColor:=clRed; //цвет для легенды
Series2.Title:='y=2*cos(2x)*exp(sin(2x)';
Series2.SeriesColor:=clBlue;
end;
a:=-pi;
b:=pi;
end;
procedure TForm1.Button1Click(Sender: TObject);
var x:double;
begin
//построение графиков
x:=a;
while x<=b do
begin
series1.AddXY(x,f(x),'',clRed);
series2.AddXY(x,f1(x),'',clBlue);
x:=x+0.01;
end;
end;
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
Прикреплённый файл: 
| В избранное | ||
