Реферат

Реферат Визуальное программирование в Delphi

Работа добавлена на сайт bukvasha.net: 2015-10-28

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 25.6.2025



Изучение методов визуального программирования в Delphi.

Задание: Построить графики функций ; ;

Текст программы:

unit Graph;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Chart1: TChart;

Series1: TLineSeries;

Series2: TLineSeries;

Series3: TLineSeries;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

VAR T0,TK,Q,W,Y1,Y2,Y3 :REAL;

i,H :real;

begin

Q:=StrToFloat(Edit1.Text);

W:=strToFloat(Edit2.Text);

H:=StrToFloat(Edit3.Text);

T0:=StrToFloat(Edit4.Text);

TK:=StrToFloat(Edit5.Text);

i:=T0;

Series1.Clear;

Series2.Clear;

Series3.Clear;

while i<=TK do

begin

Y1:=exp(-Q*i)*sin(W*i);

Y2:=-exp(-Q*i);

Y3:=exp(-Q*i);

Series1.AddXY(i,Y1,'',clTeeColor);

Series2.AddXY(i,Y2,'',clTeeColor);

Series3.AddXY(i,Y3,'',clTeeColor);

i:=i+h;

end;

end;

end.

Внешний вид приложения:


1. Реферат на тему Chipbit1A Essay Research Paper CultsThere are many
2. Реферат на тему Cybele Essay Research Paper Cybele officially known
3. Реферат на тему Baroque And Classical Music Essay Research Paper
4. Реферат Кровать, как центр спального пространства
5. Реферат Практика слияний и поглащений на российском рынке
6. Реферат Организация обработки информации на ЭВМ по формированию плана поставок готовой продукции
7. Курсовая Семейное насилие в отношении женщин гендерный подход
8. Курсовая на тему Особливості перекладу політичного сленгу с української мови на англ
9. Диплом на тему Проектирование гидропривода
10. Реферат Социально-психологический климат в спортивной команде