3 / 2 / 1
Регистрация: 12.10.2017
Сообщений: 214
1

Написать программу, которая выводит на экран график любой функции представляющей собой многочлен не выше 5-ой степени

19.05.2018, 20:06. Показов 925. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
написать программу которая выводит на экран график любой функции представляющей собой многочлен не выше 5-ой степени
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2018, 20:06
Ответы с готовыми решениями:

Вывод на экран графика любой функции, представляющей собой многочлен не выше 5-ой степени
Написать программу, способную выводить на экран график любой функции, представляющей собой...

Написать программу, которая выводит на экран точечный график функции
Написать программу, которая выводит на экран точечный график функции y= 1x+5х. Диапазон изменения...

Написать программу, которая выводит на экран точечный график функции
Написать программу, которая выводит на экран точечный график функции y=0,5x2+4x -3. Диапазон...

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

6
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
19.05.2018, 21:34 2
Просто график:
https://www.cyberforum.ru/post288984.html
0
3 / 2 / 1
Регистрация: 12.10.2017
Сообщений: 214
20.05.2018, 07:38  [ТС] 3
ZX Spectrum-128, я нашел в интернете вот такой код но у меня почему-то выдает ошибку
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
56
program zgr;
uses graph;
const m=50;
      cx=300;
      cy=200;
var gd,gm:integer;  
 grdriver,grmode,errcode:integer;
    grpath:string;
 
    c0,c1,c2,c3,c4,c5:real;
    a,b,x,y,h:real;
    x1,x2,y1,y2:integer;
 
function f(x:real):real;
 begin
  f:=c0+c1*x+c2*x*x+c3*x*x*x+c4*x*x*x*x+c5*x*x*x*x*x;
 end;
 
begin
grDriver:=vga;
grmode:=vgahi;
grPath:='w:\bp\bgi';
InitGraph (grDriver, grMode,grPath);
ErrCode:=graphresult;
if errcode<>grok then
begin
writeln ('Ошибка!');
writeln ('enter');
readln;
halt (1);
end;
 writeln('Программа строит график функции многочлена до 5 степени включительно.');
 writeln('Введите коэффициенты c0 c1 c2 c3 c4 c5');
 readln(c0,c1,c2,c3,c4,c5);
 writeln('Введите отрезок и шаг a b h');
 readln(a,b,h);
 repeat
 x:=a;
 x1:=cx+Round(m*a);
 y1:=cy-Round(m*f(a));
 while x<=b do
  begin
   x2:=cx+Round(m*x);
   y2:=cy-Round(m*f(x));
   Line(x1,y1,x2,y2);
   x1:=x2;
   y1:=y2;
   x:=x+h;
  end;
 
 Line(0,cy,2*cx,cy);
 Line(cx,0,cx,2*cy);
 until (x>b);
 readln;
 closegraph;
end.
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
20.05.2018, 09:37 4
Какую ошибку выдает?
Код написан плохо, например нет контроля за вводом, нет масштабов по осям просто 1 масштаб m=50, не учитывающий значения a,b и максимальное и минимальное значения f(x) . Нужно ввести b>a, h<b-a ну и вообще разумные значения, например
1 1 1 1 1 1
-3 3 0.01
0
3 / 2 / 1
Регистрация: 12.10.2017
Сообщений: 214
05.06.2018, 20:05  [ТС] 5
Puporev, я что-то совсем туплю не поможете это сделать ?

Добавлено через 27 минут
Puporev, Я нашел вот такой код только не пойму как он работает помогите пжлста
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
56
program zgr;
uses graph;
const m=50;
      cx=300;
      cy=200;
var gd,gm:integer;  
 grdriver,grmode,errcode:integer;
    grpath:string;
 
    c0,c1,c2,c3,c4,c5:real;
    a,b,x,y,h:real;
    x1,x2,y1,y2:integer;
 
function f(x:real):real;
 begin
  f:=c0+c1*x+c2*x*x+c3*x*x*x+c4*x*x*x*x+c5*x*x*x*x*x;
 end;
 
begin
grDriver:=vga;
grmode:=vgahi;
grPath:='w:\bp\bgi';
InitGraph (grDriver, grMode,grPath);
ErrCode:=graphresult;
if errcode<>grok then
begin
writeln ('Ошибка!');
writeln ('enter');
readln;
halt (1);
end;
 writeln('Программа строит график функции многочлена до 5 степени включительно.’);
 writeln(‘Введите коэффициенты c0 c1 c2 c3 c4 c5');
 readln(c0,c1,c2,c3,c4,c5);
 writeln('Введите отрезок и шаг a b h');
 readln(a,b,h);
 repeat
 x:=a;
 x1:=cx+Round(m*a);
 y1:=cy-Round(m*f(a));
 while x<=b do
  begin
   x2:=cx+Round(m*x);
   y2:=cy-Round(m*f(x));
   Line(x1,y1,x2,y2);
   x1:=x2;
   y1:=y2;
   x:=x+h;
  end;
 
 Line(0,cy,2*cx,cy);
 Line(cx,0,cx,2*cy);
 until (x>b);
 readln;
 closegraph;
end.
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
05.06.2018, 20:07 6
Цитата Сообщение от SkyLark_71 Посмотреть сообщение
только не пойму как он работает
А я то тут при чем? Я не писал этот код и ковыряться в нем не намерен.
0
3 / 2 / 1
Регистрация: 12.10.2017
Сообщений: 214
06.06.2018, 07:13  [ТС] 7
Puporev, а новый поможете написать ?
0
06.06.2018, 07:13
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2018, 07:13
Помогаю со студенческими работами здесь

Написать программу, которая выводит на экран точечный график функции
Помогите пожалуйста выполнить задание. Microsoft Visual Studio (Form) с# Написать программу,...

написать программу, которая выводит на экран первые четыре степени числа П(пи)
написать программу, которая выводит на экран первые четыре степени числа П(пи) пож-та сделайте

написать программу, которая выводит на экран первые четыре степени числа пи
написать программу, которая выводит на экран первые четыре степени числа ПИ

Написать программу, которая выводит на экран первые четыре степени числа Пи
Написать программу, которая выводит на экран первые четыре степени числа Пи. Добавлено через 15...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru