Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/43: Рейтинг темы: голосов - 43, средняя оценка - 4.86
IceDon
1

Требуется определить, является ли данный год високосным.

10.05.2009, 13:06. Просмотров 8658. Ответов 1
Метки нет (Все метки)

Требуется определить, является ли данный год високосным. (Напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.)
Напишите пожалуйста как бы Вы в паскале составляли это.

Буду при много благодарен если поможете сделать.
После вчерашнего 9 мая не особенно сильно соображаю, из-за этого прошу Вас помочь)
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.05.2009, 13:06
Ответы с готовыми решениями:

Записи: проверить, является ли год високосным
Описать тип Date - запись с полями целого типа Day (день), Month (месяц) и Year (год) - и функцию...

Определить, является ли данный текст палиндромом
Дана строка символов, содержащая некоторый текст. Разработать программу, которая определяет,...

Определить, является ли год високосным
Помогите пожалуйста))) очень нужно) Написать программу, которая проверяет, является ли год...

Определить, является ли год високосным
Требуется определить, является ли данный год високосным. (Напомним, что год является високосным,...

1
138 / 138 / 65
Регистрация: 20.03.2009
Сообщений: 235
10.05.2009, 18:53 2
Лучший ответ Сообщение было отмечено как решение

Решение

вот функция:
Pascal
1
2
3
4
5
6
7
Function visokos(year:Word):boolean;{определяет високосный ли год}
begin
  {Год високосен (то есть содержит 366 дней), если:
    а) его номер без остатка делится на 4 и не делится на 100 или
    б) его номер делится без остатка на 400.}
  visokos:=((year mod 100 <> 0)and(year mod 4 = 0))or(year mod 400 = 0);
end;
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.05.2009, 18:53

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

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

Определить, является ли данный работник пенсионером
Составить программу, запрашивающую при помощи операторов ввода-вывода: фамилию, имя, отчество, год...

Определить, является ли данный символ латинской буквой
Определить, является ли данный символ латинской буквой. program z1; var i,j,s,n,m:integer;...

Даны длины сторон треугольника. Определить, является ли данный треугольник разносторонним
11. Даны длины сторон треугольника. Определите, является ли данный треугольник разносторонним.


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

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

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