Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 18.06.2008, 20:08   #1
Taisja
Пользователь
 
Регистрация: 31.05.2008
Сообщений: 25
Смущение Помогите пожалуйста сделать разметку на графике

Нужно чтобы разметка совпадала с вводимыми коэффициентами.
Вот график:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:integer;
x:real;
mx,my:real;
xmax,ymax,xmin,ymin:real;
xg,yg:integer;
xgmin,xgmax,ygmin,ygmax:integer;
i,n:integer;
x0,y0:integer;
h:real;
function f(x:real;a,b,c:integer):real;
begin
result:=(a*sqrt(b*x))/(c*x+2);
end;
begin
a:=strtoint(inputbox('окно ввода','введите коэффицент а',' '));
b:=strtoint(inputbox('окно ввода','введите коэффицент b',' '));
c:=strtoint(inputbox('окно ввода','введите коэффицент c',' '));
xmin:=1.2;
xmax:=6;
ymin:=-5;
ymax:=10;
xgmin:=100; xgmax:=300; ygmin:=250; ygmax:=50;
mx:=(xgmax-xgmin)/(xmax-xmin);
my:=(ygmax-ygmin)/(ymax-ymin);
x0:=xgmin+round(mx*(-xmin));
y0:=ygmin+round(my*(-ymin));
h:=(xmax-xmin)/(xgmax-xgmin);
Canvas.MoveTo(x0,y0);
Canvas.LineTo(xgmax,y0);
Canvas.MoveTo(x0,ygmin);
Canvas.LineTo(x0,ygmax);
x:=xmin;
n:=round((xmax-xmin)/h);
for i:=0 to n do
begin

xg:=xgmin+round(mx*(x-xmin));
yg:=ygmin+round(my*(f(x,a,b,c)-ymin));
Canvas.Pixels[xg,yg]:=clblue;
x:=x+h;
Canvas.TextOut(xgmax+10,y0,'X');
Canvas.TextOut(x0,ygmax-10,'Y');
Canvas.TextOut(x0+80,ygmax-10,'График функции y=(a*sqrt(b*x))/(c*x+2);');
end;
end;

end.
Taisja вне форума Ответить с цитированием
Старый 19.06.2008, 17:45   #2
Taisja
Пользователь
 
Регистрация: 31.05.2008
Сообщений: 25
По умолчанию

Спасибо, уже не надо, сама справилась.
Taisja вне форума Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста сделать в паскале граф и массивы neomaximus Помощь студентам 9 13.06.2008 10:38
Помогите сделать лабы пожалуйста cL1zMa Паскаль, Turbo Pascal, PascalABC.NET 3 09.12.2007 23:27
пожалуйста помогите сделать задание 2 Banko Общие вопросы C/C++ 17 27.01.2007 17:38
пожалуйста помогите сделать задание Rino Общие вопросы C/C++ 6 14.12.2006 12:12
пожалуйста помогите мне по графике felistrs Общие вопросы Delphi 1 19.11.2006 17:32