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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.03.2015, 22:43   #1
Roblen
 
Регистрация: 21.03.2015
Сообщений: 3
По умолчанию Как редактировать эту программу?

Как сделать так, чтобы лепестки внутри цветка закрашивались пикселями в разброс, а сама программа выводилась через процедуру?
Код:
uses GraphABC;
procedure flower(n:integer);
var
  size,x0,y0:integer;
begin
  var a:real:=0;
  var col:Color := clRandom;
  size := random(100)+10;
  x0 := random(200);
  y0 := random(100);
  repeat
    var r:=sin(n*(Pi*a/180));                    
	  var x:=round(r*Cos(Pi*a/180)*size)+x0;
	  var y:=round(r*Sin(Pi*a/180)*size)+y0; 
	  PutPixel(x,y,col); 
	  a:=a+0.01
  until a>=360
end;

begin
  SetWindowSize(800,600);
  Coordinate.Origin := Window.Center; 
  Coordinate.SetMathematic;    
  for var i := 0 to 5 do
    flower(random(5)+2);
end.

Последний раз редактировалось Stilet; 21.03.2015 в 23:23.
Roblen вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
плохо соображаю в qbesic ` е, подскажите как написать эту программу Vlad0697 Помощь студентам 0 16.05.2014 11:31
Редактировать программу написанную на Python era1fgg Python 5 17.07.2013 14:09
объясните эту программу Zulfat 22 Общие вопросы C/C++ 3 22.11.2012 10:31
Редактировать программу. TiP-A-ToP Помощь студентам 1 03.11.2011 20:23
как изменить эту программу чтобы она заработала? Анастасия91 Visual C++ 6 13.12.2010 08:05