Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 4.89
Аленка-красотка
0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 4
#1

Построить график функции в полярной системе координат: p=a sin (4u/3) (восьми лепестковая роза) - Pascal ABC

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

Построить график функции в полярной системе координат: p=a sin (4u/3) (восьми лепестковая роза);
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2014, 15:33
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Построить график функции в полярной системе координат: p=a sin (4u/3) (восьми лепестковая роза) (Pascal ABC):

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

Построить эскиз графика функции, заданной в полярной системе координат - Pascal ABC
Помогите построить пожалуйста. 1. Построить эскиз графика функции, заданной в полярных координатах: r=2\text{tg}\varphi 2. ...

График Логарифмическая спираль в полярной системе координат - Pascal ABC
Если символ есть «c» то построить график р(ф):=аф (Логарифмическая спираль) в полярной системе координат.

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

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

Построить график функции y=sin(x^2-4) - Pascal ABC
Помогите пожалуйста. Построить график функции y=sin(x^2-4).

1
Puporev
Модератор
53826 / 41459 / 14566
Регистрация: 18.05.2008
Сообщений: 97,123
31.05.2014, 16:49 #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
54
55
56
57
58
59
60
61
62
//p=a sin (4u/3) (восьми лепестковая роза);
uses graphABC;
var x0,y0,d,r,i,x1,y1:integer;
    u,p,a:real;
    s:string;
begin
x0:=windowwidth div 2; //центр
y0:=windowheight div 2;
a:=10;
//КООРДИНАТНАЯ  СЕТКА
d:=round((y0-30)/a);//шаг по оси радиуса в пикселях
r:=round(a*d);//максимальный радиус
setbrushstyle(bsClear);
for i:=0 to trunc(a) do
//if i mod 2=0 then
 begin
  circle(x0,y0,i*d);//рисуем окружности
  //пишем шкалу
  str(i,s);
  textout(x0+i*d-15,y0+5,s);
 end;
u:=pi/6;//шаг по кругу=30 град
for i:=1 to 12 do//делим на 12 частей
 begin
  //рисуем радиусы пунктиром
  setpenstyle(psDash);
  x1:=x0+round(r*cos(i*u));
  y1:=y0-round(r*sin(i*u));
  line(x0,y0,x1,y1);
  //пишем подписи
  str(i*30,s);
  case i of
  1..2:textout(x1+5,y1-10,s+#176);
  3:textout(x1-5,y1-15,s+#176);
  4,5:textout(x1-20,y1-10,s+#176);
  6:textout(x1-25,y1-5,s+#176);
  7,8:textout(x1-20,y1,s+#176);
  9:textout(x1-10,y1+5,s+#176);
  10,11:textout(x1+5,y1,s+#176);
  end;
 end;
//рисуем осевые линии сплошной линией
setpenstyle(psSolid);
line(x0-r,y0,x0+r,y0);
line(x0,30,x0,windowheight-30);
//ГРАФИК
u:=0;
setpenwidth(2);
setpencolor(clBlue);
while u<6*pi do
 begin
  p:=a*sin(4*u/3);
  setpixel(x0+round(d*p*cos(u)),y0-round(d*p*sin(u)),clBlue);
  u:=u+0.001;
 end;
setfontcolor(clBlue);
setfontsize(12);
setfontstyle(fsBold);
textout(x0+150,30,'p=a*sin(4u/3)');
str(a:0:0,s);
textout(x0+180,50,'a='+s)
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2014, 16:49
Привет! Вот еще темы с ответами:

Построение графика кардиоиды и розы в полярной системе координат - Pascal ABC
Нужна помощь в построении графика кардиоиды и полярной розы в Pascal ABC. Вся сложность заключается в том, что мне необходимо сделать...

Построение графика функций в полярной системе координат p^2=a^2*tg(φ) - Pascal ABC
Составьте программу построения графика функций в полярной системе координат: p^2=a^2*tg(φ)

Графика. Построить график функции и оси координат. - Pascal ABC
Нужно построить график функции y=sin(2x) в осях координат с шагом разметки пи/4. Добавлено через 31 минуту Сам, чтоб долго не...

Построить график функции в цвете, нарисовав систему координат - Pascal ABC
Построить график функции в цвете, нарисовав систему координат, расставив подписи единичных отрезков осей координат легенду. ...


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

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

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