Нарисовать пирамиду с заданными параметрами

@RESTY · Регистрация: 30.05.2012

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

Расположить на вкладке компоненты для ввода параметров изображения и кнопку «Рисование», по нажатию на которую в центре компонента TImage будет выведено изображение.....Пирамидку, состоящую из N дисков. Два соседних диска не должны иметь одинаковый цвет, а размер самого маленького из них должен быть в M раз меньше наибольшего. Диски отображаются в виде прямоугольников.

@Puporev · 28.06.2012, 08:58

Delphi

procedure TForm1.Button1Click(Sender: TObject);
//выберем 4 цвета, можно увеличить
const c:array[1..4]of integer=(clRed,clBlue,clGreen,clYellow);
var x,y,n,m,a,d,h,i:integer;
begin
n:=SpinEdit1.Value;
m:=SpinEdit2.Value;
Image1.Picture:=nil;//очистим Image
x:=Image1.Width div 2;
y:=Image1.Height-20;
a:=(Image1.Width-40) div 2;
d:=(a-a div m)div (n-1);
h:=(Image1.Height-40)div n;
with Image1.Canvas do
 begin
  for i:=1 to n do
   begin
    brush.Color:=c[i mod 5];
    rectangle(x-a,y-i*h,x+a,y-(i-1)*h);
    a:=a-d;
   end;
 end;
end;

@RESTY · 28.06.2012, 11:50 **[ТС]**

Спасибо большое.У меня проблема с соотношением была ник как не мог додуматься....

@RESTY 5 / 5 / 3 Регистрация: 30.05.2012 Сообщений: 89
		1
	Нарисовать пирамиду с заданными параметрами 27.06.2012, 23:37. Показов 2997. Ответов 2 Метки нет (Все метки) Расположить на вкладке компоненты для ввода параметров изображения и кнопку «Рисование», по нажатию на которую в центре компонента TImage будет выведено изображение.....Пирамидку, состоящую из N дисков. Два соседних диска не должны иметь одинаковый цвет, а размер самого маленького из них должен быть в M раз меньше наибольшего. Диски отображаются в виде прямоугольников. 0

@RESTY 5 / 5 / 3 Регистрация: 30.05.2012 Сообщений: 89
	28.06.2012, 11:50 [ТС]	3
	Спасибо большое.У меня проблема с соотношением была ник как не мог додуматься.... 0

Опции темы

Нарисовать пирамиду с заданными параметрами

Решение