Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 4.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. Курсовая Лекарственные растения и лекарственное растительное сырье, содержащее сердечные гликозиды
2. Курсовая на тему Анализ прав аудиторов и аудируемых лиц
3. Реферат Зыбины дворянство
4. Реферат на тему Macbeth Essay Research Paper The shortest and
5. Реферат Низкие цены нужны лишь потребителям
6. Контрольная работа на тему Планеты солнечной системы
7. Реферат Колебания с несколькими степенями свободы. Краткие сведения из теории
8. Книга Налоговый учет налога на добавочную стоимость
9. Реферат Товарна політика підприємства 2
10. Диплом на тему Увеличение нефтеотдачи пластов с применением микробиологического воздействия на примере Западно-Лениногорской