Построить графики функций

@Shadow10 · Регистрация: 23.03.2011

Студворк — интернет-сервис помощи студентам

Прошу,срочно помогите на паскале абс
y=|x|
y=x^2+2x+1
y=sinx * cosx
y=0,5sinx*8cosx
y=x^3+1

@Puporev · 23.03.2011, 16:32

Это все на одной оси, в одной программе?

@Shadow10 · 23.03.2011, 16:38 **[ТС]**

Ну каждый график это отдельная программа. Заранее огромное спасибо.

@Puporev · 23.03.2011, 17:09

1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
uses graphABC;
const
x1=-10;
x2=10;
var
x,dx,y1,y2,y:real;
mx,my,x0,y0,px,py1,py2,i,c:integer;
s:string;
begin
X0:=windowwidth div 2;{начало координат}
Y0:=windowheight-50;
mx:=round((windowwidth-50)/(x2-x1));
my:=round((windowheight-70)/x2);
line(25,y0,windowwidth-25,y0); {ось Х}
line(x0,y0,x0,10); {ось У}
for i:=1 to x2 do
   begin
    line(x0-3,y0-i*my,x0+3,y0-i*my);     {засечки на оси У}
    line(x0+i*mx,y0-3,x0+i*mx,y0+3); {засечки на оси Х}
    line(x0-i*mx,y0-3,x0-i*mx,y0+3);
    {подпись оси У}
    str(i,s);
    textout(x0+5,y0-i*my,s);{соответственно засечкам}
    {подпись оси Х}
    textout(x0+i*mx,y0+10,s);
    textout(x0-i*mx,y0+10,'-'+s);
   end;
{подписи концов осей}
textout(windowwidth-25,y0-15,'X');
textout(x0+10,5, 'Y');
textout(x0,y0+10, '0');
dx:=0.001;
x:=x1;
while x<=x2 do
   begin
     px:=x0+round(x*mx); {изменение по оси Х}
     y1:=abs(x); {график}
     py1:=y0-round(y1*my);
     Putpixel (px,py1,4);
     x:=x+dx; {наращиваем х}
   end;
readln;
end.

@Shadow10 · 23.03.2011, 17:14 **[ТС]**

Спасибо!!!!Жду остальных!

@Puporev · 23.03.2011, 17:16

2.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
uses graphABC;
const
x1=-5;
x2=5;
var
x,dx,y1,y2,y:real;
mx,my,x0,y0,px,py1,py2,i,c:integer;
s:string;
begin
X0:=windowwidth div 2;{начало координат}
Y0:=windowheight-50;
mx:=round((windowwidth-50)/(x2-x1));
my:=round((windowheight-70)/(x2*x2+2*x2+1));
line(25,y0,windowwidth-25,y0); {ось Х}
line(x0,y0,x0,10); {ось У}
for i:=1 to x2*x2+2*x2+1 do
   begin
    line(x0-3,y0-i*my,x0+3,y0-i*my);     {засечки на оси У}
    line(x0+i*mx,y0-3,x0+i*mx,y0+3); {засечки на оси Х}
    line(x0-i*mx,y0-3,x0-i*mx,y0+3);
    {подпись оси У}
    str(i,s);
    if i mod 2=0 then textout(x0+5,y0-i*my,s);{соответственно засечкам}
    {подпись оси Х}
    textout(x0+i*mx,y0+10,s);
    textout(x0-i*mx,y0+10,'-'+s);
   end;
{подписи концов осей}
textout(windowwidth-25,y0-15,'X');
textout(x0+10,10, 'Y');
textout(x0,y0+10, '0');
dx:=0.001;
x:=x1;
while x<=x2 do
   begin
     px:=x0+round(x*mx); {изменение по оси Х}
     y1:=x*x+2*x+1; {график}
     py1:=y0-round(y1*my);
     Putpixel (px,py1,4);
     x:=x+dx; {наращиваем х}
   end;
readln;
end.

Добавлено через 46 секунд

Сообщение от Shadow10

Жду остальных!

Остальные сам, надо же учиться, а то еще торговать ими пойдешь...

@Shadow10 · 23.03.2011, 17:23 **[ТС]**

Я бы с радостью попытался, но я не дома, а дома буду поздно вечером. Мне просто информатик задал, а я незнаю как успеть.
Ничем торговать я не собираюсь,просто нету времени разобраться.Вы меня очень выручите если сделаете это.

@Puporev · 23.03.2011, 17:34

3.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
uses graphABC;
function F(x:real):real;
begin
F:=sin(x)*cos(x);
end;
var xn,xk,x,y,mx,my,dx:real;
    x0,y0,i,px,py:integer;
    s:string;
begin
x0:=windowwidth div 2;{центр экрана}
y0:=windowheight div 2;
xn:=-2*pi;xk:=2*pi;{интервал по Х}
mx:=(windowwidth-60)/(xk-xn);{масштаб по Х}
my:=(y0-40)/(F(pi/4));{по У-делим на макс. функции}
setpencolor(clBlack);{цвет линий}
line(0,y0,windowwidth,y0);{оси}
line(x0,0,X0,windowheight );
for i:=1 to round(xk) do{максимальное количество засечек в одну сторону}
  begin
    line(x0+round(i*mx),y0-3,x0+round(i*mx),Y0+3); {засечки на оси Х}
    line(x0-round(i*mx),y0-3,x0-round(i*mx),Y0+3);
    {подпись оси Х}
    str(i,s);
    textout(x0+round(i*mx)-15,y0+10,s);
    textout(x0-round(i*mx),y0+10,'-'+s);
    line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));
    line(x0-3,y0+round(i*my),x0+3,y0+round(i*my));
    textout(x0-15,y0-round(i*my),s);
    textout(x0-15,y0+round(i*my),'-'+s);
  end;
{центр}
textout(x0+5,y0+10,'0');
{подписи концов осей}
textout(windowwidth-10,y0-10,'X');
textout(x0-10,10, 'Y');
//setpencolor(8);
{график}
x:=xn;
dx:=0.001;
while x<=xk do
   begin
     x:=x+dx; {наращиваем х}
     px:=x0+round(x*mx); {изменение по оси Х}
     y:=F(x); {график в реальных координатах}
     py:=y0-round(y*my);{в экранных}
     putpixel(px,py,8);
   end;
textout(60,20,'График функции y=sinx*cosx');
end.

Ты хоть приведи их к одному виду, а то я с разных программ дергаю.

@Shadow10 · 23.03.2011, 17:38 **[ТС]**

ок
постараюсь
вы просто очень меня выручили!

@Puporev · 23.03.2011, 17:53

Третью чуть переделал, там по оси У непорядок.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
uses graphABC;
function F(x:real):real;
begin
F:=sin(x)*cos(x);
end;
var xn,xk,x,y,mx,my,dx:real;
    x0,y0,i,px,py:integer;
    s:string;
begin
x0:=windowwidth div 2;{центр экрана}
y0:=windowheight div 2;
xn:=-2*pi;xk:=2*pi;{интервал по Х}
mx:=(windowwidth-60)/(xk-xn);{масштаб по Х}
my:=(y0-40)/(F(pi/4));{по У-делим на макс. функции}
setpencolor(clBlack);{цвет линий}
line(0,y0,windowwidth,y0);{оси}
line(x0,0,X0,windowheight );
for i:=1 to round(xk) do{максимальное количество засечек в одну сторону}
  begin
    line(x0+round(i*mx),y0-3,x0+round(i*mx),Y0+3); {засечки на оси Х}
    line(x0-round(i*mx),y0-3,x0-round(i*mx),Y0+3);
    {подпись оси Х}
    str(i,s);
    textout(x0+round(i*mx)-15,y0+10,s);
    textout(x0-round(i*mx),y0+10,'-'+s);
   end;
//засечки по оси Y
line(x0-3,y0-round(F(pi/4)*my),x0+3,y0-round(F(pi/4)*my));
line(x0-3,y0+round(F(pi/4)*my),x0+3,y0+round(F(pi/4)*my));
str(F(pi/4):0:2,s);
textout(x0-25,y0-round(F(pi/4)*my),s);
textout(x0-25,y0+round(F(pi/4)*my),'-'+s);
{центр}
textout(x0+5,y0+10,'0');
{подписи концов осей}
textout(windowwidth-10,y0-10,'X');
textout(x0-10,10, 'Y');
//setpencolor(8);
{график}
x:=xn;
dx:=0.001;
while x<=xk do
   begin
     x:=x+dx; {наращиваем х}
     px:=x0+round(x*mx); {изменение по оси Х}
     y:=F(x); {график в реальных координатах}
     py:=y0-round(y*my);{в экранных}
     putpixel(px,py,8);
   end;
textout(60,20,'График функции y=sinx*cosx');
end.

Добавлено через 19 секунд
4.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
uses graphABC;
function F(x:real):real;
begin
F:=0.5*sin(x)*8*cos(x);
end;
var xn,xk,x,y,mx,my,dx:real;
    x0,y0,i,px,py:integer;
    s:string;
begin
x0:=windowwidth div 2;{центр экрана}
y0:=windowheight div 2;
xn:=-2*pi;xk:=2*pi;{интервал по Х}
mx:=(windowwidth-60)/(xk-xn);{масштаб по Х}
my:=(y0-40)/(F(pi/4));{по У-делим на макс. функции}
setpencolor(clBlack);{цвет линий}
line(0,y0,windowwidth,y0);{оси}
line(x0,0,X0,windowheight );
for i:=1 to round(xk) do{максимальное количество засечек в одну сторону}
  begin
    line(x0+round(i*mx),y0-3,x0+round(i*mx),Y0+3); {засечки на оси Х}
    line(x0-round(i*mx),y0-3,x0-round(i*mx),Y0+3);
    {подпись оси Х}
    str(i,s);
    textout(x0+round(i*mx)+5,y0+10,s);
    textout(x0-round(i*mx),y0+10,'-'+s);
    line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));
    line(x0-3,y0+round(i*my),x0+3,y0+round(i*my));
    textout(x0-15,y0-round(i*my),s);
    textout(x0-15,y0+round(i*my),'-'+s);
  end;
{центр}
textout(x0+5,y0+10,'0');
{подписи концов осей}
textout(windowwidth-10,y0-10,'X');
textout(x0-10,10, 'Y');
//setpencolor(8);
{график}
x:=xn;
dx:=0.001;
while x<=xk do
   begin
     x:=x+dx; {наращиваем х}
     px:=x0+round(x*mx); {изменение по оси Х}
     y:=F(x); {график в реальных координатах}
     py:=y0-round(y*my);{в экранных}
     putpixel(px,py,8);
   end;
textout(60,20,'График функции y=sinx*cosx');
end.

Добавлено через 4 минуты
5.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
uses graphABC;
function F(x:real):real;
begin
F:=x*x*x+1;
end;
var xn,xk,x,y,mx,my,dx:real;
    x0,y0,i,px,py:integer;
    s:string;
begin
x0:=windowwidth div 2;{центр экрана}
y0:=windowheight div 2;
xn:=-3;xk:=3;{интервал по Х}
mx:=(windowwidth-60)/(xk-xn);{масштаб по Х}
my:=(y0-40)/(F(xk));{по У-делим на макс. функции}
setpencolor(clBlack);{цвет линий}
line(0,y0,windowwidth,y0);{оси}
line(x0,0,X0,windowheight );
for i:=1 to round(xk) do{максимальное количество засечек в одну сторону}
  begin
    line(x0+round(i*mx),y0-3,x0+round(i*mx),Y0+3); {засечки на оси Х}
    line(x0-round(i*mx),y0-3,x0-round(i*mx),Y0+3);
    {подпись оси Х}
    str(i,s);
    textout(x0+round(i*mx)+5,y0+10,s);
    textout(x0-round(i*mx),y0+10,'-'+s);
    str(i*10,s);
    line(x0-3,y0-round(10*i*my),x0+3,y0-round(10*i*my));
    line(x0-3,y0+round(10*i*my),x0+3,y0+round(10*i*my));
    textout(x0-15,y0-round(10*i*my),s);
    textout(x0-15,y0+round(10*i*my),'-'+s);
  end;
{центр}
textout(x0+5,y0+10,'0');
{подписи концов осей}
textout(windowwidth-10,y0-10,'X');
textout(x0-10,10, 'Y');
//setpencolor(8);
{график}
x:=xn;
dx:=0.001;
while x<=xk do
   begin
     x:=x+dx; {наращиваем х}
     px:=x0+round(x*mx); {изменение по оси Х}
     y:=F(x); {график в реальных координатах}
     py:=y0-round(y*my);{в экранных}
     putpixel(px,py,8);
   end;
textout(60,20,'График функции y=sinx*cosx');
end.

@Shadow10 · 23.03.2011, 20:37 **[ТС]**

Спасибо огромное-но что за фигня проблема с putpixel
Program1.pas(46) : Нельзя преобразовать тип integer к System.Drawing.Color

@Puporev · 23.03.2011, 20:39

Это в какой программе? У меня все программы работают без ошибок.

@Shadow10 · 23.03.2011, 20:39 **[ТС]**

Спасибо,но какая-то проблема с putpixel
Program1.pas(46) : Нельзя преобразовать тип integer к System.Drawing.Color

@Puporev · 23.03.2011, 20:45

Попробуй вместо putpixel SetPixel(); с теми же параметрами, или цвет не цифрой, а названием, например clRed

Добавлено через 1 минуту
Но у меня все работает, какой-то Паскаль у тебя глючавый...

@Shadow10 · 23.03.2011, 20:52 **[ТС]**

Поменял и всё заработало,ты меня очень выручил- огромное спасибо!!!!!!!

Добавлено через 3 минуты
какой паскль посоветуете-я скачал абс походу фигня какая то

Добавлено через 3 минуты
Посоветуйте паскаль а то мой паскаль абс фигня какая-то

@Puporev · 23.03.2011, 21:06

Я вообще в Турбо Паскаль больше пишу, а где АВС скачивал, не помню. Посмотри в теме
Скачать Паскаль

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@Shadow10 0 / 0 / 0 Регистрация: 23.03.2011 Сообщений: 8

	Построить графики функций 23.03.2011, 16:12. Показов 4616. Ответов 15 Метки нет (Все метки) Прошу,срочно помогите на паскале абс y=\|x\| y=x^2+2x+1 y=sinx * cosx y=0,5sinx*8cosx y=x^3+1 0

@Puporev Почетный модератор 64314 / 47610 / 32744 Регистрация: 18.05.2008 Сообщений: 115,168
	23.03.2011, 16:32
	Это все на одной оси, в одной программе? 0

@Shadow10 0 / 0 / 0 Регистрация: 23.03.2011 Сообщений: 8
	23.03.2011, 16:38 [ТС]
	Ну каждый график это отдельная программа. Заранее огромное спасибо. 0

@Shadow10 0 / 0 / 0 Регистрация: 23.03.2011 Сообщений: 8
	23.03.2011, 17:14 [ТС]
	Спасибо!!!!Жду остальных! 0

@Shadow10 0 / 0 / 0 Регистрация: 23.03.2011 Сообщений: 8
	23.03.2011, 17:23 [ТС]
	Я бы с радостью попытался, но я не дома, а дома буду поздно вечером. Мне просто информатик задал, а я незнаю как успеть. Ничем торговать я не собираюсь,просто нету времени разобраться.Вы меня очень выручите если сделаете это. 0

@Shadow10 0 / 0 / 0 Регистрация: 23.03.2011 Сообщений: 8
	23.03.2011, 17:38 [ТС]
	ок постараюсь вы просто очень меня выручили! 0

@Shadow10 0 / 0 / 0 Регистрация: 23.03.2011 Сообщений: 8
	23.03.2011, 20:37 [ТС]
	Спасибо огромное-но что за фигня проблема с putpixel Program1.pas(46) : Нельзя преобразовать тип integer к System.Drawing.Color 0

@Puporev Почетный модератор 64314 / 47610 / 32744 Регистрация: 18.05.2008 Сообщений: 115,168
	23.03.2011, 20:39
	Это в какой программе? У меня все программы работают без ошибок. 0

@Shadow10 0 / 0 / 0 Регистрация: 23.03.2011 Сообщений: 8
	23.03.2011, 20:39 [ТС]
	Спасибо,но какая-то проблема с putpixel Program1.pas(46) : Нельзя преобразовать тип integer к System.Drawing.Color 0

@Puporev Почетный модератор 64314 / 47610 / 32744 Регистрация: 18.05.2008 Сообщений: 115,168
	23.03.2011, 20:45
	Попробуй вместо putpixel SetPixel(); с теми же параметрами, или цвет не цифрой, а названием, например clRed Добавлено через 1 минуту Но у меня все работает, какой-то Паскаль у тебя глючавый... 0

@Shadow10 0 / 0 / 0 Регистрация: 23.03.2011 Сообщений: 8
	23.03.2011, 20:52 [ТС]
	Поменял и всё заработало,ты меня очень выручил- огромное спасибо!!!!!!! Добавлено через 3 минуты какой паскль посоветуете-я скачал абс походу фигня какая то Добавлено через 3 минуты Посоветуйте паскаль а то мой паскаль абс фигня какая-то 0

@Puporev Почетный модератор 64314 / 47610 / 32744 Регистрация: 18.05.2008 Сообщений: 115,168
	23.03.2011, 21:06
	Я вообще в Турбо Паскаль больше пишу, а где АВС скачивал, не помню. Посмотри в теме Скачать Паскаль 0