Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/25: Рейтинг темы: голосов - 25, средняя оценка - 4.60
 Аватар для Лера Чай
0 / 0 / 1
Регистрация: 25.03.2012
Сообщений: 71

Поместятся ли две одинаковые книги в кейс размерами X< Y <Z?

17.04.2012, 21:09. Показов 5421. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Поместятся ли две одинаковые книги в кейс размерами X< Y <Z? ( Размеры книги задавать в порядке возрастания.)
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
17.04.2012, 21:09
Ответы с готовыми решениями:

Две одинаковые строки не распознаются, как одинаковые. Такое возможно? Скриншот дебага прилагается.
Пишу программу, начал тестировать, проходить всё пошагово (пишущийся в данный момент функционал). В одном месте в коде сравниваю тексты. ...

Как добавить картинки с разными размерами в Corel Draw x5 , чтобы все были одинаковые?
Всем привет! Проблема такая , есть несколько картинок с разными размерами и разрешениями , а мне они нужны все в одиноковой длине и...

Изобразить две трехмерные (3D) буквы, с линейными размерами, задаваемыми с клавиатуры
1) С помощью элементов системы Турбо-Паскаль разработать программу, изображающую в окне вывода две трехмерные (3D) буквы, представляющие...

8
 Аватар для 3a9Ic
141 / 129 / 113
Регистрация: 08.04.2012
Сообщений: 245
17.04.2012, 22:06
Если честно, не понимаю, не условия, не решения. Но, попробовал, что-нибудь подогнать.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses CRT;
Const height=5;
      width=7;
      len=10;
      n=3;
var a,b,c:array[1..n] of real;
    i:integer;
begin
     ClrScr;
     writeln('Êåéñ: Âûñîòà=',height,' Øèðèíà=',width,' Äëèíà=',len);
     writeln('Ïåðâàÿ êíèãà (Âûñîòà õ Øèðèíà õ Äëèíà):');
     for i:=1 to n do read(a[i]);
     writeln('Âòîðàÿ êíèãà (Âûñîòà õ Øèðèíà õ Äëèíà):');
     for i:=1 to n do readln(b[i]);
     if (a[1]<=height) and (a[2]<=width) and (a[3]<=len) then writeln('Ïåðâàÿ êíèãà ïîìåñòåòñÿ â êåéñ')
     else writeln('Ïåðâàÿ êíèãà íå ïîìåñòåòñÿ');
     if (b[1]<=height) and (b[2]<=width) and (b[3]<=len) then writeln('Âòîðàÿ êíèãà ïîìåñòåòñÿ â êåéñ')
     else writeln('Âòîðàÿ êíèãà íå ïîìåñòåòñÿ');
     for i:=1 to n do c[i]:=a[i]+b[i];
     if (c[1]<=height) and (c[2]<=width) and (c[3]<=len) then writeln('Âñå êíèãè ïîìåñòÿòñÿ â êåéñ')
     else writeln('Êíèãè ïîìåñòÿòñÿ òîëüêî ïî îäíîé');
end.
1
 Аватар для Лера Чай
0 / 0 / 1
Регистрация: 25.03.2012
Сообщений: 71
17.04.2012, 22:16  [ТС]
получается вы изначально задали постоянные к размерам кейса, и дальше уже по условию проверили подходят ли размеры книг?
0
 Аватар для 3a9Ic
141 / 129 / 113
Регистрация: 08.04.2012
Сообщений: 245
17.04.2012, 22:19
Что-то типа того. По условию не было оговорено, что кейсы все время новые.) Но, если что, поменяете константы...) Просто, задание описано как-то тяжело, для понимания. Только с помощью листочка и карандаша, понял, кого, куда пихать.)
1
 Аватар для Лера Чай
0 / 0 / 1
Регистрация: 25.03.2012
Сообщений: 71
17.04.2012, 22:21  [ТС]
спасибо вам большое, очень помогли
0
 Аватар для 3a9Ic
141 / 129 / 113
Регистрация: 08.04.2012
Сообщений: 245
17.04.2012, 22:24
Пытался понять вторую, Вами предложенную задачу, про "кирпич", пока понять не в состояние..) Так как, там, по-видимому, и кирпич имеет разные размеры (что для него не характерно) и отверстие.
1
 Аватар для Лера Чай
0 / 0 / 1
Регистрация: 25.03.2012
Сообщений: 71
17.04.2012, 22:30  [ТС]
я у преподавателя еще поинтересуюсь как так кирпич кривой. ну или уже если сама какк то додумаюсь завтра напишу.

Добавлено через 3 минуты
а можно еще поинтересоваться не знаете ли вы программку которая будет делать блок схемы?
0
 Аватар для 3a9Ic
141 / 129 / 113
Регистрация: 08.04.2012
Сообщений: 245
18.04.2012, 08:22
Даже самому было интересно, немного покопался в интернете, нашел разные варианты, некоторые у меня просто не пошли (возможно, из-за Win7). Но, одна вроде работает, особо не тестил, но все красивенько и вроде, даже правильно.
Вложения
Тип файла: rar avtoshema.rar (519.2 Кб, 87 просмотров)
1
 Аватар для Лера Чай
0 / 0 / 1
Регистрация: 25.03.2012
Сообщений: 71
18.04.2012, 17:13  [ТС]
щас скачала её, хорошая вроде как, есть конечно недоработки кое какие но так пойдет. в конце концов надо же что то самой уже делать.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.04.2012, 17:13
Помогаю со студенческими работами здесь

Можно ли из круглой заготовки радиуса r вырезать две прямоугольные пластинки с размерами а*б и с*д?
Можно ли из круглой заготовки радиуса r вырезать две прямоугольные пластинки с размерами а*б и с*д?

Можно ли из круглой заготовки радиуса r вырезать две прямоугольные пластинки с размерами a*b и c*d
можно ли из круглой заготовки радиуса r вырезать две прямоугольные пластинки с размерами a*b и c*d

Можно ли из круглой заготовки радиуса r вырезать две прямоугольные пластинки с размерами a x b и c x d
Можно ли из круглой заготовки радиуса r вырезать две прямоугольные пластинки с размерами a x b и c x d https://**********/a/rw2BOng ...

Найти четырехзначные числа, у которых две первые и две последние цифры составляют одинаковые числа
Помогите решить задачу-среди четырехзначных чисел вывести на экран все те у которых две первые и две последние цифры составляют одинаковые...

Можно ли из круглой заготовки радиусом R вырезать две прямоугольные пластины с размерами axb cxd
Задача жестянщика. Можно ли из круглой заготовки радиусом R вырезать две прямоугольные пластины с размерами axb cxd. void prog() { ...


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

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru