|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.06.2011, 21:19 | #1 |
Регистрация: 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. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Написать программу, в ходе выполнения которой... | 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 |