Вопрос # 6 526

Вопрос задал: zvygin1964 (статус: Посетитель)
Вопрос отправлен: 20 марта 2014, 18:09
Состояние вопроса: решён, ответов: 0.

min@y™ (статус: Доктор наук), 20 марта 2014, 18:16 [#1]:

Цитата (zvygin1964):

zvygin1964 (статус: Посетитель), 21 марта 2014, 23:25 [#2]:

min@y™ (статус: Доктор наук), 22 марта 2014, 02:11 [#3]:

Цитата (zvygin1964):

Толяныч (статус: 4-ый класс), 22 марта 2014, 10:20 [#4]:

zvygin1964 (статус: Посетитель), 22 марта 2014, 11:09 [#5]:

Толяныч (статус: 4-ый класс), 22 марта 2014, 16:26 [#6]:

min@y™ (статус: Доктор наук), 22 марта 2014, 16:50 [#7]:

Цитата (zvygin1964):

Цитата (zvygin1964):

Цитата (zvygin1964):

Цитата (zvygin1964):

Цитата (zvygin1964):

Цитата (zvygin1964):

Цитата (zvygin1964):

Цитата (Толяныч):

zvygin1964 (статус: Посетитель), 23 марта 2014, 21:24 [#8]:

Толяныч (статус: 4-ый класс), 23 марта 2014, 21:48 [#9]:

zvygin1964 (статус: Посетитель), 23 марта 2014, 22:04 [#10]:

min@y™ (статус: Доктор наук), 24 марта 2014, 03:20 [#11]:

Цитата (zvygin1964):

Цитата (zvygin1964):

Цитата (zvygin1964):

Цитата (zvygin1964):

for Index:= AFrom to {или downto} ATo do { тело цикла } ; // <--- точка с запятой

if c[i] > 24 then ...

Цитата (zvygin1964):

min@y™ (статус: Доктор наук), 24 марта 2014, 04:25 [#12]:

• час в текущих сутках - число в диапазоне [0..23];
  
• заполнить массив из 24 часов, начиная с текущего часа - (если, к примеру, сейчас время 14:32, то массив должен получиться такой: "14, 15, ..., 23, 0, 1, ..., 13").
  

const
  HrCount = 24;
var
  c24: array[0..HrCount - 1] of Byte;
  Index: Integer;
begin
  c24[0]:= Trunc(24 * Frac(Now())); // начальный элемент массива = [0...23]
 
  // цикл, 23 итерации
  for Index:= 1 to HrCount - 1 do
    begin
      c24[Index]:= c24[Index - 1] + 1;
 
      // ветвление
      if c24[Index] > 23
        then Dec(c24[Index], 24); // эта строка выполнится не более 1 раза
    end;
 
  // здесь имеем полностью заполненный массив, который можно вывести,
  // посмотреть, обработать и т.д.
end;

function TimeSpan(const AFrom, ATo: TDateTime): TTime;
var
  F, T: TTime;
begin
  F:= Frac(AFrom); 
  T:= Frac(ATo);   
 
  if T >= F
    then Result:= Frac(T - F)
    else Result:= Frac(1 - (F - T));
end;

zvygin1964 (статус: Посетитель), 25 марта 2014, 23:43 [#13]:

procedure TForm1.Button1Click(Sender: TObject);
 var
  c24: array[0..HrCount - 1] of Byte;//Определил статический массив, 1 измерения в диапазоне Byte (0..255)
  Index: Integer; //индексы массива являются целыми числами, размер которых не гарантируется (до Int64)
 begin
 c24[0]:= Trunc(24 * Frac(Now())); { начальный элемент массива = [0...23] {Функция Frac возвращает дробную часть числа с
плавающей запятой от функции Now (Возвращает текущие дату и время в формате TDateTime.(Тип TDateTime - это обычный тип
double. Целая часть этого числа - это номер дня от какой-то фиксированной даты в прошлом, дробная часть - это часть от
текущих суток - из нее и вычисляется время. Соответственно Now содержит обе этих части))
  Функция Trunc возвращает целочисленную часть числа с плавающей запятой.
 Ну, где-так: c24[0]:=12=Trunc(24*0,5)=Trunc(24*Frac(24,5))}
   // цикл, 23 итерации
  for Index:= 1 to HrCount - 1 do {счетчик := начальное_значение равно 1, до конечного значения равного  HrCount-1=23}}
    begin       {действие при каждом увеличении счетчика}
      c24[Index]:= c24[Index - 1] + 1; {присваиваю элементу с очередным индексом значение предыдущего элемента
увеличенного на 1 час}
      { ветвление и тут же проверяю соответствует ли он человеческому часу (от 0 до 24)}
      if c24[Index] > 23          //если элемент больше 23-го часа
        then Dec(c24[Index], 24); {то выполним процедуру  Dec (из System unit), которая уменьшает переданный ей как
параметр порядковую переменную}
        {procedure Dec ( var Variable : Ordinal variable; Count : Integer ) ;
 в данном случае произойдет уменьшение элемента массива на Count:=24.}
{Поскольку дальнейшее вычисление будет производиться от этой декриментированной порядковой переменной, то эта строка
выполнится не более 1 раза}
    end;
    {else , begin, end;   тут не понадобились, потому, что иначе выполняется действие} 
 
c24[Index]:= c24[Index - 1] + 1; //до элемента массива  с номером HrCount - 1
    Label1.Caption:=FloatToStr(c24[23])+'    '+FloatToStr(c24[22])+'    
 
'+FloatToStr(c24[21])+'    '+FloatToStr(c24[20])+'    '+FloatToStr(c24[19])+'    
 
'+FloatToStr(c24[18])+'    '+FloatToStr(c24[17])+'    '+FloatToStr(c24[16])+'    
 
'+FloatToStr(c24[15])+'    '+FloatToStr(c24[14])+'    '+FloatToStr(c24[13])+'    
 
'+FloatToStr(c24[12])+'    '+FloatToStr(c24[11])+'    '+FloatToStr(c24[10])+'    
 
'+FloatToStr(c24[9])+'    '+FloatToStr(c24[8])+'    '+FloatToStr(c24[7])+'    
 
'+FloatToStr(c24[6])+'    '+FloatToStr(c24[5])+'    '+FloatToStr(c24[4])+'    
 
'+FloatToStr(c24[3])+'    '+FloatToStr(c24[2])+'    '+FloatToStr(c24[1])+'    
 
'+FloatToStr(c24[0]);
   end;
end.

zvygin1964 (статус: Посетитель), 25 марта 2014, 23:46 [#14]:

function TimeSpan(const AFrom, ATo: TDateTime): TTime;{подпрограмма, участвующая в выражении как операнд. Состоит из
зарезервированного слова function, имени функции -TimeSpan,необязательные заключенные в круглые скобки формальные
параметры (постоянные числа AFrom и ATo типа TDateTime  как переменная Double, с датой как целая часть, а время как
дробная. Дата сохраняется как число дней с 30 декабря 1899.; тип возвращаемого функцией значения TTime "23:59:59", то
есть "HH:MM:SS"- часы, минуты, секунды через двуеточие.}
var
  F, T: TTime;{эти переменные имеют значения в виде значения как "23:59:59"}
begin
  F:= Frac(AFrom);//Frac возвращает дробную часть постоянного числа AFrom, то есть время
  T:= Frac(ATo);  //Frac возвращает дробную часть постоянного числа ATo, то есть время
 
  if T >= F    //если время T больше или равно  F
    then Result:= Frac(T - F) //то получим текущее время
    else Result:= Frac(1 - (F - T));{иначе сколько времени осталось до полуночи}
end;

zvygin1964 (статус: Посетитель), 25 марта 2014, 23:49 [#15]:

procedure TForm1.Button1Click(Sender: TObject);
  var
   S: string;     //часы реального времени, например 15, можно выводить в Memo
   Chas: Integer; //часы реального времени, например 15.Для вычислений.
   i:Integer;    {номера элементов массива написания часа}
   begin
  S:= FormatDateTime( 'h', Now); //функция реального времени в часах MSK (GMT+4)
  Chas:= StrToInt(S);////часы реального времени (например 15 часов).Для вычислений.
  c[0]:= Chas ;//подготавливаю значение элемента начала массива времени в часовых поясах
   for i:=0 to n do c[i+1]:=c[i]+1; {заполняю массив расчетными часами в размерности от 0 до 24+24 часов, но это не
правильно, поэтому:}
     for i:=0 to n do //Проверяю входят ли часы в человеческий диапазон 0-24 часа и исправляю ошибку:
   if c[i]>24 then    {если часов больше 24, то это ошибка, и ее устраняем}
    begin
    c24[i]:=c[i]-24;//посчитал и записал в другой массив
    end
   else
   begin
   c24[i]:=c[i];    //иначе ничего не делать не надо. Значение правильное в диапазоне 0-24часа
   end ;
 end;
end.

min@y™ (статус: Доктор наук), 26 марта 2014, 02:31 [#16]:

Цитата (zvygin1964):

Цитата (zvygin1964):

Цитата (zvygin1964):

min@y™ (статус: Доктор наук), 26 марта 2014, 02:49 [#17]:

Label1.Caption:=FloatToStr(c24[23])+'    '+FloatToStr(c24[22])+ ...

Цитата (zvygin1964):

Цитата (zvygin1964):

var
  F, T: TTime;{эти переменные имеют значения в виде значения как "23:59:59"}

  if T >= F    //если время T больше или равно  F
    then Result:= Frac(T - F) //то получим текущее время
    else Result:= Frac(1 - (F - T));{иначе сколько времени осталось до полуночи}

zvygin1964 (статус: Посетитель), 13 апреля 2014, 09:56 [#18]:

zvygin1964 (статус: Посетитель), 17 мая 2014, 12:03 [#19]: