помогите!! Паскаль! построить пирамиду из прямоугольников с помощью цикла for
Помогите!! Паскаль! выстроить пирамиду из прямоугольников с подмогою цикла for
![](/content/imgs/57/https://ru-static.z-dn.net/files/d7f/d8478664a20fdff8a8e301fe6e63c674.jpg)
Диана Зарванская
uses graphabc;constn = 12;vari, h, w: integer;beginWindow.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 dobeginSetPenWidth(h div 10);Pen.Color := clRandom;DrawRectangle(w * (i - 1) + w, Window.Height - h * i, Window.Width - w * i, Window.Height - h * (i + 1));endend.
1 ответ
Таисия Каранчева
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.
Serega Episkoposov
Оно то работает, если поделить на строчки, но не очень ли много магических чисел?
Borka Sjardin
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)); endend.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов