Файл: Определить разницу в годах, месяцах и днях между самыми близкими друг к другу датами.

05.12.2015, 17:16. Показов 2022. Ответов 0

Метки записи pascal, файл записей (Все метки)

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

Помогите пожалуйста со второй частью задачи. Дан файл, содержащий различные даты. Каждая дата — это число, месяц и год. Определить разницу в годах, месяцах и днях между самыми близкими друг к другу датами.

Добавлено через 1 минуту

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
36
37
38
39
40
41
42
43
44
45
46
type
Date = record
ch: 1..31;
    m: 1..12;
    g: integer;
    
end;
mas=array[1..100] of Date;
fd= file of Date; 
 
procedure inpout_f(var f: fd;var a:mas);
var 
  i, n: byte;
begin
write('Введите кол-во дат: ');readln(n);
rewrite(f);
for i := 1 to n do
with a[i] do
  begin
write('Число ' , i, '-ой даты: ');
    readln(ch);
write('Месяц ' , i, '-ой даты: ');
    readln(m);
write('Год ' , i, '-ой даты: ');
    readln(g);
    write(f, a[i]);
end;
begin 
writeln('Даты:');
for i := 1 to n do
writeln(a[i].ch ,'.' ,a[i].m , '.' , a[i].g);
end;
  close(f);
end;
var
f: fd;
  s: string[20];
 a:mas;
 
begin
write('Имя файла? ');readln(s);
  assign(f, s);
  inpout_f(f,a);
 
  
end.

Добавлено через 3 минуты
Нужно написать процедуру, плиз помогите

Добавлено через 53 секунды
Я только смог создать файл с записью и вывести на экран

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

05.12.2015, 17:16

Ответы с готовыми решениями:

Определить разницу в месяцах и днях между самой ранней и самой поздней датами, относящимися к заданному году
Решить задачу с использованием структуры «бинарный файл» (в файле хранятся величины типа «структура» - struct). Определить разницу в...

Разница между датами в годах и месяцах
Здравствуйте, уважаемые форумчане, возникла проблема с разницей дат, добился только получения разницы в днях, как получить год и месяц? ...

Определить разницу в днях между двумя датами
Как избавится от отрицательных чисел в ответе??? import java.util.Calendar; import java.util.Date; import java.util.Formatter; ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

05.12.2015, 17:16

Помогаю со студенческими работами здесь

Кол-во дней между датами в двух ячейках, в месяцах и днях
Есть две даты, например 12-Янв-2005 и 25-Июн-2005. Подскажите можно ли составить формулу, чтобы в первой ячейке показывало сколько...

Определить, сколько дней осталось до экзамена, до защиты диплома (в днях, годах, месяцах, часах, минутах)
Определить, сколько дней осталось до экзамена, до защиты диплома (в днях, годах, месяцах, часах, минутах)

Узнать разницу между двумя датами в месяцах
Привет! Работаю с переменными типа TDateTime: InputDate, StartDate. Хочу узнать разницу в месяцах между InputDate, StartDate. Знаю,...

Найти разницу между датами в годах
Задание Написать программу с участием типа DateTime, TimeSpan. Ввести 2 даты Найти разницу между ними в годах :wall: Очень нужна...

Посчитать разницу в годах между двумя датами
Встроенный DATEDIFF работает лениво и на SELECT DATEDIFF(year,'21.11.2011','20.11.2012') ответит 1 так как ему лень считать разницу в...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .

Наверх