ЕА
Евгений Апенин
Составить программу в паскале!
Необходимо составить программу, рисующую десять вложенных друг в друга кубиков. Очень прошу помощи, нуб нубом я
Необходимо составить программу, рисующую десять вложенных друг в друга кубиков. Очень прошу помощи, нуб нубом я
10 квадратиков:
X0 := 110;
Y0 := 110;
dL := 100;
for N := 0 to 9 do
Rectangle(X0 - dL * N, Y0 - dL * N, X0 + dL * N, Y0 + dL * N);
А 10 кубиков — по аналогии…
P.S. Следующий раз просьбу, желательно, оформлять в виде просьбы, а не приказа!!!
оператор line тебе в помощь