Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
АРТЕ
0 / 0 / 0
Регистрация: 09.11.2014
Сообщений: 134
1

Составить программу для рисования графика функции

09.01.2015, 20:18. Просмотров 1355. Ответов 1
Метки нет (Все метки)

Составьте программу для рисования графика функции:
y= система: 10 при x<-10; x^2 при -10<=x<=10; 1/x при x>10
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.01.2015, 20:18
Ответы с готовыми решениями:

Составить программу для построения графика функции
Помогите плиз написать программу: Составить программу для построения графика функции y=1/cos(x) на...

Составьте программу для рисования графика
Составьте программу для рисования графика функции:

Составить программу для произвольного рисования на экране
Составить программу для произвольного рисования на экране. Рисунок - это след курсора,...

Составить программу построения графика функции
Составить программу построения графика функции: Y=-Sinx(функция) с интервалом и шагом П/12 ...

Составить программу построения графика функции
Составить программу построения графика функции 1) y=arcos x на отрезке с шагом x=pi/10 2) ...

1
Puporev
Модератор
57522 / 43859 / 30299
Регистрация: 18.05.2008
Сообщений: 104,730
09.01.2015, 20:39 2
Лучший ответ Сообщение было отмечено АРТЕ как решение

Решение

Неудачный график, на границе х=10 слева у=100, справа у=0.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
44
45
46
uses graphABC;
function F(x:real):real;
begin
if x<-10 then F:=10
else if x<=10 then F:=x*x
else F:=1/x
end;
var x,mx,my,dx:real;
    x0,y0,xn,xk,i:integer;
    s:string;
begin
xn:=-15;xk:=15;{интервал по Х}
x0:=windowwidth div 2;
mx:=(x0-30)/xk;{масштаб по Х}
y0:=windowheight-50;
my:=(y0-10)/F(10);
line(0,y0,windowwidth,y0);{оси}
line(x0,0,X0,windowheight);
for i:=1 to 15 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));
  {подпись оси У}
  textout(x0-35,y0+round(i*my*10),inttostr(-i*10));{соответственно засечкам}
  textout(x0-35,y0-round(i*my*10),inttostr(i*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);
  {подпись оси Х}
  textout(x0+round(i*mx),y0+10,inttostr(i));
  textout(x0-round(i*mx),y0+10,inttostr(-i));
 end;
{центр}
textout(x0+5,y0+10,'0');
{подписи концов осей}
textout(windowwidth-10,y0-10,'X');
textout(x0+5,10, 'Y');
{график}
x:=xn;
dx:=0.001;
while x<=xk do
 begin
  if(x<>0)and(x<>3) then
  setpixel(x0+round(x*mx),y0-round(F(x)*my),clRed);
  x:=x+dx;
 end;
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.01.2015, 20:39

Написать программу для построения графика функции
Написать программу для построения графика функции. y=sqrt(2x+6)

Вывести значения функции. Составить процедуру рисования изображения
2 варианта почти ничем неотличаются мне хотябы 1 и 2 номер зделайте плиз во 2 задании сказано что...

составить программу рисования правильного шестиугольника и пятиугольной звездочки
составить программу рисования правильного шестиугольника и пятиугольной звездочки.


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

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

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