Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11673
Последний выпуск: 19.06.2015

Как редактировать эту программу?

95K
21 марта 2015 года
Aerenhima
1 / / 21.03.2015
Как преобразовать программу, чтобы цветы были закрашенный изнутри пикселями, эта команда выполнялась через процедуру и разброс цветов на экране увеличился?

(Просто на словах идеи и предложения)

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.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог