Главная » Delphi, Исходники, Разное » Табулирование функций
Ноя
14

Табулирование функций

Программа табулирует функцию после ввода значений правой и левой грани, а также шага. Вводите значения в поля и в верхнем меню нажимаете протабулировать функцию. Получаете значения X и Y, потом жмете — нарисовать график и смотрите на свое творение.

Пример программы:

Исходник:

[sourcecode language=»css»]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ExtCtrls, TeEngine, Series, TeeProcs, Chart;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Label1: TLabel;
N5: TMenuItem;
N6: TMenuItem;
Memo1: TMemo;
PopupMenu1: TPopupMenu;
N7: TMenuItem;
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Edit3: TEdit;
Chart1: TChart;
Series1: TFastLineSeries;
N8: TMenuItem;
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N6Click(Sender: TObject);





private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.N3Click(Sender: TObject);
var
Y, X : double;
l, r, k : double;
s1, s2 : string;
begin
Memo1.Clear;
l := StrToFloat(Edit1.TexT);
r := StrToFloat(Edit2.Text);
k := StrToFloat(Edit3.Text);
Memo1.Lines.Add(‘ X Y’);
While x<=r+k/2 do
begin
Y := sin(x) + 1;
Str(x:8:2,s1);
Str(y:8:2,s2);
if CheckBox1.Checked then
Memo1.Lines.Add(s1+s2);
x :=x+k;
if CheckBox2.Checked then
Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + ‘file.txt’);
Application.ProcessMessages;
end;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.N2Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to ComponentCount-1 do
if Components[i] Is TEdit then
with Components[i] As TEdit do
Clear;
Memo1.Clear;
end;
procedure TForm1.N8Click(Sender: TObject);
var
l, r, k : double;
x : double;
i :integer;
begin
L := StrToFloat(Edit1.tExt);
R := StrToFloat(Edit2.Text);
K := StrToFloat(Edit3.Text);
for i := Round(l) to Round(r) do
Series1.Add(sin(x+i), FloatToStrF(i,ffFixed,2,2), clBlue);
end;
procedure TForm1.N6Click(Sender: TObject);
begin
ShowMessage(‘http://kpeople.ru — Programming’);
end;
end.
[/sourcecode]

Скачать исходник полностью для Табулирования функции



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.