1. • Лабораторная работа №1 по Delphi
  2. • Отчет по лабораторной работе2
  3. • Проект лабораторного стенда по изучению частотного ...
  4. • Разработка модернизированного лабораторного стенда по ...
  5. • Разработка модернизированного лабораторного стенда по ...
  6. • Лабораторная №1. Вариант №8(с++
  7. • Разработка цикла лабораторных работ по основам работы в ...
  8. • Разноуровневые задания в физическом лабораторном практикуме ...
  9. • Лабораторные работы по системному ПО
  10. • Лабораторные работы по физике
  11. • Лабораторная работа по информатике ( задания )
  12. • Лабораторные стенды в учебном процессе
  13. • Лабораторная работа по ВМС и ТКС
  14. • Отчет по лабораторной работе по курсу "Проектирование ...
  15. • Лабораторная работа по ВМС и ТКС
  16. • Лабораторная работа по информатике ( практика )
  17. • Деревянные конструкции (лабораторные работы)
  18. • Шпаргалка: Лабораторные работы по программированию
  19. • Лабораторная работа по информатике

Реферат: Лабораторная работа №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

©2007—2016 Пуск!by | По вопросам сотрудничества обращайтесь в contextus@mail.ru