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

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

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

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

Составить программу ,которая печатает TRUE , если точка с координатами (Х,У) принадлежит заштрихованной области,и FALSE в противном случае:
Есть рисунок! Если можно составте блок схему!??))

Функция возвращает true, если число n - натуральное степень числа 2 и false в противном случае
Функция возвращает true, если число n - натуральное степень числа 2 и false в противном случае

Напечатать True, если заданный файл вещественных упорядочен, и False-в противном случае
Напечатать True, если заданный файл вещественных упорядочен, и False-в противном случае.

Вывести True, если введенное пользователем число оканчивается цифрой 5 и False в противном случае.
3. Вывести True, если введенное пользователем число оканчивается цифрой 5 и False в противном...

1
Puporev
Модератор
59361 / 44804 / 30921
Регистрация: 18.05.2008
Сообщений: 107,463
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
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2010, 21:54

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

Для заданного файла возвратить true, если он не содержит нуля, и false в противном случае
задание:Для заданного файла возвратить true, если он не содержит нуля, и false в противном случае....

Составить программу печатающую значение true, если указанное высказывание верно, а false в противном случае:
1)Составить программу печатающую значение true, если указанное высказывание верно, а false в...

Описать функцию Pro(n) логического типа, возвращающую True, если целый параметр является простым числом
Написать программу где описывается функция Prо(N) логического типа, возвращающую True, если целый...

Составить программу, печатающую значение true, если указанное высказывание является истинным, и false – в противном случае
все цифры заданного четырехзначного числа N различны.


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

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

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