Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 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 вне форума   Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Построение графиков 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 15:50
Построение графиков функций DeN1308 Помощь студентам 5 30.10.2007 17:15
построение графиков 4eCHoK PHP 1 20.09.2007 04:35