主页 / 问题 / 1539446
Accepted
Acinit
Asked:2023-09-07 13:35:36 +0000 UTC2023-09-07 13:35:36 +0000 UTC

如何从一组时间中找到平均时间？

  • 772

有一个字符串数组，其中包含时间的字符串表示形式。

var
  TimeArray: array [0..4] of string; // Массив из пяти элементов
begin
  TimeArray[0] := '08:00:00';
  TimeArray[1] := '12:30:45';
  TimeArray[2] := '15:15:30';
  TimeArray[3] := '18:45:20';
  TimeArray[4] := '22:10:55';
end;

如何从给定数组中找到平均时间？

массивы

2 个回答

  1. Best Answer

    正如沙里科夫所说——“拿走一切并分割它”

    转换为TDateTime使用StrToTime，添加时间并除以它们的数量，然后返回TimeToStr（或其他格式化函数）。它有效是因为- 与我在这里使用的TDateTime相同：DoubleMath.Mean

    var
  TimeArray: array [0..4] of string; // Массив из пяти элементов
  Times: array [0..4] of Double; // Массив из пяти элементов
  i: Integer;
  MeanTime: TDateTime;
begin
  TimeArray[0] := '08:00:00';
  TimeArray[1] := '12:30:45';
  TimeArray[2] := '15:15:30';
  TimeArray[3] := '18:45:20';
  TimeArray[4] := '22:10:55';
  for i := 0 to 4 do
    Times[i] := StrToTime(TimeArray[i]);
  MeanTime := Mean(Times);
  Caption := TimeToStr(MeanTime);
    • 2

  2. 有一个笨拙的选项，将所有内容转换为秒，然后通过DecodeTime，后面跟着一个 div 来表示元素的数量。

    var
  TimeArray: array [0..4] of string;
  TotalSeconds, AverageSeconds: Integer;
  Hours, Minutes, Seconds, MiliSeconds: word;
  i: Integer;
begin
  // Заполняем массив временами
  TimeArray[0] := '08:00:00';
  TimeArray[1] := '12:30:45';
  TimeArray[2] := '15:15:30';
  TimeArray[3] := '18:45:20';
  TimeArray[4] := '22:10:55';

  // Инициализируем счетчики
  TotalSeconds := 0;

  // Проходим по массиву и суммируем все времена в секундах
  for i := 0 to 4 do
  begin
    // Преобразуем время из строкового формата в числовой
    DecodeTime(StrToTime(TimeArray[i]), Hours, Minutes, Seconds ,MiliSeconds);
    
    // Переводим все в секунды и суммируем
    TotalSeconds := TotalSeconds + (Hours * 3600) + (Minutes * 60) + Seconds;
  end;

  // Находим среднее время в секундах
  AverageSeconds := TotalSeconds div 5; // 5 - количество элементов в массиве

  // Теперь нужно преобразовать AverageSeconds обратно в формат чч:мм:сс
  Hours := AverageSeconds div 3600;
  Minutes := (AverageSeconds mod 3600) div 60;
  Seconds := (AverageSeconds mod 3600) mod 60;

  // Выводим среднее время
  ShowMessage(Format('%2.2d:%2.2d:%2.2d', [Hours, Minutes, Seconds]));
end;
    • 0

相关问题