Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/37: Рейтинг темы: голосов - 37, средняя оценка - 4.62
 Аватар для XudaH
13 / 13 / 0
Регистрация: 04.05.2009
Сообщений: 130

Приложение для расчета количества рулонов обоев, необходимых для оклейки стен комнаты.

13.05.2009, 20:10. Показов 7942. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Программа должна содержать форму, в которую работник вводит длину и ширину комнаты, высоту потолков, длину и ширину рулона обоев и его стоимость. Программа рассчитывает необходимое количество рулонов обоев и их общую стоимость. При работе программы должна производиться проверка на корректность введенных данных и, если исходные данные не введены или введены неверно (например, символы вместо числа), курсор должен переводиться на поле с неверными данными и выводиться сообщение об ошибке.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
13.05.2009, 20:10
Ответы с готовыми решениями:

Вычисление количества рулонов обоев, необходимых для оклеивания комнаты
file:///home/user/%D0%A0%D0%B0%D0%B1%D0%BE%D1%87%D0%B8%D0%B9%20%D1%81%D1%82%D0%BE%D0%BB/%D0%A1%D0%BD%D0%B8%D0%BC%D0%BE%D0%BA.png 6....

Сколько нужно рулонов обоев для оклейки комнаты
Сколько нужно рулонов обоев для оклейки комнаты длиной m метров, шириной n метров и высотой h метров, если ширина рулона k см, а длина 10...

Определить, сколько рулонов обоев нужно для оклейки комнаты
ПЛОЩАДЬ КОМНАТЫ 40 КВАДРАТОВ ОДИН РУЛОН ОБОЕВ НА 1,5 КВАДРАТА СКОЛЬКО РУЛОНОВ обоев НАДО BEGIN VAR a,b:integer; a=40; b=1,5; ...

8
 Аватар для Toxa33rus
3921 / 922 / 125
Регистрация: 16.04.2009
Сообщений: 1,962
13.05.2009, 23:31
А в чем загвоздка? Умножаете высоту стены на ширину и делите на длинну и ширину рулона, округляете в большую строну и умножаете на рубли за рулон.
Задача в одно действие.
Фокус передавать так: text1.getFocus()
1
 Аватар для XudaH
13 / 13 / 0
Регистрация: 04.05.2009
Сообщений: 130
14.05.2009, 20:10  [ТС]
Вопрос! Как округлить в большую сторону? =). Что то не очень понял.
0
 Аватар для Toxa33rus
3921 / 922 / 125
Регистрация: 16.04.2009
Сообщений: 1,962
14.05.2009, 21:17
Округлять надо затем что рулоны продают целиком.
Можно это делать так:
PureBasic
1
X = Round(X - 0.5) + 1
Но функция Round мутная какая-то - 0.5 округляет как 0, а 1.5 как 2. Я ее стараюсь не использовать. Лучше самодельную сделать из старого пылесоса:
PureBasic
1
2
3
4
Function Round_my(Number)
  Round_my = Number
  If Number > Int(Number) Then Round_my = Int(Number) + 1
End Function
Округляет в большую строну:
Round_my(-1.1) = -1
Round_my(-1) = -1
Round_my(1.333) = 2
Round_my(1.9999) = 2
2
 Аватар для XudaH
13 / 13 / 0
Регистрация: 04.05.2009
Сообщений: 130
14.05.2009, 21:22  [ТС]
Извини Toxa33rus, я что-то тупанул у мну эта задачка уже решена, на компе нашёл >.<
0
1 / 1 / 0
Регистрация: 07.07.2010
Сообщений: 47
07.07.2010, 13:36
Еще есть онлайн калькулятор для расчета обоев http://allcalc.ru/node/316
0
1181 / 632 / 39
Регистрация: 30.05.2010
Сообщений: 715
08.07.2010, 11:14
Здравствуйте господа.
в дополнение к сказанному Toxa33rus - в продолжение "мутности" Round, Int "округляет" всегда до меньшего значения (в отличии от Fix) и потому для округления "вверх" вполне применима подобная конструкция:
Number = Abs(Int(Number * -1))
Евгений.
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
08.07.2010, 22:55
Задача не так проста как кажется с первого взгляда.
Не проблема подсчитать площадь. Даже выкинуть из общей площади окна и двери.
Намного больше оказывается проблем с раскройкой.
А именно соотношения высоты стены с шагом рисунка и с длиной рулона
И если обои без шага - это одно. А если шаг 50 см. А если 60?
А потолки 2.4. А если 2.7? Если 2.7 то уже 4 полоски не получится
0
0 / 0 / 0
Регистрация: 13.05.2014
Сообщений: 7
13.05.2014, 20:26
XudaH, ты можешь эту программу написать...она мне очень нужна
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
13.05.2014, 20:26
Помогаю со студенческими работами здесь

Сколько нужно рулонов обоев для оклейки комнаты длиной m метров, шириной n метров и высотой h метров?
1. Одна задача - одна тема. Тем более что картинку вы не вложили. 2.Сколько нужно рулонов обоев для оклейки комнаты длиной m метров,...

Определить, какое количество рулонов каждого типа потребуется для оклейки комнаты
Здравствуйте. Нужно подправить задачку, вот условие: В распоряжении ремонтной бригады имеются обои шириной q мм. в рулонах длинной по...

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

Подсчитать количество обоев для оклейки комнаты
Есть комната. Длина 1-й стены 6 метров, длина другой 7.5 метров, высота 3.2 метра. Дверь шириной 0.8 метром, а высотой 2 метра....

Определить количество обоев для оклейки комнаты
здрасьте!!!!!!! в школе никогда не было паскаля, ну а в вузе задали задачки. подскажите пожалуйста!!!!!!!!!! =) необходимо для...


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

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru