ПЕРЕЛІК ДИСЦИПЛІН:
  • Адміністративне право
  • Арбітражний процес
  • Архітектура
  • Астрологія
  • Астрономія
  • Банківська справа
  • Безпека життєдіяльності
  • Біографії
  • Біологія
  • Біологія і хімія
  • Ботаніка та сільське гос-во
  • Бухгалтерський облік і аудит
  • Валютні відносини
  • Ветеринарія
  • Військова кафедра
  • Географія
  • Геодезія
  • Геологія
  • Етика
  • Держава і право
  • Цивільне право і процес
  • Діловодство
  • Гроші та кредит
  • Природничі науки
  • Журналістика
  • Екологія
  • Видавнича справа та поліграфія
  • Інвестиції
  • Іноземна мова
  • Інформатика
  • Інформатика, програмування
  • Юрист по наследству
  • Історичні особистості
  • Історія
  • Історія техніки
  • Кибернетика
  • Комунікації і зв'язок
  • Комп'ютерні науки
  • Косметологія
  • Короткий зміст творів
  • Криміналістика
  • Кримінологія
  • Криптология
  • Кулінарія
  • Культура і мистецтво
  • Культурологія
  • Російська література
  • Література і російська мова
  • Логіка
  • Логістика
  • Маркетинг
  • Математика
  • Медицина, здоров'я
  • Медичні науки
  • Міжнародне публічне право
  • Міжнародне приватне право
  • Міжнародні відносини
  • Менеджмент
  • Металургія
  • Москвоведение
  • Мовознавство
  • Музика
  • Муніципальне право
  • Податки, оподаткування
  •  
    Бесплатные рефераты
     

     

     

     

     

     

         
     
    Візуальне програмування в Delphi
         

     

    Інформатика
    Вивчення методів візуального програмування в 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
    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.
    Зовнішній вигляд програми:




         
     
         
    Реферат Банк
     
    Рефераты
     
    Бесплатные рефераты
     

     

     

     

     

     

     

     
     
     
      Все права защищены. Reff.net.ua - українські реферати ! DMCA.com Protection Status