Найти самую позднюю / раннюю дату

@trim74 · Регистрация: 11.06.2010

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

Дан файл с датами.
Найти в файле самую позднюю дату (/а для другого варианта самую раннюю дату (отдельная задача))

@TAVulator · 17.10.2010, 17:22

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

Дан файл с датами.

в каком формате?

@trim74 · 17.10.2010, 19:02 **[ТС]**

TAVulator, текстовый наверно

Добавлено через 1 час 39 минут
TAVulator, так что там, хотя бы через что делать?

@TAVulator · 17.10.2010, 20:43

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

TAVulator, так что там, хотя бы через что делать?

лучше всего не через опу...
я спрашивал про формат дат: ДД.ММ.ГГГГ или ДД-ММ-ГГ или ГГГГ.ММ.ДД или еще как.

я бы сделал просто считыванием по одной записи из файла и сравнением с последующей записью, дабы не париться с массивами, преобразованиями и т.п.

Добавлено через 1 час 6 минут
вот мой вариант решения данной задачи:

Pascal
1
2
3
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
32
33
34
35
var
 F    : Text;
  U   : integer;
   C  : string;
    K : array[1..2,1..3] of Word;
Const
 O_o = 'date.txt';
 oO = '.';
Begin
 assign(F,O_o);
 reset(F);
 Readln(F,C);
 val(copy(C,1,pos(OO,C)-1),K[2,1],U);
 delete(C,1,pos(OO,C));
 val(copy(C,1,pos(OO,C)-1),K[2,2],U);
 delete(C,1,pos(oO,C));
 val(copy(C,1,Length(C)),K[2,3],U);
 while not EOF(F) do
  Begin
   Readln(F,C);
   val(copy(C,1,pos(OO,C)-1),K[1,1],U);
   delete(C,1,pos(Oo,C));
   val(copy(C,1,pos(Oo,C)-1),K[1,2],U);
   delete(C,1,pos(oO,C));
   val(copy(C,1,Length(C)),K[1,3],U);
   if ((K[1,3]=K[2,3]) and (K[1,2]=K[2,2]) and (K[1,1]>K[2,1])) or
      ((K[1,3]=K[2,3]) and (K[1,2]>K[2,2])) or
       (K[1,3]>K[2,3]) then
    For U:=1 to 3 do
     K[2,U]:=K[1,U];
  End;
 Close(F);
 Writeln('Max date: ',K[2,1],OO,K[2,2],OO,K[2,3]);
 readln;
End.

Пример файла date.txt:

Code
1
2
3
4
12.10.1986
23.12.1986
30.10.1986
31.07.1986

Про поиск самой ранней даты сам подумай - нужно чуть подправить вышенаписанный код.

@trim74 · 17.10.2010, 20:46 **[ТС]**

Спасибо TAVulator что постарались
только мы val и delete даже не затрагивали. =))
Все равно огромное спс

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@trim74 0 / 0 / 1 Регистрация: 11.06.2010 Сообщений: 64

	Найти самую позднюю / раннюю дату 17.10.2010, 17:04. Показов 1867. Ответов 4 Метки нет (Все метки) Дан файл с датами. Найти в файле самую позднюю дату (/а для другого варианта самую раннюю дату (отдельная задача)) 0

@trim74 0 / 0 / 1 Регистрация: 11.06.2010 Сообщений: 64
	17.10.2010, 19:02 [ТС]
	TAVulator, текстовый наверно Добавлено через 1 час 39 минут TAVulator, так что там, хотя бы через что делать? 0

@trim74 0 / 0 / 1 Регистрация: 11.06.2010 Сообщений: 64
	17.10.2010, 20:46 [ТС]
	Спасибо TAVulator что постарались только мы val и delete даже не затрагивали. =)) Все равно огромное спс 0