Рисунок в паскале.

[Again1]

Здравствуйте. Помогите пожалуйста с некоторыми задачами на паскале. Скоро сдавать, а я и половины не сделал.

1.Найти max элемент в зоне квадратной матрицы:
[IMG][/IMG]

2. И вот тут два рисунка. Сложнее всего для меня именно рисунки.
http://dropmefiles.com/PzItE

Заранее спасибо

[Serge_Bliznykov]

и что у Вас не получается?

первая задача - на поиск максимального элемента в матрице. решалась неоднократно. в том числе и для определённых областей матрицы.

вторая - нарисовать рисунок, зависит от того, какой у Вас Паскаль.
Но, в любом случае, рисуется графическими примитивами (точками, линиями, квадратами, овалами и т.п.).

ну и последнее, помочь - это не означает сделать всё за Вас.

[Again1]

Насчет прямоугольников. Как сделать так, чтобы второй прямоугольник начинал рисоваться с нижнего правого угла первого?

[Serge_Bliznykov]

очевидно, что сместить координаты левого угла (x) на ширину первого прямоуголника, а отступ по высоте (y) на высоту первого прямоугольника.

Вы не ответили, какой у Вас Паскаль...
Приведите сюда Ваш код на Паскале, который рисует один прямоугольник

[Again1]

Паскаль ABC

program lol;
Uses GraphABC;

begin
Rectangle(180, 130, 20, 25);

end.

[Again1]

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

[Again1]

Лол, оказывается нужно сделать анимацию. Чтобы эти прямоугольники накладывались друг на друга :С

program lol;
Uses GraphABC;

begin
Rectangle(180, 130, 20, 25);
Rectangle(330, 130, 179, 230);
Rectangle(480, 230, 329, 320);

end.

С этим поможете?

[Serge_Bliznykov]

Сообщение от Again1

Лол, оказывается нужно сделать анимацию. Чтобы эти прямоугольники накладывались друг на друга :С

С этим поможете?

Если расскажите, что значит "Чтобы эти прямоугольники накладывались друг на друга" (опишите покадрово, что должно быть анимировано), тогда, возможно, что и помогу!

[Again1]

Эти прямоугольники должны накладываться друг на друга, т.е из трех должен стать один.

[Again1]

Что, никто не поможет с анимацией?