Заказ
  PHP скрипты   NEW
Правила написания
Студенту
Банк Рефератов
# A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
А Б В Г Д Е Ж З И Й К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Ы Э Ю Я
Телефонные справочники
Выбор города:
А Б В Г Д Е Ж З И К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Э Ю Я

Онлайн телефонные справочники
Выбор города:
А Б В Г Д Е Ж З И К Л М Н О П Р С Т У Х Ш Э Ю Я

скачай готовый реферат
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
А Б В Г Д Е Ж З И Й К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Ы Э Ю Я

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



Тема: Лабораторная работа №2 по Delphi
Вид реферата: реферат
Дисциплина: Информатика, программирование
Оценка: Отлично/Хорошо
Формат: Microsoft Word документ
Сжатие: ZIP архив
Создан: 4 октября 2007 года
Уникальность: 100%


скачать реферат Лабораторная работа №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




Справочники

Москва
Санкт-Петербург
Ангарск
Братск
Бугульма
Великие Луки
Владивосток
Владимир
Волгоград
Волжский
Воронеж
Вязьма
Екатеринбург
Златоуст
Иваново
Иркутск
Казань
Калуга
Кемерово
Кострома
Краснодар
Красноярск
Курган
Ленинск-Кузнецкий
Ливны
Липецк
Магадан
Магнитогорск
Набережные Челны
Нальчик
Находка
Нижний Новгород
Нижний Тагил
Новосибирск
Новочеркасск
Новый Уренгой
Омск
Орёл
Орехово-Зуево
Петрозаводск
Печора
Ростов-на-Дону
Самара
Саратов
Тюмень
Уфа
Хабаровск
Чебоксары
Челябинск
Череповец
Ярославль





© Все права защищены. © All right reserved.