|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.05.2011, 19:28 | #1 |
Регистрация: 09.05.2011
Сообщений: 4
|
график циссоида
нашла у вас тут нужную мн задачку(очень нужную) за нее я получу 22 балла))) и хочу попросить вас , что вы мне поочередно расписали действия...очень прошу))
Условие такое: Построить кривую циссоиду по заданному параметрическому уравнению: x=at^2/(1+t^2) y=at^3/(1+t^2), a>0 , t от минус бесконечности до плюс бесконечности uses crt,graph; var drive,mode,i:integer; x,y,t:real; begin drive:=detect; initgraph(drive,mode,'c:BP\BGI'); setcolor(3); line(10,240,400,240); line(10,100,10,400); for i:=-1000 to 1000 do begin t:=i/500; x:=Round(100*t*t/(1+t*t))+10; y:=Round(100*t*t*t/(1+t*t))+240; PutPixel(Round(x),Round(y),red); end; readln; end. |
09.05.2011, 19:46 | #2 | |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
Цитата:
Да и потом, при использовании этой процедуры ваш график будет выглядеть как множество близкостоящих друг к другу точек, но не сплошная линия. Для получения сплошной линии, рекомендовал бы использовать LineTo |
|
09.05.2011, 19:51 | #3 |
Регистрация: 09.05.2011
Сообщений: 4
|
так значит что я должна буду написать вместо этой строки с putpixel?
for i:=-1000 to 1000 do begin t:=i/500;- а вот эти строчки что обозначают? |
09.05.2011, 20:10 | #4 | ||
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Цитата:
Код:
Цитата:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
||
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
График | Paul_AG | Общие вопросы C/C++ | 3 | 29.05.2009 22:20 |
график | Pavlov_yu | Microsoft Office Excel | 2 | 24.02.2009 18:13 |
График | Simon..14 | Общие вопросы C/C++ | 1 | 02.02.2009 19:55 |
Циссоида | Sergik1977 | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 29.10.2007 08:04 |