| ← Январь 2014 → | ||||||
|
1
|
2
|
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
|
||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rfpro.ru/
Открыта:
11-11-2009
Статистика
0 за неделю
RFpro.ru: Алгоритмы и теория программирования
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Алгоритмы и теория программирования
Консультация # 176691: Здравствуйте! Вопрос в следующем: есть два диапозона времени суток, нужно найти промежуток когда оба диапозона протекают параллельно. Например, - первый диапозон с 18:00 до 09:00 (длительность 15 часов) - второй диапозон с 22:00 до 10:00 (длительность 12 часов) Параллельно протекает 11 часов, с 22:00 до 09:00 ....... Консультация # 29444: Здравствуйте. Приведите, пожалуйста, словесный (общий) алгоритм построения бинарного дерева. Построения из набора чисел и если можно, то максимально подробно. Заранее спасибо. .. Консультация # 36683: здравствуйте не скажете ли вы с помошью какой программы создаются игры для пк я не имею в ввиду крутые заранее спасибо ... Здравствуйте! Вопрос в следующем: есть два диапозона времени суток, нужно найти промежуток когда оба диапозона протекают параллельно.
Дата отправки: 14.02.2010, 19:18 Консультирует vladisslav: Здравствуйте, Дадаев Заур Мусаевич. Код : $ make t1 cc t1.c -o t1 $ ./t1 11:00 Приложение:
Консультирует Megaloman (Академик): Здравствуйте, Дадаев Заур Мусаевич. Идея решения: Код : Sub ttt()
Dim Int1(1), Int2(1), Int3(1), Dlina(2)
Int1(0) = "10:36" ' Начало первого интервала
Int1(1) = "05:28" ' Конец первого интервала
Int2(0) = "16:45" ' Начало второго интервала
Int2(1) = "08:57" ' Конец второго интервала
Rezult = Interval(Int1, Int2, Int3, Dlina)
' Вывод исходных данных и результатов
Mess = "Интервал_1= " + Int1(0) + " " + Int1(1) + " Длина= " + Dlina(0) + vbCrLf + "Интервал_2= " + Int2(0) + " " + Int2(1) + " Длина= " + Dlina(1) + vbCrLf + vbCrLf
If Rezult Then
Mess = Mess + "Общий_отрезок= " + Int3(0) + " " + Int3(1) + vbCrLf + "Длина = " + Dlina(2)
Else
Mess = Mess + "Общего отрезка нет"
End If
MsgBox Mess
End Sub
Function Interval(I1, I2, I3, D)
' На входе:
' I1 - массив с началом и концом первого временнОго интервала (в символьном виде ЧЧ:ММ)
' I2 - массив с началом и концом второго временнОго интервала (в символьном виде ЧЧ:ММ)
' Функция возвращает:
' True, если временнЫе интервалы имеют перекрывающуюся область
' I3 - массив начала и конца совместного временнОго интервала (в символьном виде ЧЧ:ММ)
' D - длины исходных и совместного интервалов (в символьном виде ЧЧ:ММ)
' Преобразуем строковое представление времени в десятичные переменые
b1 = Val(Replace(I1(0), ":", "."))
e1 = Val(Replace(I1(1), ":", "."))
b2 = Val(Replace(I2(0), ":", "."))
e2 = Val(Replace(I2(1), ":", "."))
' Находим нижнюю границу общего временного диапазона как максимум нижней границы двух диапазонов
' Начало диапазонов начинается в одних календарных сутках
b3 = b1
If b2 > b1 Then b3 = b2
' Находим верхнюю границу общего временного диапазона
If e1 < b1 Then e1 = e1 + 24 ' Если конец интервала в других сутках, добавляю 24 (часа)
If e2 < b2 Then e2 = e2 + 24 ' Если конец интервала в других сутках, добавляю 24 (часа)
' Находим верхнюю границу общего временного диапазона как минимум вкрхних границ двух диапазоноа
e3 = e1
If e2 < e1 Then e3 = e2
Interval = (e3 >= b3) ' =true, если имеет место наличие общего интервала (конец интервала > его начала)
I3(0) = StringTime(b3) ' Преобразуем значения к строковому типу
I3(1) = IIf(e3 >= 24, StringTime(e3 - 24), StringTime(e3))
' Рассчитаем длины интервалов и представим их в символьном виде
D(0) = StringInt(b1, e1)
D(1) = StringInt(b2, e2)
D(2) = "00:00" ' Посчитаем длину совместного интервала
If Interval Then D(2) = StringInt(b3, e3)
End Function
Function StringTime(nn)
' Преобразует время nn, записанное в виде десятичной дроби, в строку ss вида "ЧЧ:ММ"
j = Int(nn)
StringTime = IIf(j < 10, "0" + CStr(j), CStr(j)) + ":"
j = Round((nn - j) * 100, 0)
StringTime = StringTime + IIf(j < 10, "0" + CStr(j), CStr(j))
End Function
Function StringInt(n1, n2)
' Возвращает длину временнОго интервала в виде десятичной дроби, время начала и конца которого записано в виде десятичной дроби
i = n2 - n1
If n2 - Int(n2) < n1 - Int(n1) Then i = i - 0.4
StringInt = StringTime(i)
End FunctionГотовый пример в xls-файле здесь Interval.xls (30.0 кб).
Здравствуйте.
Дата отправки: 13.11.2005, 00:36 Консультирует Schmak (Практикант): Здравствуйте, Martin!
Консультирует Lector: Здравствуйте, Martin!
здравствуйте не скажете ли вы с помошью какой программы создаются игры для пк я не имею в ввиду крутые заранее спасибо
Дата отправки: 03.03.2006, 21:47 Консультирует romodos: Здравствуйте, Simon simon simon!
Консультирует Gluck3D: Здравствуйте, Simon simon simon!
Консультирует AlexanderZh: Здравствуйте, Simon simon simon!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Версия системы: 2011.6.36 от 26.01.2012 |
| В избранное | ||
