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

Описать тип TDate — запись с полями День, Месяц и Год — и функцию LeapYear(D), которая возвращает True, если год в дате D является високосным

18.06.2013, 11:46. Просмотров 1516. Ответов 6
Метки нет (Все метки)

Решите плиз
Param59 Описать тип TDate — запись с полями целого типа Day (день), Month (месяц) и Year (год) — и функцию LeapYear(D) логического типа с параметром типа TDate, которая возвращает True, если год в дате D является високосным, и False в противном случае. Вывести значение функции LeapYear для пяти данных дат (предполагается, что все даты являются правильными). Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.06.2013, 11:46
Ответы с готовыми решениями:

Переменной Т присвоить значение true если сочетание день, месяц, год образует правильную дату
помогите пожалйста Составить программу, которая бы реалтзовала следующий алгоритм: переменной Т...

По введенной дате (число, месяц и год) определить день недели
1. По введенной дате (число, месяц и год) определить день недели. Основную часть программ...

Описать функцию логического типа, которая возвращает True, если год является високосным
13) Описать функцию IsLeapYear(Y) логического типа, которая возвращает True, если год Y (целое...

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

6
219 / 217 / 218
Регистрация: 03.07.2012
Сообщений: 458
18.06.2013, 16:19 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
program p59;
uses
  crt;
type
  TDate = record
  Day, Month, Year : Word
  end;
var
  Data : array[1..5] of TDate;
  i : 1..5;
function LeapYear(D:TDate) : boolean;
begin
  LeapYear := ((D.Year mod 4) = 0);
  if ((D.Year mod 100 = 0) and (D.Year mod 400 <> 0)) then
  LeapYear := False;
end;
begin
  clrscr;
  for i := 1 to 5 do
  with Data[i] do
    begin
      writeln('Введите ',i,'-ую дату.');
      repeat
      write('День : ');
      readln(Day);
      until Day in [1..31];
      repeat
      write('Месяц : ');
      readln(Month);
      until Month in [1..12];
      write('Год : ');
      readln(Year);
    end;
  for i := 1 to 5 do
    writeln('Год високосный в ',i,'-ой дате : ',LeapYear(Data[i]));
  readln;
end.
1
0 / 0 / 0
Регистрация: 09.04.2013
Сообщений: 17
18.06.2013, 16:22  [ТС] 3
строка 26. until Day in [1..31]; ошибка: Операция in неприменима к типам word и set of byte
0
3016 / 1904 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
18.06.2013, 16:44 4
Ну так замените в 6 строке Word на Integer
1
0 / 0 / 0
Регистрация: 09.04.2013
Сообщений: 17
18.06.2013, 16:55  [ТС] 5
Спасибо вам!

Добавлено через 8 минут
Решите плиз...Дано список из трех элементов содержащие символы. Ввести значения элементов содержащих цифр.
0
3016 / 1904 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
18.06.2013, 17:07 6
Baktybek, сначала прочитайте Правила форума, в частности, пункты 4.4 и 5.16
0
0 / 0 / 0
Регистрация: 25.04.2014
Сообщений: 4
25.04.2014, 13:46 7
А кто-то может написать єтот код на С++ пожалуйста
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.04.2014, 13:46

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Описать функцию IsLeapYear(Y) логического типа, которая возвращает True, если год являеятся високосным, и False в противном случае
Описать функцию IsLeapYear(Y) логического типа, которая возвращает True, если год Y (целое...

Переменная isSpecial возвращает значение истина, если: Введенный год, является високосным
Переменная isSpecial возвращает значение истина, если: Введенный год, является високосным

Переменной Т присвоить значение true если сочетание D(день) M(месяц) G(год) образует правильную дату
Помогите плиз решить задачу ну или хотябы натолкните на мысль))) Задача : Составить программу,...

По введённой дате определить является ли год високосным
По введённой дате определить является ли год високосным


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

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

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