![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Altair |
![]()
Сообщение
#1
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Мне нужно было иногда рисовать графики (для матана). Я довольно ленивый, а потому написал прогу для их постоения. Онадалекаот совершенства, но может кому надо...
изменяя выражение {***} и опции можно строить любые графики. Код {$N+} {$E+} Uses Graph,crt; const { OPTIONS } shag=0.0001; lgr = -50; pgr = 50; zcrtX=320; zcrty=240; mtrX=10; mtrY=10; colorG=15; colorOXY=4; OXYminX=-200; OXYmaxX=200; OXYminY=-200; oxymaxY=200; Var grDriver : Integer; grMode : Integer; x,y:real;{extended;} i:integer; Begin grDriver:=Detect; InitGraph(grDriver, grMode, ''); for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY); for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY); x:=lgr; while x<=pgr do begin { readln(x);} {***} if x<>2 then begin y:=abs(x/(x-2))-1; {***} { writeln(y:1:8);} putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end; x:=x+shag; end; readkey; closegraph; end. -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
const
{ OPTIONS }
shag = 0.0001; { <-- Шаг изменения X }
lgr = -50; { <-- Начальное значение X}
pgr = 50; { <-- Конечное значение X }
zcrtX = 320; { <-- Координата X центра экрана }
zcrty = 240; { <-- Координата Y центра экрана }
mtrX = 10; { <-- Коэффициент масштабирования по оси X }
mtrY = 10; { <-- Коэффициент масштабирования по оси Y }
colorG = 15; { <-- Цвет графика }
colorOXY = 4; { <-- Цвет координатных осей }
OXYminX = -200; { <-- Минимальное отображаемое значение оси X }
OXYmaxX = 200; { <-- Максимальное отображаемое значение оси X }
OXYminY = -200; { <-- Минимальное отображаемое значение оси Y }
oxymaxY = 200; { <-- Максимальное отображаемое значение оси Y }
Все вроде прозрачно... ![]() |
![]() ![]() |
![]() |
Текстовая версия | 29.07.2025 17:36 |