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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.06.2011, 21:19   #1
Motaro44
 
Регистрация: 16.06.2011
Сообщений: 3
По умолчанию Описать назначение процедуры, включенной в программу, фрагмент которой приведен в таблице, и найти ошибки в этом фрагмен

interface

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Generate1: TMenuItem;
Save1: TMenuItem;
Exit1: TMenuItem;
LoadImage1: TMenuItem;
OpenPictureDialog1: TOpenPictureDialog;
Panel1: TPanel;
Image1: TImage;
Button1: TButton;
PaintBox1: TPaintBox;
procedure Generate1Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

procedure TForm1.Generate1Click(Sender: TObject);
var I,X,Y,R,G,B:float;
begin
PaintBox1.Canvas.Pen.Width:=1;
for I:=1 to PaintBox1.Width do
begin
PaintBox1.Canvas.Pen.Color:=$10000* R+256*G+B;
R:=Random(256);
G:=Random(256);
B:=Random(256);
X:=Random(PaintBox1.Width);
Y:=Random(PaintBox1.Height);
PaintBox1.Canvas.MoveTo(X,Y);
X:=Random(PaintBox1.Width);
Y:=Random(PaintBox1.Height);
PaintBox1.Canvas.LineTo(X,Y);
end;
end;

end.
Motaro44 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать программу, в ходе выполнения которой... AzaroffV Фриланс 7 21.01.2011 15:02
Описать функцию zero1(x), значением которой является первый из элементов вектора x, ссылающихс на число 0 polarity Помощь студентам 4 31.05.2010 13:03
помогите описать программу nkarev Общие вопросы C/C++ 0 26.02.2009 22:42