Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация

построить график без шага

-

Вопросы и ответы, обсуждения

- Ваши вопросы по Pascal/Delphi только в данном разделе

Ответ
 
Опции темы
Старый 03.10.2015, 17:33   #1
 Разведчик
Аватар для kartoshkka
 
kartoshkka неизвестен в этих краяхkartoshkka неизвестен в этих краяхkartoshkka неизвестен в этих краяхkartoshkka неизвестен в этих краях
Регистрация: 15.12.2012
Сообщений: 0
Популярность: -323
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Отправить сообщение для kartoshkka с помощью Skype™
 
По умолчанию построить график без шага

Всем привет ребят. Вообщем возникла такая проблема. надо построить график без задачи шага.В голове вроде как схема простроилась как это сделать,а вот реализовать на коде не получается. Вот то до чего до пер:
{$R *.dfm}


//==============================================
function f1( x : real ): real;
begin
f1:= sin(x)
end;
//==============================================

procedure TForm2.Button1Click(Sender: TObject);
var x,
dx,// шаг изменения шага
x1,//начальная граница графика
xk //конечная граница графика
:real;
i:integer; // счетчик
//f: TextFile;
Prom : string;

begin
x1:=StrToFloat(Edit1.Text); // приравниваем начальное значение
// к значению из первого окна
xk:=StrToFloat(Edit2.Text); // приравниваем конечное значение
// к значению из второго окна

i:=1;
x:=x1;
dx:=5;
//dx:=((xk-x1) / Chart1.Width); // считаем шаг функции по иширине окошка графика
StringGrid1.RowCount:=trunc((xk-x1)/dx);// расчитываем кол-во столк в таблице
StringGrid1.Cells[0,0]:=' i'; //
StringGrid1.Cells[1,0]:=' Y'; // Делаем шапку таблицы
StringGrid1.Cells[2,0]:=' X'; //
series1.Clear;

// AssignFile(f,'Z:\програмир\таблица значений x и у.txt');
//Rewrite(f);
while dx<>0 do begin
series1.Clear;
while x<= xk do
begin
application.ProcessMessages; //красивый показ процесса))
Gauge1.Progress:=trunc( i*dx / (xk- x1)* 100);// окно загрузки программы
//Writeln(f,i,x:10:3,f1(x):10:3);
stringgrid1.Cells[2,i]:=FloatToStrF(x, ffFixed,10,4); //значение Х
StringGrid1.Cells[0,i]:=intToStr(i); // номер строки
StringGrid1.Cells[1,i]:=FloatToStrF(f1( x ), ffFixed,10,4);// значение у
Series1.AddXY(x, f1(x));// рисование графика
x:=x+dx;
i:=i+1;
end;
Gauge1.Progress:=100;
// CloseFile(f);
Prom:='график'; // Имя графического файла рисунка
Chart1.SaveToBitmapFile(Prom); // Создание графического файла рисунка
Chart1.CopyToClipboardBitmap; // Копирование рисунка в буфер
dx:=dx/2;


end;

end;

end.



Программа рисует один раз график и дальше зависает. подскажите где ошибка(и)
p.s Delphi XE7
  Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
График функции Пиу Пиуу Вопросы и ответы, обсуждения 2 18.11.2012 01:07
[Информация] график развития фермы чпооиньк Общение и обсуждение 48 17.04.2011 21:19

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 14:23.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net