Ввести несколько записей вида ЧЧ:ММ и отсортировать их по возрастанию

@Vardersaar · Регистрация: 15.12.2014

Author24 — интернет-сервис помощи студентам

помогите пожалуйста
Нужно создать программу которую вводишь время формате 24 часа с минутами, несколько , и потом отсортировать их по возрастанию. Заранее спасибО!_

Kodzaev · 15.12.2014, 22:23

Так пойдет?

Pascal

const
  n = 3;  {Количество записей. Можно изменить}
 
type
  time = record
    h, m, mm: integer
  end;
 
var
  x: array [1..n] of time;
  i, j: integer;
  tmp: time;
 
begin
  for i := 1 to n do
  begin
    WriteLn(i, ' элемент:');
    repeat
      Write('ЧЧ (0-23): '); ReadLn(x[i].h)
    until x[i].h in [0..23];
    repeat
      Write('ММ (0-59): '); ReadLn(x[i].m)
    until x[i].m in [0..59];
    x[i].mm := x[i].h * 60 + x[i].m
  end;
  WriteLn('Сортировка:');
  for i := 1 to n - 1 do
  begin
    for j := i + 1 to n do
      if x[i].mm > x[j].mm then
      begin
        tmp := x[i];
        x[i] := x[j];
        x[j] := tmp
      end
  end;
  for i := 1 to n do
    WriteLn(x[i].h, ':', x[i].m);
  ReadLn
end.

@Vardersaar · 21.12.2014, 21:57 **[ТС]**

Да, спасибо, выручил)

@Vardersaar 0 / 0 / 0 Регистрация: 15.12.2014 Сообщений: 2
		1
	Ввести несколько записей вида ЧЧ:ММ и отсортировать их по возрастанию 15.12.2014, 21:56. Показов 1103. Ответов 2 Метки нет (Все метки) помогите пожалуйста Нужно создать программу которую вводишь время формате 24 часа с минутами, несколько , и потом отсортировать их по возрастанию. Заранее спасибО!_ 0

@Vardersaar 0 / 0 / 0 Регистрация: 15.12.2014 Сообщений: 2
	21.12.2014, 21:57 [ТС]	3
	Да, спасибо, выручил) 0

Ввести несколько записей вида ЧЧ:ММ и отсортировать их по возрастанию

Решение