Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
 Аватар для Bazaroff
288 / 93 / 11
Регистрация: 29.05.2011
Сообщений: 2,421
1

Задание. Модель комнаты

28.01.2024, 18:34. Показов 1183. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задание.
Создайте информационную модель одной из комнат вашей квартиры с целью оклейки ее обоями.

Мое решение.
Поскольку требуется одну из комнат - не стал заморачиваться универсальностью, а взял свою комнату.
Поскольку требуется модель комнаты - не стал заморачиваться программой типа "расчет обоев".
Поскольку модель нужна для последующего расчета, достаточно ее привести в виде прямоугольников, которые требуется оклеить. Площади не нужны. Нужны линейные размеры.
Моя комната в сечении представляет собой прямоугольник. Дверной и оконный проемы на меньших противоположных стенах.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program room;
var l, w, h, da, db, wa, wb, dw, ww, wg: real;
begin
    writeln('Длина, ширина, высота комнаты');
    read(l, w, h);
    writeln('Высота и ширина двери:');
    read(da, db);
    writeln('Высота и ширина окна:');
    read(wa, wb);
    write('Расстояние от правой стороны двери до стены: ');
    read(dw);
    write('Расстояние от левой стороны окна до стены: ');
    read(ww);
    write('Расстояние от пола до подоконника: ');
    read(wg);
    writeln('высота х ширина 1-го прямоугольника = ', h:2:2, ' x ', ((w-db-dw)+(w-wb-ww)+l):2:2);
    writeln('высота х ширина 2-го прямоугольника = ', h:2:2, ' x ', dw+ww+l:2:2);
    writeln('высота х ширина 3-го прямоугольника = ', h-da:2:2, ' x ', db:2:2);
    writeln('высота х ширина 4-го прямоугольника = ', h-wg-wa:2:2, ' x ', wb:2:2);
    writeln('высота х ширина 5-го прямоугольника = ', wg:2:2, ' x ', wb:2:2)
end.
Какие есть замечания, поправки?
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
28.01.2024, 18:34
Ответы с готовыми решениями:

Задание со счетчиком времени, работа с if, обогрев комнаты
Предположим, что у нас есть показатели температуры в комнате и снаружи. Программа должна решать, какую технику лучше включить:...

Qt QAbstractTableModel пользовательская модель задание объектного имени
Всем привет! Работаю с данными, которые отображаются в таблице. Использую пользовательскую модель. Но вот проблема. Не могу задать...

Площадь комнаты
Площадь комнаты Требуется вычислить площадь комнаты в квадратном лабиринте. Входные данные: В первой строке вводится число N –...

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7802 / 4624 / 2832
Регистрация: 22.11.2013
Сообщений: 13,139
Записей в блоге: 1
28.01.2024, 19:30 2
Цитата Сообщение от Bazaroff Посмотреть сообщение
Какие есть замечания, поправки?
Что тут скажешь...
Сразу видно, кто не ни разу не клеил обои
Модель реальности соответствует практически никак

Добавлено через 2 минуты
Хозяйке на заметку:
чтобы поклеить комнату обоями нужно эти обои купить. Но есть несколько моментов:
1) обои продают в рулонах,
2) рулоны бывают разной ширины и длины,
3) в рулонах часто есть шаг рисунка.

Иначе хозяйка рискует либо недобрать обоев, а вернувшись обнаружить, что таких уже не осталось, либо получить пару-тройку лишних рулонов совершенно не даром.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
28.01.2024, 19:30
Помогаю со студенческими работами здесь

Нахождение комнаты
Дан массив char. Символом '.' отображаются пустые клетки символом '#' стены. Надо найти длину,ширину и координаты комнаты. Причем стены...

Комнаты в игре
Есть некая игра. В игре есть общая комната (лобби), куда изначально заходят все игроки. Там есть список созданных игровых комнат, к...

Комнаты музея!
Уважаемые программисты! Есть задачка, и к ней код в Паскале, помогите, пожалуйста перевести ее на Scilab! Иль может кто нить напишет ее с...

Площадь комнаты
Требуется вычислить площадь комнаты в квадратном лабиринте. Входные данные В первой строке вводится число N – размер лабиринта (3...

Комнаты в помещении)
Всем привет) А подскажите-ка пожалуйста, есть ли алгоритм, который позволяет выделить из графа простые циклы? Под простыми я имею в виду...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Лучшие практики оптимизации Docker Image
Mr. Docker 13.03.2025
Размер Docker-образа влияет на множество аспектов работы с контейнерами. Чем больше образ, тем дольше его загрузка в реестр и выгрузка из него. Для команд разработки, работающих с CI/ CD пайплайнами,. . .
Вопросы на собеседовании по Docker
Mr. Docker 13.03.2025
Ты сидишь напротив технического специалиста, и вдруг звучит вопрос про Docker Swarm или многоэтапные сборки. Пот на лбу? Не переживай, после этой статьи ты будешь готов ко всему! Эта статья будет. . .
Поиск текста в сносках : замена дефиса на тире или тире на дефис...
РоΜа 13.03.2025
Нужно было найти текст в сносках и заменить. Почему-то метод селекшн не сработал. . . пришлось гуглить. найденный на форумвба код пришлось править. Смысл - заменяет в сносках дефисы и тире на нужные. . . .
Real PATH definitions in bash scripts
jigi33 13.03.2025
Как поймать путь и путь к директории относительно запускаемого файла в BASH 1. поймать путь через вывод $(pwd) 2. более правильно - на основе realpath (см. скриншот)
Django или Flask: что выбрать для веб-разработки на Python
py-thonny 13.03.2025
Django – это высокоуровневый фреймворк, который придерживается философии "всё включено". Он предоставляет разработчику готовые решения для большинства типичных задач веб-разработки: от аутентификации. . .
Непрерывное развертывание в Java с Kubernetes
Javaican 13.03.2025
Чем так привлекателен Kubernetes для развертывания Java-приложений? Этот оркестратор контейнеров позволяет автоматизировать развертывание, масштабирование и управление контейнеризированными. . .
Предотвращение XSS, CSRF и SQL-инъекций в JavaScript
run.dev 13.03.2025
JavaScript занимает первые позиции среди языков веб-разработки, но его распространенность делает его привлекательной целью для злоумышленников. Межсайтовый скриптинг (XSS), межсайтовая подделка. . .
PHP 8: JIT-компиляция и улучшение производительно­сти
Jason-Webb 13.03.2025
PHP никогда не славился своей скоростью. Многие сталкивались с проблемами производительности при работе со сложными вычислениями или обработкой больших объемов данных. Традиционная модель выполнения. . .
Сериализация данных с Apache Avro в Kafka
Javaican 12.03.2025
Apache Kafka стала одним из ключевых решений для работы с большими потоками данных. Однако с ростом объемов передаваемых данных возникает проблема: как эффективно сериализовать и десериализовать. . .
Создание потребителей Kafka с помощью Reactor Kafka
Javaican 12.03.2025
Reactor Kafka — это библиотека, объединяющая Apache Kafka с реактивным программированием на базе Project Reactor. Такое сочетание позволяет строить неблокирующие, асинхронные приложения с контролем. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru