Вопрос по информатике:
Паскаль. Помогите, пожалуйста!
Нужно написать программу, которая в левом верхнем углу экрана рисует прямоугольник размером АхВ зеленого цвета и равномерно заполняет его 100 случайными точками белого цвета.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.08.2015 06:40
- Информатика
- remove_red_eye 15210
- thumb_up 44
Ответы и объяснения 1
Uses
GraphABC;
var
i, a, b: integer;
begin
SetBrushColor(clGreen);
a := random(500)+100;
b := random(500)+100;
Rectangle(0, 0, a, b);
for i := 1 to 100 do
begin
PutPixel(random(a), random(b), clWhite);
sleep(100);
end;
end.
- 06.08.2015 09:16
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.