Нарисовать солнце

@Kristen · Регистрация: 12.04.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте, нужно в Делфи нарисовать солнце, не знаю как прописать цикл с лучами, помогите пожалуйста!

@Puporev · 03.03.2015, 17:21

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var x,y,n,r1,r2,i,x1,y1:integer;
    u:real;
begin
Image1.Width:=Image1.Height;
x:=Image1.Width div 2;
y:=Image1.Height div 2;
with Image1.Canvas do
 begin
  Brush.Color:=clAqua;
  rectangle(0,0,2*x,2*y);
  r2:=x-20;
  r1:=r2 div 2;
  n:=50;
  u:=0;
  Pen.Color:=clYellow;
  Pen.Width:=2;
  for i:=1 to n do
   begin
    x1:=x+round(r2*cos(u));
    y1:=y-round(r2*sin(u));
    moveto(x,y);lineto(x1,y1);
    u:=u+2*pi/n
   end;
  Brush.Color:=clYellow;
  ellipse(x-r1,y-r1,x+r1,y+r1);
 end;
end;

@Kristen · 03.03.2015, 17:34 **[ТС]**

спасибо)

Новые блоги и статьи
Проектирование и моделирование hw_wired 28.01.2025 Введение в моделирование Моделирование представляет собой один из фундаментальных методов научного познания, который позволяет изучать объекты и явления через создание их упрощенных аналогов. В. . .	Алгоритмы и исполнители hw_wired 28.01.2025 Введение в алгоритмы В современном мире информационных технологий алгоритмы играют основополагающую роль в решении различных задач и автоматизации процессов. Алгоритм представляет собой точную. . .	Хранение информации hw_wired 28.01.2025 Введение: Роль систем хранения информации в современном мире В современную эпоху цифровых технологий эффективное хранение информации становится одним из ключевых факторов успешного развития любой. . .	Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .	Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .	Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .
Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .	Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .	Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .	Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .	Информационное моделирование hw_wired 28.01.2025 Введение в информационное моделирование В современном мире информационное моделирование стало неотъемлемой частью научной, образовательной и профессиональной деятельности. Это мощный инструмент. . .

@Kristen 0 / 0 / 0 Регистрация: 12.04.2014 Сообщений: 8
		1
	Нарисовать солнце 03.03.2015, 17:03. Показов 7256. Ответов 2 Метки нет (Все метки) Здравствуйте, нужно в Делфи нарисовать солнце, не знаю как прописать цикл с лучами, помогите пожалуйста! 0

@Kristen 0 / 0 / 0 Регистрация: 12.04.2014 Сообщений: 8
	03.03.2015, 17:34 [ТС]	3
	спасибо) 0

Нарисовать солнце

Решение