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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

Как сделать так, чтобы лепестки внутри цветка закрашивались пикселями в разброс, а сама программа выводилась через процедуру?
Код:
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; 22.03.2015 в 00:23.
Roblen вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
плохо соображаю в 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 09:05


20:33.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.