Вопрос по информатике:
Написать программу на языке паскаль,которая используя цикл ,строит семейство прямоугольников случайного цвета.
- 03.02.2016 22:17
- Информатика
- remove_red_eye 4927
- thumb_up 50
Ответы и объяснения 1
uses
GraphABC;
var
i: integer;
arr: array [1..6] of color;
begin
arr[1] := clPink; arr[2] := clRed; arr[3] := clGreen;
arr[4] := clBlue; arr[5] := clYellow; arr[6] := clOrange;
for i := 0 to 59 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.
- 04.02.2016 17:15
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.