Рефераты - Афоризмы - Словари
Русские, белорусские и английские сочинения
Русские и белорусские изложения
 

Лабораторная работа №2 по Delphi

Работа из раздела: «Программирование и комп-ры»
Лабораторная работа №2.

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

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


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

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.



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

[pic]

ref.by 2006—2022
contextus@mail.ru