Автор: hey 20.05.2004 19:21
Помогите! Надо просто нарисовать в Паскале синусоид. Подскажите как полному чайнику, пожалуйста!
Автор: BlackShadow 20.05.2004 20:04
Сессия... Курсовые... Лабы...
Вот тебе и популярномть форума Летом про нас явно все забудут
Что-то типа этого:
Код
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.
Но я не уверен - нет компидятора, чтобы проверить
Автор: Darkwolf 20.05.2004 21:12
Цитата(BlackShadow @ 20.05.04 16:04)
Сессия... Курсовые... Лабы...
Вот тебе и популярномть форума
Летом про нас явно все забудут
Возможно но не все. Есть и те кто останется (я к ним отношусь)
Автор: BlackShadow 20.05.2004 21:56
Darkwolf, ну значит про тебя забудут
Автор: hey 20.05.2004 22:56
ОГРОМНОЕ спасибо!!!
:D
(особенно за оперативность!)