tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Паскаль. , ! нужно написать
Паскаль. , ! нужно написать программу, которая в левом верхнем углу экрана рисует прямоугольник размером ахв зеленого цвета и равномерно заполняет его 100 случайными точками белого цвета.
egorbychkov83
1 30.06.2019 15:40
1
Ответы
miaamkom1
24.07.2020 08:45
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
steelersumyp06wkp
03.07.2019 13:30
\/l - lx = lll (переставить одну палочку хоть откуда и куда)...
Clook2023
03.07.2019 13:30
N- factorial это проезведение всех чисел от 1 до n. для заданного числа n определите сколько нулей в конце десятичной записи n - factorial...
Dertylt
07.04.2019 09:07
1. переменные обувная фабрика собирается начать выпуск элит- ной модели ботинок. дырочки для шнуровки будут рас- положены в два ряда, расстояние между равно a, а расстояние...
angelinasd2007
07.04.2019 09:11
Найти сумму двухзначных чисел в паскаль...
Apple8066
16.02.2021 22:04
с информатикой! Очень нужно решить задачи 7,8,9,10. Хотя бы что сможете...
mamakarina
16.02.2021 22:06
1. Начертите фигуру, изображен- ную на рисунке, используя вс гательный алгоритм с аргументамидля рисования отдельного элемен-та. Количество повторений витковспирали задается...
nikita11111113
16.02.2021 22:07
Составьте алгоритм на псевдокоде, который будет в цикле для переменной х = 0 прибавлять единицу и показывать результат. Цикл совершать 10 раз....
Morij007
03.07.2019 21:50
Какая разница между системной программы и прекладной программы...
nikabagirovap0dq1g
21.08.2019 09:30
Сколько цветов содержаться в палитре растрового рисунка, если на кодирование каждого пикселя отводиться 9 бит?...
EgaBelyaev
21.08.2019 09:40
Алгоритм не реализующий обратную связь...
Популярные вопросы
Диагональ разбивает выпуклый шестиугольник на 2 многоугольника, один...
3
Какие структуры листа играю ключевую роль в изучаемом явлении? (https://bio6-vpr.sdamgia.ru/get_file?id=33221)это...
1
Найти площадь пряумоугольника, если его длина равна 8см, а ширина в 2...
1
Объяснить на примерах место телекоммуникационных технологий в функционировании...
3
Синус и косинус острого угла, гипотенуза прямоугольного треугольника!...
3
Нужно изменить по образцу,...
3
Виписати образи-символи твору Маленький Принц?...
2
You ve got ... money, you can t buy even a bun. * few a little a few...
3
Найдите ускорение за равенством: x=5-8t-t^2...
2
Краткое эссе по теме:Павел 1 - тиран или одинокий реформатор?...
1
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.