Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 Аватар для metamarfoz
2 / 2 / 1
Регистрация: 27.08.2009
Сообщений: 106

Функции: Определить даты предыдущих дней для n введеных дат

05.10.2012, 18:24. Показов 777. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Задание: Описать две функции, одна из которых определяет, является ли год высокосным, а вторая возращает количество дней для M-го месяца года Y. Используя эти функции, описать процедуру, которая по информации о правильной дате (день, номер месяца и год) определяет дату пердыдщего дня. Определить даты предыдущих дней для n введеных дат. (то, что выделено подчеркиванием, не получается)

Собственно две функции написал:
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
49
50
program z612;
{Функция 1}
function vg(n:integer):real;
var ng,ks:integer;
begin
ng:= n mod 100;
ks:= n mod 1000;
ks:= ks div 100;
 if ((ng <> 0) and (ng mod 4 = 0)) or ((ng=0) and (ks mod 4 = 0)) then
     Writeln ('Год ',n,' является высокосным')
 else
     Writeln ('Год ',n,' не является высокосным'); 
end;
{Конец Функция 1}
 
{Функция 2}
function my(m,y:integer):real;
var yng,yks:integer;
begin
 yng:= y mod 100;
 yks:= y mod 1000;
 yks:= yks div 100;
   if ((yng <> 0) and (yng mod 4 = 0)) or ((yng=0) and (yks mod 4 = 0)) then
 begin
       case m of
       1,3,5,7,8,10,12: Writeln('31 день');
       2: Writeln('29 дней');
       4,6,9,11: Writeln('30 дней');
       end;
       end else
       case m of
       1,3,5,7,8,10,12: Writeln('31 день');
       2: Writeln('28 дней');
       4,6,9,11: Writeln('30 дней');
       end;
end;
{Конец Функция 2}
 
{Программа 6.12}
var n1,y1,m1: integer;
begin 
Writeln('Введите год...');
readln(n1);
vg(n1);
writeln('Нажмите Enter');
readln;
Writeln('Введите номер месяца и год');
readln(m1,y1);
my(m1,y1);
end.
Все остальное не знаю даже с какой стороны подойти.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
05.10.2012, 18:24
Ответы с готовыми решениями:

Реализовать перегрузку операторов для нахождения разности двух дат и увеличения даты на определенное количество дней
Задача в том что бы создайте класс Date, который будет содержать информацию о дате (день, месяц, год). С помощью механизма перегрузки...

Дана дата d. Для этой даты определить даты первого и последнего дней недели
даты первого и последнего дней недели; даты первого и последнего дней года.

Создание массива дат, отстающих друг от друга на 6 дней, начиная от сегодняшней даты
Нужен массив дат, отстающих друг от друга на 6 дней, начиная от сегодняшней даты. Длину массива (кол-во дат) задаю самостоятельно....

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
05.10.2012, 18:24
Помогаю со студенческими работами здесь

Как определить вхождение даты в промежуток дат?
Есть 3 даты вида 01.01.2019 (обычные строки). Нужно определить вхождение даты в интервал дат. Например: 02.01.2019 //дата начала ...

Определить даты дней недели
Добрый день. Прошу подсказать. стоит следующая задача. Есть входные данные: 1) название блюда 2) день недели в который это блюдо...

Нужно определить количество определенных рабочих дней недели и или их комбинаций в интервале дат
Здравствуйте! Не смог найти подходящую тему. Задача состоит в том, что-бы посчитать количество рабочих дней недели и их комбинации...

Нахождение дней между диапазоном дат(не кол-во дней, а сами дни)
Всем привет, возникла такая задачка: есть начальная и конечная даты, нужно найти дни между ними, не само кол-во дней, а именно сами дни,...

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


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru