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

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

29.11.2010, 18:41. Просмотров 3030. Ответов 1
Метки нет (Все метки)

Описать функцию IsLeapYear(Y) логического типа, которая возвращает True, если год Y (целое положительное число) являеятся високосным,и False в противном случае. Вывести значение функции IsLeapYear для пяти данных значений параметра Y. Високосным считается год, делящиийся на 4,за исключением тех годов, которые делятсяна 100 и не делятся на 400.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2010, 18:41
Ответы с готовыми решениями:

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

Как описать функцию Even(K) логического типа, возвращающую TRUE, если целый параметр K является четным, и FALSE в противном случае
Помогите пожалуйста решить задачу, очень срочно надо. Proc24. Описать функцию Even(K) логического...

Создать функцию Chet(k) логического типа,возвращающую True , если целый параметр К является чётным и False в противном случае
Создать функцию Chet(k) логического типа,возвращающую True , если целый параметр К является чётным...

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

1
Модератор
62248 / 46533 / 32080
Регистрация: 18.05.2008
Сообщений: 112,494
29.11.2010, 21:54 2
Лучший ответ Сообщение было отмечено Toshi как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
function IsLeapYear(y:word):boolean;
begin
IsLeapYear:=((y mod 100<>0)and(y mod 4=0))or(y mod 400=0);
end;
var i:byte;
    y:word;
begin
writeln('Введите 5 значений года для проверки на високоность:');
for i:=1 to 5 do
 begin
  write('Год=');
  read(y);
  writeln(IsLeapYear(y));
 end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.11.2010, 21:54

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

Написать функцию которая возвращает значение true, если целое число n является чётным в противном случае false
Ребят напишите функцию в паскале...

Разработать функцию, которая возвращает True, если полученные значения могут быть сторонами треугольника, False – в противном случае
Разработайте функцию, которая получает три вещественных параметра, возвращает в качестве своего...

Описать функцию IsSquare (K) логического типа, возвращает True, если целый параметр K (> 0) является квадратом некоторого целого числа, и False в прот
Описать функцию IsSquare (K) логического типа, возвращает True, если целый параметр K (&gt; 0)...

Функция, которая возвращает true, если строка состоит только из символов “*”, и false - в противном случае
Напишите функцию isStars(), который возвращает true, если строка состоит только из символов “*”, и...


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

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

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