АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Розв’язання задачі з побудовою віконного інтерфейсу, підключення форм Delphi та з використанням графіки

Читайте также:
  1. V. Ситуаційні задачі
  2. В. Задачі для самоконтролю
  3. Використання на заняттях розвиваючих завдань і дидактичних ігор з використанням комп’ютерних технологій в умовах відсутності індивідуальних комп’ютерів для кожної дитини
  4. Відповідальність сторін та розв’язання спорів
  5. Відшукання способу розв'язування задачі
  6. Деякі задачі механіки та фізики
  7. Економічна діагностика як наука(сутність та види, предмет, задачі і принципи економічної діагностики(варіант №3).
  8. З ВИКОРИСТАННЯМ МУЛЬТИМЕДІЙНИХ ПРЕЗЕНТАЦІЙ
  9. Задачі вивчення дисципліни
  10. Задачі для підготовки до іспиту з економетрики
  11. Задачі для самостійного розв’язання
  12. Задачі для самостійного розв’язання

 

Розробити програму побудови графіка заданої функції на проміжку з кроком розбиття .

, ,

Код програми:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, jpeg;

type

TForm1 = class(TForm)

Image1: TImage;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Image2: TImage;

Button2: TButton;

Image3: TImage;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Button3: TButton;

procedure Button1Click(Sender: TObject);

function f (x:real):real;

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

function tform1.f (x:real):real;

begin

f:=sin(x);

end;

procedure TForm1.Button1Click(Sender: TObject);

var x0,y0,h,a,b:integer;

y,x:real;

begin

image1.Canvas.Create;

image1.Canvas.Rectangle(0,0,clientwidth,clientheight);

image1.Canvas.Pen.Color:=clwhite;

y0:=image1.Height div 2;

x0:=image1.Width div 2;

a:=strtoint(edit1.Text);

b:=strtoint(edit2.Text);

h:=strtoint(edit3.Text);

image1.Canvas.Pen.Color:=clblue;

image1.Canvas.Pen.Width:=2;

image1.Canvas.MoveTo(x0,0);

image1.Canvas.LineTo(x0,clientheight);

image1.Canvas.MoveTo(0,y0);

image1.Canvas.LineTo(clientwidth,y0);

x:=a;

y:=-(sin(x)+1)/(3-cos(x));

image1.Canvas.MoveTo(trunc(x*h)+x0,trunc(y*h)+y0);

image1.Canvas.Pen.Color:=clred;

repeat

x:=x+0.01;

y:=-(sin(x)+1)/(3-cos(x));

image1.Canvas.LineTo(trunc(x*h)+x0,trunc(y*h)+y0);

until x>=b;

end;

procedure TForm1.Button2Click(Sender: TObject);

var x0,y0,h,a,b:integer;

y,x:real;

begin

image1.Canvas.Create;

image1.Canvas.Rectangle(0,0,clientwidth,clientheight);

image1.Canvas.Pen.Color:=clwhite;

y0:=image1.Height div 2;

x0:=image1.Width div 2;

a:=strtoint(edit1.Text);

b:=strtoint(edit2.Text);

h:=strtoint(edit3.Text);

image1.Canvas.Pen.Color:=clblue;

image1.Canvas.Pen.Width:=2;

image1.Canvas.MoveTo(x0,0);

image1.Canvas.LineTo(x0,clientheight);

image1.Canvas.MoveTo(0,y0);

image1.Canvas.LineTo(clientwidth,y0);

x:=a;

y:=-((x*x)+x+1)/(5+(sin(x)*cos(x)));

image1.Canvas.MoveTo(trunc(x*h)+x0,trunc(y*h)+y0);

image1.Canvas.Pen.Color:=clgreen;

repeat

x:=x+0.01;

y:=-((x*x)+x+1)/(5+(sin(x)*cos(x)));

image1.Canvas.LineTo(trunc(x*h)+x0,trunc(y*h)+y0);

until x>=b;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.


1 | 2 | 3 | 4 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.004 сек.)