В Паскаль АВС создать интересное изображение средней сложности.(помогите плиз!)

Question

В Паскаль АВС создать интересное изображение средней сложности.(помогите плиз!)

Answer 1

Uses
  GraphABC;
var
  i, k: integer;
  arr: array [1..6] of color;
begin
  writeln('Сколько кирпичиков?');
  readln(k);
  arr[1] := clPink; arr[2] := clRed; arr[3] := clGreen;
  arr[4] := clBlue; arr[5] := clYellow; arr[6] := clOrange;
  for i := 0 to k - 1 do
  begin
    SetBrushColor(arr[random(6) + 1]);
    FillRectangle((i mod 16) * 40, (i div 16) * 20, (i mod 16) * 40 + 39, (i div 16) * 20 + 19);
    sleep(20);
  end;
end.

Стена из кирпичиков - норм?)

Comments

И эти
arr[1] := clPink; arr[2] := clRed; arr[3] := clGreen;
arr[4] := clBlue; arr[5] := clYellow; arr[6] := clOrange;

---

И эту SetBrushColor(arr[random(6) + 1]);

---

Замени на эту SetBrushColor(clGreen);

---

заменил и удалил,теперь на эту ругается -FillRectangle

---

я fill удалил и вроде пошло)^__^

---

Ну да, просто версия старая...) Скачай PascalABC.NET, там много всяких вкусняшек, например, запросто чат написать на нём можно)

---

ух ты ж! круто!! да я то могу скачать, только в кабинетах старые версии паскаля ._. а преподам влом что-то новое устанавливать

---

Ну да, некоторые на Qbasic писать заставляют... В обще, если что - пиши:)

---

*в общем)

---

до) аригато) у нас модули по html, VB, и паскаль этот древний