Форум программистов, компьютерный форум, киберфорум PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 09.12.2017
Сообщений: 46
GraphABC

Равнобедренная пирамида

10.03.2018, 20:29. Показов 2174. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Напишите программу, которая в стандартное графическое окно выводит равнобедренную пирамиду из кирпичей (см. рисунок ниже). Самый левый кирпич в основании пирамиды должен располагаться у левой границы графического окна, а верхний кирпич — у его верхнего края. Кирпичи должны выводиться сверху вниз. Высота и ширина кирпича в программе задаются константами. Количество кирпичей в основании пирамиды задается с клавиатуры и должно быть не меньше 1 и не больше 30. Пока пользователь не введет значение, попадающее в диапазон от 1 до 30, ему выводится сообщение «Значение должно быть в диапазоне от 1 до 30!», а затем предлагается ввести новое значение. От автора: тут собственно тоже вложенные циклы наверно)
Миниатюры
Равнобедренная пирамида  
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
10.03.2018, 20:29
Ответы с готовыми решениями:

Пирамида
Напишите конструирующую программу для пирамиды

Графические построения в паскале - треугольная пирамида
Нарисовать на экране треугольную пирамиду. Ввести координаты некоторых точек (выбрать самостоятельно) и цвет контура.

Равнобедренная трапеция
Всем привет. Помогите сделать задачку. Найти диагональ и боковую сторону равнобедренной трапеции с основаниями 20 и 12 см, если известно,...

3
Почетный модератор
 Аватар для Puporev
64308 / 47605 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
11.03.2018, 07:51
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
uses graphABC;
const w=20;
      h=10;
var n,x0,x,y:integer;
begin
repeat
write('Введите количество кирпичей в основании пирамиды от 1 до 30 n=')      ;
readln(n);
if not(n in [1..30]) then writeln('Значение должно быть в диапазоне от 1 до 30!');
until n in [1..30];
clearwindow;
setwindowsize(600,300);
centerwindow;
x0:=(n div 2)*w;
y:=0;
setbrushcolor(clChocolate);
for var i:=1 to n do
 begin
  x:=x0-(w div 2)*i;
  for var j:=1 to i do
   begin
    rectangle(x,y,x+w,y+h);
    x:=x+w;
   end;
  y:=y+h;
 end;
end.
0
0 / 0 / 0
Регистрация: 09.12.2017
Сообщений: 46
11.03.2018, 09:23  [ТС]
Хорошо, спасибо, можете удалить тему пожалуйста? Иначе спишут ещё)
0
Почетный модератор
 Аватар для Puporev
64308 / 47605 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
11.03.2018, 09:25
Цитата Сообщение от DefAster78boom Посмотреть сообщение
можете удалить тему пожалуйста?
Это нельзя, хотите впредь инкогнито пишите в платный раздел, а это решение есть собственность форума,.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
11.03.2018, 09:25
Помогаю со студенческими работами здесь

Равнобедренная трапеция
Помогите, пожалуйста, решить. В равнобедренной трапеции угол при основании = 45градусов, боковые стороны = 9√2 см, а диагональ =...

Равнобедренная трапеция с известным основанием и площадью
Добрый день, у меня есть равнобедренная трапеция Т1 со всеми известными сторонами углами и т.д. Мне нужно закрасить трапецию Т1 начиная с...

Равнобедренная трапеция ABCD разбивается диагональю AC на 2 равнобедренных треугольника
Равнобедренная трапеция ABCD разбивается диагональю AC на 2 равнобедренных треугольника. Определите углы трапеции.

Равнобедренная трапеция - найти точку пересечения боковых сторон
Равнобедренная трапеция задана координатами вершин. Найти точку пересечения боковых сторон. На С++. заранее благодарю.

Равнобедренная трапеция задана длинами оснований и боковой стороной. Вычислить среднюю линии трапеции, высоту, периметр
Равнобедренная трапеция задана длинами оснований и боковой стороной. Вычислить среднюю линии трапеции, высоту, периметр и площадь.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Компиляция C++ с Clang API
NullReferenced 24.03.2025
Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .
Многопоточное программировани­е в C#: Класс Thread
UnmanagedCoder 24.03.2025
Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями
mobDevWorks 23.03.2025
При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .
Моки в Java: Сравниваем Mockito, EasyMock, JMockit
Javaican 23.03.2025
Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .
Архитектурные паттерны микросервисов: ТОП-10 шаблонов
ArchitectMsa 22.03.2025
Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .
Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов
GameUnited 22.03.2025
Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .
Образование и практика
Igor3D 21.03.2025
Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
Lazarus. Таблица с объединением ячеек.
Massaraksh7 21.03.2025
Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .
Async/await в Swift: Асинхронное программировани­е в iOS
mobDevWorks 20.03.2025
Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .
Колмогоровская сложность: Приёмы упрощения кода
ArchitectMsa 20.03.2025
Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер