Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 15.3.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. Задача Учет ценных бумаг и валютный операций
2. Реферат на тему The Agesex Distribution Of The Canadian Population
3. Реферат Предпринимательство России
4. Реферат Практическое применение законов распределения при изучении уровня жизни населения
5. Контрольная работа Фінансові інвестиції
6. Доклад на тему Сущность и социальное назначение свободного времени
7. Реферат на тему Об отражении субъектно-объектных отношений в глаголе кечуа
8. Реферат на тему Post Tramatic War Syndrom Essay Research Paper
9. Реферат Бизнес-план малого предприятия методика и расчет реального проекта
10. Реферат на тему Clowns Or Clones Essay Research Paper Clowns