Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Ty4kaop
0 / 0 / 0
Регистрация: 21.12.2015
Сообщений: 5
1

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

21.12.2015, 18:14. Просмотров 779. Ответов 1
Метки нет (Все метки)

Здравствуйте, помогите пожалуйста написать програму построения графика функции y=x^3+x^2+x
в промежутках a=1 b=2. Координатные оси должны быть пунктирными линиями
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.12.2015, 18:14
Ответы с готовыми решениями:

Составить график функции. Дана функция нужно построить график по полученным точкам
Помогите составить график функции. Дана функция нужно построить график по...

Построить график функции
Найти область определения функций D(f), ее нули, экстремумы и множества...

Построить график функции
В графическом режиме экран монитора делится на m×n пикселей. В СП PascalABC.Net...

Построить график функции
Построить график функции y=2sinx+3cosx при a=-pi b=pi n=50 Помогите...

Построить график функции
Нужно в паскале ABC в одной системе координат построить 3 графика разным цветом...

1
Puporev
Модератор
54686 / 42104 / 29072
Регистрация: 18.05.2008
Сообщений: 99,359
21.12.2015, 20:13 2
Лучший ответ Сообщение было отмечено Ty4kaop как решение

Решение

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:=x*x*x+x*x+x
end;
 
var a,b,x,dx,mx,my:real;
    x0,y0,i:integer;
    s:string;
begin
a:=1;
b:=2;//интервал по Х
x0:=50;//начало координат по Х
mx:=(windowwidth-x0-30);//масштаб по Х
y0:=windowheight-50;//начало координат по Y
my:=(y0-40)/F(b);
setpenwidth(2);
setpenstyle(psDash);
line(0,y0,windowwidth,y0);//оси
line(x0,0,x0,windowheight);
setpenwidth(1);
for i:=1 to 20 do//максимальное количество засечек в одну сторону
 begin
  line(x0-5,y0-round(i*my),x0+5,y0-round(i*my));//засечки на оси У
  //подпись оси У
  textout(x0-25,y0-round(i*my),inttostr(i));//соответственно засечкам
  line(x0+round((i-1)*mx/10),y0-5,x0+round((i-1)*mx/10),y0+5); //засечки на оси Х
  //подпись оси Х
  str(i/10+1:0:1,s);
  textout(x0+round((i)*mx/10),y0+10,s);
 end;
//центр
textout(x0+5,y0+10,'1.0');//по Х
//подписи концов осей
textout(windowwidth-20,y0-20,'X');
textout(x0+5,0,'Y');
//график
x:=a;
moveto(x0+round((x-1)*mx),y0-round(F(x)*my));
setpencolor(clRed);
while x<=b do
 begin
  lineto(x0+round((x-1)*mx),y0-round(F(x)*my));
  x:=x+0.01;
 end;
//название
textout(250,10,'y=x^3+x^2+x');
textout(250,30,'int.[1;2]');
end.
Добавлено через 38 минут
После строки 20 вставить
Pascal
1
setpenstyle(psSolid);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.12.2015, 20:13

Построить график функции
Помогите, пожалуйста, с задачкой Построить график функции : y=1-sin(1/2x) на...

Построить график функции
Взял отсюда программу для графиков. При запуске в PascalABC все хорошо, а...

Построить график функции
7. Принимается решение о размерах и положении графика на экране. Если...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru