Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 29.11.2015
Сообщений: 8
1

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

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

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

Добавлено через 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 секунды
Я только смог создать файл с записью и вывести на экран
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2015, 17:16
Ответы с готовыми решениями:

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

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

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

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

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2015, 17:16

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.