Модуль CRT: Нарисовать на экране несколько вложенных друг в друга разноцветных прямоугольников

@Аиса · Регистрация: 27.11.2012

Author24 — интернет-сервис помощи студентам

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

@Puporev · 14.05.2013, 18:25

Задача чисто для Турбо Паскаля. В АВС нет символов псевдографики и прямоугольники нечем рисовать.
Если знаками
------ и
|
|
|
то можно, хоть и не красиво.

@Аиса · 14.05.2013, 18:29 **[ТС]**

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

Задача чисто для Турбо Паскаля. В АВС нет символов псевдографики и прямоугольники нечем рисовать.
Если знаками
------ и
|
|
|
то можно, хоть и не красиво.

наверно тогда только в раскале

@Puporev · 14.05.2013, 18:55

А Паскаль АВС это не Паскаль? Просто делать нужно в том Паскале, на каком вы учитесь и сдаете.

Добавлено через 20 минут
В Турбо Паскаль это делается так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
procedure rect(w,h,c,n:integer);
var i:byte;
begin
textcolor(c);
gotoXY(39-w,13-h);
write(#218);
for i:=39-w+1 to 40+w-1 do
write(#196);
write(#191);
gotoXY(39-w,13+h);
write(#192);
for i:=39-w+1 to 40+w-1 do
write(#196);
write(#217);
for i:=1 to 2*h-1 do
 begin
  gotoXY(39-w,13-h+i);
  write(#179);
  gotoXY(40+w,13-h+i);
  write(#179);
 end;
gotoXY(39-w+1,13-h+1);
write(n);
gotoXY(80,25);
end;
begin
clrscr;
rect(20,10,11,11);
rect(15,7,12,12);
rect(10,5,13,13);
rect(4,2,14,14);
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Неблокируемый стек в C++26: реализуем простой сборщик мусора stackOverflow 02.03.2025 Многопоточные приложения требуют надежных и производительных структур данных, способных эффективно работать в условиях конкурентного доступа. Неблокируемые структуры данных представляют собой особый. . .	Шаблон REQ/REP в ZeroMQ: сверхбыстрый обмен сообщениями в C++ и Python stackOverflow 02.03.2025 Построение высоконагруженных распределенных систем требует надежного и производительного механизма обмена сообщениями. ZeroMQ выделяется среди прочих решений своей невероятной скоростью работы и. . .	Нестандартные приемы работы с итераторами в C++ stackOverflow 02.03.2025 Итераторы - один из краеугольных камней C++, предоставляющий универсальный механизм обхода и манипуляции данными в контейнерах. Появившись как замена небезопасным указателям, они эволюционировали от. . .	Лексический анализ и регулярные выражения в C++26 stackOverflow 02.03.2025 Лексический анализ - ядро любого компилятора и инструмента обработки текста. Каждый программист сталкивается с задачами парсинга строк, обработки файлов конфигурации или анализа пользовательского. . .	Подробно о std::mdspan в C++23 stackOverflow 02.03.2025 Работа с многомерными массивами данных традиционно была одной из сложных задач в C++. Программистам приходилось создавать собственные абстракции или использовать сторонние библиотеки для эффективной. . .
Колмогоровская сложность в C++: Путь к совершенному коду stackOverflow 02.03.2025 Абстрактная математическая теория Колмогорова стала мощным средством оценки и улучшения программного кода. Сложность алгоритма - не только в его вычислительной эффективности, но и в том, насколько. . .	Изменения в C# 14 stackOverflow 02.03.2025 Одно из самых значимых изменений в C# 14 - поддержка коллекционных выражений, которые позволяют создавать и инициализировать коллекции с помощью нового лаконичного синтаксиса. Это нововведение. . .	Разработка кроссплатформенного мобильного приложения для iOS/Android на C++ bytestream 02.03.2025 C++ как язык программирования высокого уровня с прямым доступом к аппаратным ресурсам позволяет создавать приложения, работающие одинаково быстро как на iOS, так и на Android устройствах. Ни для кого. . .	Аутентификация/авторизация на Golang bytestream 02.03.2025 Go предлагает множество возможностей для создания надежных систем аутентификации. Встроенные криптографические пакеты, высокая производительность и простота параллельной обработки запросов делают его. . .	Нововведения TypeScript 5.8 bytestream 02.03.2025 TypeScript 5. 8 приносит много возможностей и оптимизаций, которые существенно расширяют границы типобезопасного программирования на JavaScript. Эта версия включает ряд значительных улучшений в работе. . .

@Аиса 0 / 0 / 0 Регистрация: 27.11.2012 Сообщений: 11
		1
	Модуль CRT: Нарисовать на экране несколько вложенных друг в друга разноцветных прямоугольников 14.05.2013, 18:01. Показов 4277. Ответов 3 Метки нет (Все метки) Нарисовать на экране несколько вложенных друг в друга разноцветных прямоугольников, в левом углу каждого вывести номер цвета. 0

@Puporev Почетный модератор 64306 / 47603 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	14.05.2013, 18:25	2
	Задача чисто для Турбо Паскаля. В АВС нет символов псевдографики и прямоугольники нечем рисовать. Если знаками ------ и \| \| \| то можно, хоть и не красиво. 0

@Аиса 0 / 0 / 0 Регистрация: 27.11.2012 Сообщений: 11
	14.05.2013, 18:29 [ТС]	3
	Сообщение от Puporev Задача чисто для Турбо Паскаля. В АВС нет символов псевдографики и прямоугольники нечем рисовать. Если знаками ------ и \| \| \| то можно, хоть и не красиво. наверно тогда только в раскале 0