Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Mary12
0 / 0 / 0
Регистрация: 09.05.2014
Сообщений: 4
1

Построить график функции y=(7*x^3-15)/(1.5*x+2)

09.05.2014, 22:26. Просмотров 1038. Ответов 2
Метки нет (Все метки)

построить график функции y=(7*x^3-15)/(1.5*x+2), координатные оси, подписи осей на интервале, заданном пользователем
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.05.2014, 22:26
Ответы с готовыми решениями:

Построить график функции. вычислить и построить все асимптоты для этой функции
Помогите пожалуйста... Устал с ней возиться... Задание: Построить график...

Построить график функции и график её производной
Построить график функции (a*x^4)+(b*x^3)/(x^2+c) + График производной

Написать программу вычисления функции на заданном промежутке и построить график этой функции
Задание: написать программу вычисления функции на заданном промежутке с шагом...

Построить график функции таким образом, чтобы были видны все минимумы и максимумы функции
Добрый день. Помогите пожалуйста с задачей: 1. Построить график функции ...

Построить график функции
Построить график функции y=cos x. Область определения от минус 3 до плюс 3.

2
Puporev
Модератор
56100 / 42969 / 29722
Регистрация: 18.05.2008
Сообщений: 101,979
10.05.2014, 08:43 2
Лучший ответ Сообщение было отмечено Mary12 как решение

Решение

Примерно так
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
52
53
54
55
uses graphABC,crt;
function f(x:real):real;
begin
f:=(7*x*x*x-15)/(1.5*x+2)
end;
var x1,x2,mx,my,x,dx:real;
    x0,y0,i:integer;
    s,s1:string;
begin
//вводим интервал чтобы показать характер графика
repeat
write('Начало интервала от -6 до -2 x1=');
readln(x1);
until(x1>=-6)and(x1<=2);
repeat
write('Конец интервала от 0 до 4 x2=');
readln(x2);
until(x2>=0)and(x2<=4);
clrscr;
x0:=round(windowwidth*(-x1)/(x2-x1));//начало координат в центре экрана
y0:=windowheight div 2;
mx:=(windowwidth-40)/(x2-x1);//масштаб по оси Х
my:=(y0-20)/100;// масштаб по оси Y
line(0,y0,2*x0,y0); //оси
line(x0,0,x0,2*y0);
for i:=1 to 10 do //максимальное количество засечек в одну сторону
 begin
  line(x0-3,y0-round(i*my*10),x0+3,y0-round(i*my*10));//засечки на оси У
  line(x0-3,y0+round(i*my*10),x0+3,y0+round(i*my*10));
  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*10,s);
  textout(x0-30,y0-round(i*my*10),s);//оответственно засечкам
  textout(x0-35,y0+round(i*my*10),'-'+s);
  //подпись оси Х}
  str(i,s);
  textout(x0+round(i*mx),y0+10,s);
  textout(x0-round(i*mx),y0+10,'-'+s);
 end;
//центр
textout(x0+5,y0+10,'0');
//подписи концов осей
textout(2*x0-10,y0-20,'X');
textout(x0+5,0, 'Y');
dx:=0.001;
//график
x:=x1;
while x<=x2 do
 begin
  if abs(1.5*x+2)>0.001 then//если знаменатель не очень близко к 0
  setpixel(x0+round(x*mx),y0-round(f(x)*my),clRed);
  x:=x+dx; //наращиваем х
 end;
end.
0
Mary12
0 / 0 / 0
Регистрация: 09.05.2014
Сообщений: 4
10.05.2014, 09:04  [ТС] 3
спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2014, 09:04

Построить график функции
Буду очень благодарен

Построить график функции
Помогите пожалуйста, люди добрые) Срочно надо, а времени не хватает...

Построить график функции
Изобразить на экране дисплея графики указанных функций (А принимает следующие...


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

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

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