|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Canvas - оси координат, масштаб
Здравствуйте, пожалуйста, помогите дописать программу! Нужно сделать оси координат и масштаб.
Программа строит график, я задал функцию, организовал цикл, теперь не могу построить оси в Canvas и решить проблему с масштабом. Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; Label1: TLabel; Label2: TLabel; Edit3: TEdit; Label3: TLabel; Edit4: TEdit; Image1: TImage; procedure Button1Click(Sender: TObject); private { Private declarations } public x,y:integer; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); const e=2.72; var a,t1,t2,shag,z,itoe,i,nakop:real; begin nakop:=0; a:=StrToFloat(Edit1.Text); t1:=StrToFloat(Edit2.Text); t2:=StrToFloat(Edit3.Text); shag:=StrToFloat(Edit4.Text); shag:=abs(shag); repeat/// Тут цикл, к первому пределу прибавляет шаг, записывает в переменную nakop, как переменная станет равна второму пределу цикл прервётся. ///Отметка точки. x:=Trunc(a*(exp(t1*ln(e)))); /// Считаю x. y:=Trunc(a*t1*(exp(t1*ln(e)))); /// Считаю y. Form1.Canvas.MoveTo(x,y); /// Отмечаю полученные значения на графике. nakop:=t1+shag+nakop; until nakop=t2; end; end. Спасибо. |