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

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

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

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

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

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

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

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

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

1
Puporev
Модератор
55479 / 42580 / 29429
Регистрация: 18.05.2008
Сообщений: 100,730
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

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

Графика: Построить график функции y = (2 + sin^2(x)) / (1 + x^2)
Здравствуйте! Помогите пожалуйста построить график функции

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


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

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

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