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

Построить график функции в декартовой системе координат: y=dctg(kx) - Pascal ABC

31.05.2014, 15:29. Просмотров 878. Ответов 1
Метки нет (Все метки)

Построить график функции в декартовой системе координат: y=dctg(kx)
http://www.cyberforum.ru/pascalabc/thread1194593.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2014, 15:29
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Построить график функции в декартовой системе координат: y=dctg(kx) (Pascal ABC):

Написать программу, позволяющую в декартовой системе координат построить астроиду, по заданному параметрическому представлению
Здравствуйте, помогите, если кто знает, пожалуйста. Напишите программу,...

Составьте программу построения графика функций в декартовой системе координат
1) y=2x+5 2) y=x+5/3x 3) y=x^3+2 4) y=5+2^x-6 5) y=log(3x-3) по основанию 6...

Построить графиик функции, заданной в полярной системе координат
Задание: Построить графики: а) «обычной» функции; б) параметрически заданного...

Построить эскиз графика функции, заданной в полярной системе координат
Помогите построить пожалуйста. 1. Построить эскиз графика функции, заданной...

Графика. Построить график функции и оси координат.
Нужно построить график функции y=sin(2x) в осях координат с шагом разметки...

1
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,299
31.05.2014, 17:05 #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
44
45
46
47
48
49
50
51
52
53
uses graphABC;
function F(x,d,k:real):real;
begin
F:=d*cos(k*x)/sin(k*x);
end;
var xn,xk,max,mx,my,dx,y1:real;
    d,k,x:real;
    x0,y0,i:integer;
    s:string;
begin
d:=0.5;
k:=2;
xn:=-2*pi;xk:=2*pi;{интервал по Х}
x0:=windowwidth div 2;
mx:=(x0-30)/xk;{масштаб по Х}
y0:=windowheight div 2;
my:=(y0-20)/50;{по У}
line(0,y0,windowwidth,y0);{оси}
line(x0,0,x0,windowheight);
for i:=1 to round(xk)+1 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-35,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(windowwidth-10,y0-10,'X');
textout(x0+5,10, 'Y');
{график}
x:=xn;
dx:=0.0001;
while x<=xk do
 begin
  if abs(sin(x))>0.01 then
  setpixel(x0+round(x*mx),y0-round(F(x,d,k)*my),clGreen);
  x:=x+dx;
 end;
{название}
textout(x0+50,20,'График функции y=dctg(kx)');
textout(x0+50,40,'d=0.5 k=2.0');
textout(x0+50,60,'на интервале [-2pi;2pi]');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2014, 17:05
Привет! Вот еще темы с решениями:

Построить график функции в цвете, нарисовав систему координат
Построить график функции в цвете, нарисовав систему координат, расставив...

Даны два целых числа - координаты точки в декартовой системе координат. Определить, в какой четверти находится точка
Даны два целых числа - координаты точки в декартовой системе координат....

Даны два числа - координаты точки в декартовой системе координат. Определить, к какой оси X млм Y она ближе
Даны два числа - координаты точки в декартовой системе координат. Определить, к...

Построить на экране дисплея оси координат и график функции y=x на отрезке (-2;2)
Построить на экране дисплея оси координат и график функции y=x на отрезке (-2;2)


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

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

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