Модули. Многофайловые проекты .

[Zalik]

Определить функцию, возвращающую количество минут до окончания суток.
Выполнить перегрузку функции для следующих типов параметров:
1.Структура «время» (часы, минуты, секунды).
2.Три целочисленных параметра: часы, минуты, секунды.
3.Два целочисленных параметра: часы, минуты.
Помогите пожалуйста.......

Прошу помощи. Если можно с комментариями....

[Stilet]

Модуль:

unit Unit1;

interface
//Описание функций
  function kmdos(hour,min,sec:integer):integer; overload;
  function kmdos(hour,min:integer):integer; overload;
implementation

// Реализация их вариаций Читай про overload в книгах
  function kmdos(hour,min,sec:integer):integer; overload;
  begin
  // х.з. че это... Не знаю как правильно формула должна выглядеть
  // Для твоей задачи, но как пример
   Result:=hour*24+min*60+sec*3600;
  end;

  function kmdos(hour,min:integer):integer; overload;
  begin
   // Аналогичное х.з.
   Result:=hour*24+min*60;
  end;

end.

Программа:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Unit1 in 'Unit1.pas';

begin
 writeln(kmdos(1,2,3));
 writeln(kmdos(1,2));
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Язык - Делфи, почти паскаль.

[phomm]

Надо ещё в главной программе для варианта "от текущего момента" вызывать функцию timeof(now) значение которой надо передавать функции (1), которую Stilet не описал :

function kmdos(time: tdatetime):integer; overload;
begin
result := hourof (time)*60+minuteof(time); // ну и то как ты будешь отсчитывать до окончания дня, ведь хоть что-то ты должен сам сделать
end;

комментарии Stilet улыбнули, насколько они раскрывают суть :D

Сообщение от Zalik

Если можно с комментариями....

ах, да, не знаю что есть "структура время", мб Вам надо собственный record, ну я поэтому и сделал стандартный tdatetime , и если Паскаль, то сами преобразовывайте, паскаля под рукой нет )) только дельфи

[Zalik]

Спасибо друзья!!!!!!!!