Предмет: Информатика,
автор: kate6710
помогите!! Паскаль! построить пирамиду из прямоугольников с помощью цикла for
Приложения:
Ответы
Автор ответа:
2
uses graphabc;
var i,d,v: integer;
begin
for i:=1 to 7 do
begin
SetPenWidth(5);
DrawRectangle(40+d,380-v,600-d,437-v);
d:=d+40;
v:=v+57;
end
end.
var i,d,v: integer;
begin
for i:=1 to 7 do
begin
SetPenWidth(5);
DrawRectangle(40+d,380-v,600-d,437-v);
d:=d+40;
v:=v+57;
end
end.
Оно то работает, если разделить на строки, но не слишком ли много магических чисел?
uses graphabc;
const
n = 12;
var
i, h, w: integer;
begin
Window.Init(0, 0, Random(100,800), Random(100,800), clBlanchedAlmond);
h := round(Window.Height / (n + 2));
w := round(Window.Width / (2 * n - 1 + 2));
for i := 1 to n do
begin
SetPenWidth(h div 10);
Pen.Color := clRandom;
DrawRectangle(w * (i - 1) + w, Window.Height - h * i, Window.Width - w * i, Window.Height - h * (i + 1));
end
end.
const
n = 12;
var
i, h, w: integer;
begin
Window.Init(0, 0, Random(100,800), Random(100,800), clBlanchedAlmond);
h := round(Window.Height / (n + 2));
w := round(Window.Width / (2 * n - 1 + 2));
for i := 1 to n do
begin
SetPenWidth(h div 10);
Pen.Color := clRandom;
DrawRectangle(w * (i - 1) + w, Window.Height - h * i, Window.Width - w * i, Window.Height - h * (i + 1));
end
end.
Похожие вопросы
Предмет: Физика,
автор: Аноним
Предмет: Биология,
автор: ulaartamonova11
Предмет: Математика,
автор: egorr807
Предмет: Математика,
автор: igorybabaev
Предмет: Алгебра,
автор: x007
const
n = 12;
var
i, h, w: integer;
begin
Window.Init(0, 0, Random(100,800), Random(100,800), clBlanchedAlmond);
h := round(Window.Height / (n + 2));
w := round(Window.Width / (2 * n - 1 + 2));
for i := 1 to n do
begin
SetPenWidth(h div 10);
Pen.Color := clRandom;
DrawRectangle(w * (i - 1) + w, Window.Height - h * i, Window.Width - w * i, Window.Height - h * (i + 1));
end
end.