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

@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,тебе не сложно будет сделать ту же функцию в делфи?

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

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

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

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	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 Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	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 Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	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 Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	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