Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 21.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. Реферат на тему Thicker Than WaterHotter Than Fire Essay Research
3. Реферат на тему Біохімічні механізми впливу свинцю на клітини крові щурів
4. Курсовая на тему Проблемы семейного воспитания и взаимодействия семьи и школы
5. Курсовая Разработка управленческого решения для компании Инком-Авто 2
6. Сочинение на тему 1812 год в изображении Толстого
7. Сочинение на тему Пастернак б. л. - Своеобразие лирики б. пастернака
8. Реферат на тему Alcoholism Essay Research Paper HTMLFONT SIZE3 PTSIZE10Clearly
9. Отчет по практике ОАО Ижевский мотозавод Аксион-холдинг
10. Реферат Разработка основных разделов проекта производства работ