нарисовать синусоид! Должно быть легко... Опции

[hey]

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

Сообщение отредактировано: hey - 20.05.2004 19:23

[BlackShadow]

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

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

Код

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]

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

Возможно но не все. Есть и те кто останется (я к ним отношусь)

[BlackShadow]

Darkwolf, ну значит про тебя забудут

[hey]

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

:D
(особенно за оперативность!)

[BlackShadow]

hey, неначем