график функции в паскале

[m1lkz]

Доброго времени суток.
На практике дали задание, нарисовать в графическов режиме turbo PASCAL график.
соответственно не догоняю ничего пока что...
единственное что ,так это создал процедуру для ввода вещественных(дробных) и целых чисел...Работа чисто в графе, без CRT,поэтому прибег к таким крайностям.
Соответственно, помогите плз))
опишите либо алгоритм построения, так я его сам разберу, либо если не сложно, код программы по решению задачи:
y=cos(x)+2
где -П <= x <= П
с шагом h = 0.3
Заранее спасибо)

[Serge_Bliznykov]

график рисуйте точечками.
Тут самое сложное - это подобрать коэффициенты kX и kY - на которые нужно умножать значение x и Y, чтобы получить график наглядным (развёрнутым на экран).

код будет выглядть ПРИМЕРНО так:

 h := 0,3;
 X := - Pi;
 while X<=Pi do begin
    Y := ВашаФункция(X);
    PutPixel( trunc(round(X*kX)), trunc(round(Y*kY)), НужныйЦветГрафика );
    X := X + h;
 end;

А ещё посмотрите внизу есть раздел "Похожие темы".
Да и поиском Вы легко найдёте на форуме множество примеров...

[s-andriano]

И получится график с разрывами (а то и вовсе из отдельных точек).
Лучше все-таки использовать line или lineto (не помню, что из них есть в модуле graph).
Также kX и kY лучше не подбирать, а вычислять, исходя из размера экрана в пикселях и диапазонов построения графика в области определения функции и ее области значений.

[Poma][a]

line или lineto (не помню, что из них есть в модуле graph)

обе есть
10 букаф

[s-andriano]

Сообщение от Poma][a

10 букаф

Ну да, при условии, что на машине установлен ТР.

[Serge_Bliznykov]

Сообщение от s-andriano

Ну да, при условии, что на машине установлен ТР.

я потрясён вашим постом..
Это Вы к чему вообще?!
просто пофлудить? Или я не уловил контекст вашего замечания?!

ну если человек пишет программу в TurboPascal, исполльзуя стандартный модуль (библиотеку) Graph,
то очевидно, что ему нужен установленный TurboPascal.

а ещё ему нужен работающий компьютер. и электричество..
Это Вы к этому ведёте?!!