Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.06.2008, 09:00   #1
Мент
 
Регистрация: 02.06.2008
Сообщений: 3
По умолчанию Помогите составить задачу на Pascal

Ребата, пожалуйста помогите решить задачку
ЛЮди очень надо помоги кто чем может!

Задача. График функций.

Написать программу построение графика функций.

y:=2*cos(sqrt(x))+0.5;

Последний раз редактировалось Мент; 26.06.2008 в 09:51.
Мент вне форума Ответить с цитированием
Старый 26.06.2008, 12:46   #2
Mef
 
Регистрация: 22.06.2008
Сообщений: 5
По умолчанию

Код:
Program Mef_3;
uses CRT, Graph;
var
x,y:real;
a,b:integer;
begin
a:=detect;
InitGraph(a,b,'C:\BP\BGI');
repeat
x:=x+0.001;
y:=2*cos(sqrt(x))+0.5;
PutPixel(round(x*100),Round(y*100),5);
delay(50);
until KeyPressed;
closeGraph;
end.
Mef вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Построение графиков Vitul'k Помощь студентам 15 18.05.2009 17:37
построение графиков zetrix Microsoft Office Excel 4 17.06.2008 14:06
Построение графиков на C# TheGuardian123 Общие вопросы .NET 2 29.01.2008 14:50
Построение графиков функций DeN1308 Помощь студентам 5 30.10.2007 16:15
построение графиков 4eCHoK PHP 1 20.09.2007 04:35