Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 975 ответов!

помогите написать программу в Pascal авс. надо нарисовать мазайку с разноцветными разными фигурами и толщиной. пожалуйста

5-9 класс

Алисенок 10 окт. 2014 г., 7:30:04 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Мар123ия
10 окт. 2014 г., 9:05:57 (9 лет назад)

Это 1 ряд и 1 кубик, остальные аналогично:
program mozaik;
uses graphabc;
var i, a, n, b:integer;
begin
for i:=1 to 10 do
begin
n:=n+100;
b:=b+100;
rectangle(100,0,200,100);
rectangle(100+n,0,200+n,100);
floodfill(150,50,clrandom);
end;
end.

Ответить

Другие вопросы из категории

Каждая из частей изображения содержит 8 бит некоторой информации. Какая информация будет соответствовать части под номером 4, если для первой части она

равна 11111111, а в каждой последующей- значение информации в 2 раза больше, чем в предыдущей? Следует учесть, что при переполнении разрядов бит не теряется, а прибавляется к младшему разряду полученного числа.

сколько здесь треугольников?
Логический диск D имеет объем памяти 2,1 ГБ. Устройство распознавания речи воспринимает информацию с максимальной скорость 200 букв в минуту. Сколько

времени надо говорить, чтобы заполнить 80% объема памяти диска D? С объяснением, пожалуйста.

Читайте также

Написать программу Turpo pascal помогите пожалуйста что сможете!!! Вывести на экран 6 раз свое имя. Составить блок-схему и написать программу

вычисления суммы чисел от 6 до 10. Написать программу вычисления n! (факториал числа n), где n- целое неотрицательное число.

Определение факториала:

0!=1, 1!=1, 2!=1*2, 3!=1*2*3, ……,n!=1*2*3*…*(n-1)*n.

Другими словами n!- это произведение n натуральных чисел.

Помогите написать программу для Паскаля.

1. Написать программу нахождения произведения n чисел.



Вы находитесь на странице вопроса "помогите написать программу в Pascal авс. надо нарисовать мазайку с разноцветными разными фигурами и толщиной. пожалуйста", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.