V ekto R
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Люди добрые! Помогите пожалуйста с работой!!
Нужно написать программу, которая рисует на экране градуированные оси (ОХ и ОУ) и график функции y=-40-3(x+5)2/(2x-6)
Масштаб осей ОХ и ОУ (1 — 1:1), Хн (начальное), Хк (конечное) и шаг DX (расстояние между соседними точками в «единицах») вводятся пользователем при запуске программы.
У меня вопрос: как разградуировать оси в заданном масштабе? Куда впихнуть Хн и Хк? Помогите с написанием проги, нет возможности работать в паскале сейчас, пввтаюсь что то сделать на бумаге, но что то не выходит ни фига((Пожалуйста, буду очень признателен если поможете составить хотя бы начало программы. Помогите!!!
Вот черновик:
program grafik;
uses GRAPH;
var i,gd,gm:integer;
xn,xk,dx,ox,oy,x,y:real;
begin
Write('vvedite ox');
readln(ox);
Write('vvedite oy');
readln(oy);
Write('vvedite xn');
readln(xn);
Write('vvedite xk');
readln(xk);
Write('vvedite dx');
readln(dx);
gd:=DETECT;
initgraph(gd,gm,'');
LINE(1,240,630,240);
LINE(320,1,320,480);
i:=0;
REPEAT
LINE(i,237,i,242);
i:=i+ox;
UNTIL i>640;
i:=0;
REPEAT
LINE(317,i,322,i);
i:=i+oy;
UNTIL i>480;
x:=xn;
REPEAT
y:=-40-(3*(x+5)*(x+5))/(2*x-6);
PUTPIXEL(round(x),round(y),yellow);
x:=x+dx;
UNTIL
x=xk;
readln;
CLOSEGRAPH;
end.
|
Всего записей: 75 | Зарегистр. 09-08-2006 | Отправлено: 22:15 15-11-2006 | Исправлено: V ekto R, 22:38 15-11-2006 |
|
читаем насчет тега more
))) Гляньте, все ли правильно... 