Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
antonchi
0 / 0 / 0
Регистрация: 03.03.2015
Сообщений: 10
1

Описать тип TDate — запись с полями целого типа Day, Month и Year

22.05.2015, 14:25. Просмотров 973. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста решить задачу. Описать тип TDate - запись с полями целого типа Day ( день), Month (месяц ) и Year (год ) - и функцию
LeapYear (D) логического типа с параметром типа TDate , которая возвращает TRUE, если на дату D является високосным , и FALSE
в противном случае . Также описать функцию DaysInMonth (D) целого типа с параметром типа Tdate , которая возвращает
количество дней месяца , указанного в дате D. Вывести значение функции DaysInMonth для пяти данных дат
(предполагается, что все даты являются правильными ) .Буду очень благодарен.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2015, 14:25
Ответы с готовыми решениями:

Описать тип TDate - запись с полями целого типа Day (день), Month (месяц) и Year (год)
Пожалуйстаю, помогите с задачей! Описать тип TDate - запись с полями целого типа Day (день), Month...

Описать пользовательский тип данных с именем MARSH типа запись
1. Описать пользовательский тип данных с именем MARSH типа запись (RECORD), содержащий следующие...

Описать пользовательский тип данных с именем TRAIN типа запись
Всем, кто помогал мне ранее с задачами - спасибо, особенно пользователю Викдон)) Но появилась...

Описать функции DigitN (K, N) целого типа, возвращающую N-ю цифру целого положительного числа К
Proc30 Описать функци DigitN(K,N) целого типа, возвращающую N-ю цифру целого положительного...

Day (день), Month (месяц) и Year (год)
Подскажите пожалуйста,как задать в задаче операции,чтобы при выводе было видно высокосный это год...

1
CodeR
Фрилансер
3386 / 2787 / 3000
Регистрация: 08.02.2012
Сообщений: 6,974
Записей в блоге: 1
23.05.2015, 08:18 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
47
48
const
  n = 5;
 
type
  TDate = Record
    day: integer;
    month: integer;
    year: integer;
  End;
 
var
  Date: array[1..n] of TDate;
  i: integer;
 
function LeapYear(D: Tdate): boolean;
begin
  LeapYear := (D.year mod 4 = 0) and ((D.year mod 100 <> 0) or (D.year mod 400 = 0));
end;
 
function DaysInMonth(D: Tdate): integer;
var
  k: integer;
begin
  case D.month of
    1, 3, 5, 7, 8, 10, 12: k := 31;
    4, 6, 9, 11: k := 30;
    2: if LeapYear(D) then k := 29 else k := 28;
  End;
  DaysInMonth := k;
end;
 
begin
  for i := 1 to n do
  begin
    writeln(i, '-я дата');
    with Date[i] do
    begin
      write('День: ');
      readln(day);
      write('Месяц: ');
      readln(month);
      write('Год: ');
      readln(year);
    end;
  end;
  for i := 1 to n do
    writeln(DaysInMonth(Date[i]),' дней в ',Date[i].month,' месяце  ');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2015, 08:18

Занести системную дату в переменные day, month, year
У меня есть три переменные: int day; int month; int year; и мне нужно &quot;запихнуть&quot; в них...

Параметры Year, Month и Day описывают непредставимое значение DateTime
Привет всем. Сталкивался с проблемой при определение выходных дней в Dgv выдаёт ошибку:...

Параметры Year, Month и Day описывают непредставимое значение DateTime
Здравствуйте. Делаю выделение дней в monthCalendar при загрузке формы, хочу отметить 2 недели с...


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

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

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