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

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

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


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

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

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

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

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

Последний раз редактировалось Мент; 26.06.2008 в 08:51.
Мент вне форума Ответить с цитированием
Старый 26.06.2008, 11: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 вне форума Ответить с цитированием
Ответ

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

Опции темы


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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840