Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Синус, не могу разобраться 
:(
    Опции темы
PascalNoob
Дата 24.3.2008, 10:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 24.3.2008

Репутация: нет
Всего: нет
Код

program qwe;
uses graph,crt;
var
x,y:integer;
GraphD,GraphM:integer;
begin
GraphD:=detect;
GraphM:=0;
initgraph(GraphD,GraphM,'C:\');
     readln;
 for x := 100 to getmaxx do begin

    y := 1 div 2 + trunc(sin(2 * pi * x / getmaxx) * (getmaxy div 6));
    setcolor(lightred);     circle(x, y,5);
delay(5);

end;
end.




Код рисует синусойду на экране,но как-то криво, Я уже позабыл все эти синусы итд))
Подскажите плз как сделать вот так:
user posted image
Рисовал в пейнте,получилось криво но суть такая:
1 синусойда рисует вверх и вправо одинаково ()) (не знаю как объяснить,посмотрите на картинку)


2) вверх должна рисовать не больше чем шаг,
3)вверх рисует больше чем шаг...

Не знаю поняли вы меня или нет))
Подскажите плз как это реализовать

Это сообщение отредактировал(а) PascalNoob - 24.3.2008, 11:09
PM MAIL   Вверх
smartov
Дата 24.3.2008, 10:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


свой собственный
****


Профиль
Группа: Экс. модератор
Сообщений: 4225
Регистрация: 2.2.2006
Где: NJ

Репутация: нет
Всего: 259
sin(3x)
sin(0.5x)
PM MAIL   Вверх
PascalNoob
Дата 24.3.2008, 11:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 24.3.2008

Репутация: нет
Всего: нет
Спс

Это сообщение отредактировал(а) PascalNoob - 24.3.2008, 11:17
PM MAIL   Вверх
smartov
Дата 24.3.2008, 12:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


свой собственный
****


Профиль
Группа: Экс. модератор
Сообщений: 4225
Регистрация: 2.2.2006
Где: NJ

Репутация: нет
Всего: 259
Ух ты! Вот приятно когда человек понимает сразу и не надо разжевывать. smile
PM MAIL   Вверх
PascalNoob
Дата 24.3.2008, 16:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 24.3.2008

Репутация: нет
Всего: нет
ну как я понял  вместо вдойки ставить) sin(2 * pi
попробовал получилось вроде smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0635 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.