Декартов Лист.

@Nate · Регистрация: 01.11.2009

Студворк — интернет-сервис помощи студентам

Люди пожалуйста,очень прошу помогите!!!!вот задача:
Декартов лист. X = 3*a*tg(t)/(1+tg3t);
Y= 3*a*tg2t/(1+tg3t);
Точка пересечения осей координат должны располагаться в центре экрана. Затем
Получить еще 3 изображения кривой осуществив поворот относительно начала координат на π/2, 3π /2, - π/2 радиан. Залить изображения редкими точками.
Пожалуйстаааааааааааа помогите (((((((((

@Puporev · 02.11.2009, 07:20

Информация о графике здесь.
http://ru.wikipedia.org/wiki/%... 1%81%D1%82
Почитать о рисовании здесь.
https://www.cyberforum.ru/atta... 1241779566

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
uses crt,graph;
var gd,gm,x0,y0,x,y,kx,ky:integer;
    a,fi,t:real;
    c:char;
begin
clrscr;
{write('a=');{можно а вводить с клавиатуры}
readln(a);}
a:=150;
gd:=0;
initgraph(gd,gm,'');
outtextXY(150,20,'1-I chetv. 2-II chetv. 3-III chetv. 4-IV chetv.  Esc-exit');{выводим информацию о действиях}
x0:=getmaxX div 2;{центр экрана}
y0:=getmaxY div 2;
line(0,y0,630,y0);{оси}
line(x0,50,x0,480);
repeat{в цикле выводим изображение по четвертям}
if keypressed then
 begin
  c:=readkey;
  case c of
  '1':begin
       kx:=1;
       ky:=-1;
      end;
  '2':begin
       kx:=-1;
       ky:=-1;
      end;
  '3':begin
       kx:=-1;
       ky:=+1;
      end;
  '4':begin
       kx:=1;
       ky:=+1;
      end;
  #27:exit;
  end;
fi:=0;{начальный угол}
while fi<=pi/2 do{если  fi<=pi/2 будут лепестки без усиков}
 begin
  t:=sin(fi)/cos(fi);{тангенс}
  x:=x0+kx*round(3*a*t/(1+t*t*t));{координата х}
  y:=y0+ky*round(3*a*t*t/(1+t*t*t));{у}
  if cos(fi)<>0 then
  Putpixel(x,y,12);{рисуем точками красного цвета}
  fi:=fi+0.001;{наращиваем угол в радианах}
 end;
setfillstyle(10,12);{стиль заполнения редкими точками красного цвета}
floodfill(x0+kx*10,y0+ky*10,12);{заполняем}
end;
until c=#27;{выход}
end.

@Nate · 02.11.2009, 16:59 **[ТС]**

Сообщение от Puporev

Информация о графике здесь.
http://ru.wikipedia.org/wiki/%... 1%81%D1%82
Почитать о рисовании здесь.
https://www.cyberforum.ru/atta... 1241779566

спасибо тебе ооогромное=*********я конечно понимаю что это свеееерх наглости но всё же можно чучуть поподробней решение объяснить ^____^,извини ((и спасибо спасибо спасибо тебе огромное =***

Добавлено через 11 минут
uses crt,graph-он вот тут ошибку выдаёт ((( Error 15.и фиг знает что делать и почему не так =\

@Puporev · 02.11.2009, 17:46

Nate, Подробнее это в учебнике, ссылку я дал. Найдите у себя модуль Graph.tpu, скорее всего все еще лежит в папке Units, положите в папку с программой. То же проделайте с модулем EGAVGA.BGI из папки BGI.

@Nate · 02.11.2009, 18:58 **[ТС]**

Puporev спасибо тебе большое =)))и извини меня пожалуйста ^___^

@Nate · 04.11.2009, 21:04 **[ТС]**

Puporev, слушай я вот насчёт книги который ты мне дал,я искала искала разбор этой задачи но так и не нашла,а это точно программа к задаче которая я сказала??чесно ничего не нашла в этом учебнике ((((

@Puporev · 04.11.2009, 21:11

Nate, Там нет этой задачи. Там описание процедур и функций модуля Graph, которые использованы в программе. А алгоритм я Вам и так написал.

@Nate · 05.11.2009, 18:35 **[ТС]**

аааа ой извеняюсь ((((просто я не поняла что в программе делается,но раз там все эти процедуры есть,то это хорошо ))))дико извиняюсь =)

Добавлено через 1 минуту
блин и всё же,я долго разбирала программу но так и не поняла что это а вообще даёт,что я введу 150 что я веду 0,ничего не менятеся как он рисует эти лепестки без изменения так и рисует,знала что уже достала своей тупостью,но всё же =\

@Puporev · 06.11.2009, 07:17

Nate,
Вы немного мозг включайте когда работаете. Я Вам по русски написал

Pascal
1
2
3
{write('a=');{можно а вводить с клавиатуры}
readln(a);}
a:=150;

Это значит если Вы хотите вводить а с клавиатуры, нужно убрать a:=150;
и разкомментировать (убрать фигурные скобки) write('a='); readln(a);

@Nate · 06.11.2009, 07:19 **[ТС]**

да блин,да я и их таки убирала,я просто не пойму что это "а" обозначает,вот и всё )

@Puporev · 06.11.2009, 08:09

Nate, А для чего я Вам ссылки дал? Видимо чтоб почитать, в частности что такое а. Хотя и самой можно додуть что это грубо говоря размер листа или радиус. Вы попробуйте прогнать программу при разных а и сами это увидите.

@Nate · 06.11.2009, 23:19 **[ТС]**

:___: извеняюсь,я просто пока не читала а программу прогоняла,ну вообщем извини меняЮи ещё раз спасибо )

@Nate · 24.11.2009, 17:08 **[ТС]**

хммм...вообщем я разобралась почти со всей программой,спасибо за учебник,но у меня вот вопрос,я не совсем поняла где же осуществляется эти повороты вокруг начала координат,и не совсем поняла почему они все одинаковы??это из-за того что вокруг начала координат идёт поворот=((вообщем если не трудно можеш по этой части разъеснить что чего и куда =(

@Puporev · 24.11.2009, 18:57

Вот здесь и поворачивет, наращиваем угол, изменяются значения синуса и косинуса. А одинаковые, это такая функция.

Pascal
1
2
3
4
5
6
7
8
9
10
fi:=0;{начальный угол}
while fi<=pi/2 do{если  fi<=pi/2 будут лепестки без усиков}
 begin
  t:=sin(fi)/cos(fi);{тангенс}
  x:=x0+kx*round(3*a*t/(1+t*t*t));{координата х}
  y:=y0+ky*round(3*a*t*t/(1+t*t*t));{у}
  if cos(fi)<>0 then
  Putpixel(x,y,12);{рисуем точками красного цвета}
  fi:=fi+0.001;{наращиваем угол в радианах}
 end;

@Nate · 09.12.2009, 17:50 **[ТС]**

ещё можно маленький вопрорс вот kx и ky это ведь оси так,они являются ограничением,или чем??просто не знаю как правильно указать что они делают =)))

Добавлено через 30 секунд
а воо и что означает x0 и y0??

Добавлено через 29 секунд
и ещё один вопрос маленький зачем нам наращивать угол??

@Puporev · 09.12.2009, 18:09

Сообщение от Nate

что означает x0 и y0??

Это центр экрана и одновременно начало координат, т.е. точка пересечения осей.

Сообщение от Nate

зачем нам наращивать угол??

Затем чтоб рисовать кривую. Если наращивать не будем, нарисуем только 1 точку.

Сообщение от Nate

kx и ky

Это коэффициенты -1 или +1, с помощью которых меняем направление кривой и рисуем ее в заданной четверти.

@nate181 · 23.12.2009, 17:23

у меня тут ещё один вопрос назрел даже 2,можеш сказать какой диапазон у t и почему???и можеш поподробней объяснить про это условие while fi<=pi/2 do,что тут делается и зачем вообще это условие нужно??если можно то лучше поподробней =)))

@Puporev · 23.12.2009, 17:33

какой диапазон у t и почему???и можеш поподробней объяснить про это условие while fi<=pi/2 do,что тут делается и зачем вообще это условие нужно??если можно то лучше поподробней =)))
t:=sin(fi)/cos(fi);{тангенс, может изменяться от минус бесконечности до плюс бесконечности
в школе не проходили? Область определения fi<>k*pi/2}
fi:=0;{начальный угол}
while fi<=pi/2 do{пока угол fi меньше pi/2(90 градусов)}
begin
t:=sin(fi)/cos(fi);{считаем тангенс угла}
x:=x0+kx*round(3*a*t/(1+t*t*t));{вычисляем координату х, сколько пикселей
влево или вправо от середины экрана}
y:=y0+ky*round(3*a*t*t/(1+t*t*t));{вычисляем координату у, сколько пикселей
вверх или вниз от середины экрана}
if cos(fi)<>0 then{если косинус не равен нолю}
Putpixel(x,y,12);{рисуем точками красного цвета}
fi:=fi+0.001;{наращиваем угол в радианах}
end;
Понимаете, это геометрия. И если Вы ее не знаете, нанимайте репетитора, я пас.

@izotop13 · 10.12.2013, 14:08

Puporev,тебе не сложно будет сделать ту же функцию в делфи?

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .

@Nate 0 / 0 / 0 Регистрация: 01.11.2009 Сообщений: 11

	Декартов Лист. 01.11.2009, 21:45. Показов 4963. Ответов 18 Метки нет (Все метки) Люди пожалуйста,очень прошу помогите!!!!вот задача: Декартов лист. X = 3atg(t)/(1+tg3t); Y= 3atg2t/(1+tg3t); Точка пересечения осей координат должны располагаться в центре экрана. Затем Получить еще 3 изображения кривой осуществив поворот относительно начала координат на π/2, 3π /2, - π/2 радиан. Залить изображения редкими точками. Пожалуйстаааааааааааа помогите ((((((((( 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	02.11.2009, 17:46
	Nate, Подробнее это в учебнике, ссылку я дал. Найдите у себя модуль Graph.tpu, скорее всего все еще лежит в папке Units, положите в папку с программой. То же проделайте с модулем EGAVGA.BGI из папки BGI. 0

@Nate 0 / 0 / 0 Регистрация: 01.11.2009 Сообщений: 11
	02.11.2009, 18:58 [ТС]
	Puporev спасибо тебе большое =)))и извини меня пожалуйста ^___^ 0

@Nate 0 / 0 / 0 Регистрация: 01.11.2009 Сообщений: 11
	04.11.2009, 21:04 [ТС]
	Puporev, слушай я вот насчёт книги который ты мне дал,я искала искала разбор этой задачи но так и не нашла,а это точно программа к задаче которая я сказала??чесно ничего не нашла в этом учебнике (((( 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	04.11.2009, 21:11
	Nate, Там нет этой задачи. Там описание процедур и функций модуля Graph, которые использованы в программе. А алгоритм я Вам и так написал. 0

@Nate 0 / 0 / 0 Регистрация: 01.11.2009 Сообщений: 11
	05.11.2009, 18:35 [ТС]
	аааа ой извеняюсь ((((просто я не поняла что в программе делается,но раз там все эти процедуры есть,то это хорошо ))))дико извиняюсь =) Добавлено через 1 минуту блин и всё же,я долго разбирала программу но так и не поняла что это а вообще даёт,что я введу 150 что я веду 0,ничего не менятеся как он рисует эти лепестки без изменения так и рисует,знала что уже достала своей тупостью,но всё же =\ 0

@Nate 0 / 0 / 0 Регистрация: 01.11.2009 Сообщений: 11
	06.11.2009, 07:19 [ТС]
	да блин,да я и их таки убирала,я просто не пойму что это "а" обозначает,вот и всё ) 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	06.11.2009, 08:09
	Nate, А для чего я Вам ссылки дал? Видимо чтоб почитать, в частности что такое а. Хотя и самой можно додуть что это грубо говоря размер листа или радиус. Вы попробуйте прогнать программу при разных а и сами это увидите. 0

@Nate 0 / 0 / 0 Регистрация: 01.11.2009 Сообщений: 11
	06.11.2009, 23:19 [ТС]
	:___: извеняюсь,я просто пока не читала а программу прогоняла,ну вообщем извини меняЮи ещё раз спасибо ) 0

@Nate 0 / 0 / 0 Регистрация: 01.11.2009 Сообщений: 11
	24.11.2009, 17:08 [ТС]
	хммм...вообщем я разобралась почти со всей программой,спасибо за учебник,но у меня вот вопрос,я не совсем поняла где же осуществляется эти повороты вокруг начала координат,и не совсем поняла почему они все одинаковы??это из-за того что вокруг начала координат идёт поворот=((вообщем если не трудно можеш по этой части разъеснить что чего и куда =( 0

@Nate 0 / 0 / 0 Регистрация: 01.11.2009 Сообщений: 11
	09.12.2009, 17:50 [ТС]
	ещё можно маленький вопрорс вот kx и ky это ведь оси так,они являются ограничением,или чем??просто не знаю как правильно указать что они делают =))) Добавлено через 30 секунд а воо и что означает x0 и y0?? Добавлено через 29 секунд и ещё один вопрос маленький зачем нам наращивать угол?? 0

@nate181 0 / 0 / 0 Регистрация: 27.10.2009 Сообщений: 26
	23.12.2009, 17:23
	у меня тут ещё один вопрос назрел даже 2,можеш сказать какой диапазон у t и почему???и можеш поподробней объяснить про это условие while fi<=pi/2 do,что тут делается и зачем вообще это условие нужно??если можно то лучше поподробней =))) 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	23.12.2009, 17:33
	какой диапазон у t и почему???и можеш поподробней объяснить про это условие while fi<=pi/2 do,что тут делается и зачем вообще это условие нужно??если можно то лучше поподробней =))) t:=sin(fi)/cos(fi);{тангенс, может изменяться от минус бесконечности до плюс бесконечности в школе не проходили? Область определения fi<>kpi/2} fi:=0;{начальный угол} while fi<=pi/2 do{пока угол fi меньше pi/2(90 градусов)} begin t:=sin(fi)/cos(fi);{считаем тангенс угла} x:=x0+kxround(3at/(1+ttt));{вычисляем координату х, сколько пикселей влево или вправо от середины экрана} y:=y0+kyround(3att/(1+ttt));{вычисляем координату у, сколько пикселей вверх или вниз от середины экрана} if cos(fi)<>0 then{если косинус не равен нолю} Putpixel(x,y,12);{рисуем точками красного цвета} fi:=fi+0.001;{наращиваем угол в радианах} end; Понимаете, это геометрия. И если Вы ее не знаете, нанимайте репетитора, я пас. 0

@izotop13 0 / 0 / 0 Регистрация: 06.12.2013 Сообщений: 2
	10.12.2013, 14:08
	Puporev,тебе не сложно будет сделать ту же функцию в делфи? 0