IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> нарисовать синусоид! Должно быть легко...
сообщение
Сообщение #1


Гость






Помогите! Надо просто нарисовать в Паскале синусоид. Подскажите как полному чайнику, пожалуйста!

Сообщение отредактировано: hey -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Сессия... Курсовые... Лабы...
Вот тебе и популярномть форума smile.gif Летом про нас явно все забудут sad.gif

Что-то типа этого:
Код

Uses Graph,Crt;

Const
 Total=2*PI;             {Хочешь больше периодов - измени}

Var
 r,m,i:Integer;
 Zero:Integer;
 Scale:Double;

Begin
 r:=Detect;
 InitGraph(r,m,'C:\BP\BGI'); {ИСПРАВЬ НА ТОТ ПУТЬ, КОТОРЫЙ
                                           СООТВЕТСТВУЕТ ПАПКЕ BGI НА ТВОЁМ КОМПЕ}
 Zero:=Round(GetMaxY/2);
 MoveTo(0,Zero);
 Scale:=Total/GetMaxX;
 For i:=1 To GetMaxY Do
   LineTo(i,Round(Zero-Sin(i*Scale)/Scale));
 ReadKey
 RestoreCRTMode
End.

Но я не уверен - нет компидятора, чтобы проверить sad.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 43
Пол: Мужской

Репутация: -  0  +


Цитата(BlackShadow @ 20.05.04 16:04)
Сессия... Курсовые... Лабы...
Вот тебе и популярномть форума smile.gif Летом про нас явно все забудут sad.gif


Возможно но не все. Есть и те кто останется (я к ним отношусь)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Darkwolf, ну значит про тебя забудут smile.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






ОГРОМНОЕ спасибо!!!

:D
(особенно за оперативность!)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






hey, неначем smile.gif
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 26.01.2021 17:55
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name