Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ нарисовать синусоид! Должно быть легко...

Автор: hey 20.05.2004 19:21

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

Автор: BlackShadow 20.05.2004 20:04

Сессия... Курсовые... Лабы...
Вот тебе и популярномть форума 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

Автор: Darkwolf 20.05.2004 21:12

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


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

Автор: BlackShadow 20.05.2004 21:56

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

Автор: hey 20.05.2004 22:56

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

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

Автор: BlackShadow 21.05.2004 2:19

hey, неначем smile.gif