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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.06.2009, 16:45   #1
isus
Пользователь
 
Регистрация: 07.06.2009
Сообщений: 41
По умолчанию реализовать построение R-функции

люди помогите плиз. мне нужно как нить реализовать построение R-функции......если кто нить знает как это сделать дайте совет....
isus вне форума Ответить с цитированием
Старый 09.06.2009, 17:25   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
если кто нить знает
А если не знает неплохо бы описать что это за функция такая.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 10.06.2009, 20:59   #3
isus
Пользователь
 
Регистрация: 07.06.2009
Сообщений: 41
По умолчанию

R-функция это функция Рвачева....
рассмотрим на примере : необходимо построить области контур круга,все кроме круга и внутреннюю часть круга,для этого соответственно берем уравнение окружности х*х+у*у-r*r?0. вот где стоит знак вопроса должен стоять соответственно знак =,>,< и нам прога строит данную область
isus вне форума Ответить с цитированием
Старый 10.06.2009, 21:01   #4
isus
Пользователь
 
Регистрация: 07.06.2009
Сообщений: 41
По умолчанию

просто мне нужно девушке помочь а я не шарю в программировании я чисто математик
isus вне форума Ответить с цитированием
Старый 10.06.2009, 21:18   #5
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

Хм... А это на Делфи нужно делать?


UpDate

Код:
Var Form1: TForm1; Bitmap: TBitmap;

Type
      TRGB=Record
            Blue, Green, Red: Byte
      End;
      ARGB=Array [0..0] Of TRGB;
      PARGB=^ARGB;

Implementation

{$R *.dfm}

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Randomize;
Bitmap:=TBitmap.Create;
Bitmap.PixelFormat:=pf24bit;
Bitmap.Width:=Image1.Width;
Bitmap.Height:=Image1.Height;
End;

Procedure TForm1.Button1Click(Sender: TObject);
Var i, j, x, y: Integer; Line: PARGB; n: Byte;
Begin
For j:=0 To Image1.Height-1 Do
      Begin
      Line:=Bitmap.ScanLine[j];
      For i:=0 To Image1.Width-1 Do
            Begin
            x:=i-Round(Image1.Width/2);
            y:=Image1.Height-j-Round(Image1.Height/2);
            If Round(SQRT(x*x+y*y))=128 Then
                    n:=100
            Else
                    n:=200;
            Line[i].Red:=n;
            Line[i].Green:=n;
            Line[i].Blue:=n;
            End;
      End;
Image1.Canvas.Draw(0, 0, Bitmap);
Image1.Canvas.MoveTo(Round(Image1.Width/2), 0);
Image1.Canvas.LineTo(Round(Image1.Width/2), Round(Image1.Height/2));
Image1.Canvas.LineTo(Image1.Width, Round(Image1.Height/2));
End;
I am the First of Cyber Evolution...
I am the First to Program your Future...

Последний раз редактировалось DomiNick; 10.06.2009 в 21:35. Причина: UpDate
DomiNick вне форума Ответить с цитированием
Старый 10.06.2009, 23:35   #6
isus
Пользователь
 
Регистрация: 07.06.2009
Сообщений: 41
По умолчанию

если можно сделайте в с++ просто она delphi не изучала в инсте
isus вне форума Ответить с цитированием
Старый 12.06.2009, 05:44   #7
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

Ну я попробую, конечно, но в C++ я не очень...
Да и на компе он сейчас не установлен.....
I am the First of Cyber Evolution...
I am the First to Program your Future...
DomiNick вне форума Ответить с цитированием
Старый 14.06.2009, 17:21   #8
isus
Пользователь
 
Регистрация: 07.06.2009
Сообщений: 41
По умолчанию

Цитата:
Сообщение от DomiNick Посмотреть сообщение
Ну я попробую, конечно, но в C++ я не очень...
Да и на компе он сейчас не установлен.....
спасибо товарищ .....
isus вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Построение графиков функции Kravec Паскаль, Turbo Pascal, PascalABC.NET 8 09.06.2009 19:16
Построение графика разрывнойй функции DAV88 Помощь студентам 5 08.05.2009 09:40
Построение графика функции Java Folly Общие вопросы по Java, Java SE, Kotlin 3 19.03.2009 11:16
Построение графика функции Жека:) Общие вопросы C/C++ 5 11.11.2008 19:05
Графика. Построение функции AngelOfDeath Общие вопросы Delphi 2 14.10.2008 13:44