Реферат

Реферат Лабораторная работа 2 по Delphi

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

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

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

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

от 25%

Подписываем

договор

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

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




Лабораторная работа №2.
Цель работы: Изучение методов визуального программирования в 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. Реферат на тему Black Holes Essay Research Paper Within our
2. Реферат на тему Мероприятия по совершенствованию работы службы управления персоналом РУПП Птицефабрика Победа
3. Реферат на тему Стратегия концентрации
4. Реферат на тему Che Guevara Essay Research Paper On November
5. Реферат Площадь Восстания Санкт-Петербург
6. Реферат Филиппинский толстоклювый попугай
7. Курсовая Инвестиционный проект Сущность инвестиционного
8. Реферат Активність дитини як умова психічного розвитку
9. Курсовая Роль визуальной метафоры в рекламе
10. Реферат на тему Triple Bean Balance Essay Research Paper TRIPLE