Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Новички в программировании > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Название темы включает слова - "Помогите", "Спасите", "Срочно"
Название темы не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте >>>правила <<< и заново правильно создайте тему.
 
Опции темы
Старый 24.12.2011, 13:51   #1
monokol
Пользователь
 
Регистрация: 21.12.2011
Сообщений: 10
Репутация: 10
По умолчанию Дата некоторого дня определяется двумя натуральными числами: m (порядковый номер месяца) и n (число). По заданным n и m определ

Дата некоторого дня определяется двумя натуральными числами: m (порядковый номер месяца) и n (число). По заданным n и m определить дату следующего дня (принять, что n и m не опреде-ляют 31 декабря)
monokol вне форума  
Старый 22.07.2013, 20:51   #2
Maxloki
Новичок
 
Регистрация: 21.07.2013
Сообщений: 6
Репутация: 6
По умолчанию

'Program data;
Uses crt;
Var m,n,k,s,p,f:byte;
Begin clrscr;
Write ('Введите порядковый номер месяца m:=');
Readln (m);
writeln;
Write ('Введите число n:=');
Readln (n);
If ((m=12) and (n=31)) then begin k:=1;
s:=1;
end else

If ((n=31) or (n=30) or (n=28) or (n=29)) then begin k:=m+1;
s:=1;
end;
If ((m=1) and (n=1)) then begin p:=12;
f:=31;
end;
If ((k=0) and (s=0)) then begin k:=m;
s:=n+1;
end;
If ((p=0) and (f=0) and (n=1)) then If ((m=1) or (m=5) or (m=7) or (m=10) or (m=12)) then begin p:=m-1; f:=30; end else
If m=3 then begin p:=m-1; f:=29; end else
If ((m=2) or (m=4) or (m=6) or (m=8) or (m=9) or (m=11)) then begin p:=m-1; f:=31 end;
If ((p=0) and (f=0)) then begin p:=m; f:=n-1; end;
Writeln ('Следующий день ',s,'.',k);
Writeln ('Предыдущий день ',f,'.',p);
End.'
Maxloki вне форума  
Старый 22.07.2013, 20:53   #3
Maxloki
Новичок
 
Регистрация: 21.07.2013
Сообщений: 6
Репутация: 6
По умолчанию

В данном коде год принят за високосный и n и m в том числе могут определять 31 декабря (год во внимание не берется)!
Maxloki вне форума  
Закрытая тема



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как вычислить номер месяца, имея номер недели? Ras2im Microsoft Office Excel 17 07.10.2012 03:31
бесконечная таблица заполнить натуральными числами по принципу змейки (Паскаль) ubun Помощь студентам 9 14.11.2011 12:53
записать дату натуральными числами (С++) Alina5545 Помощь студентам 2 13.04.2010 22:05
записать дату натуральными числами Alina5545 Общие вопросы C/C++ 12 13.04.2010 22:03
порядковый номер недели skalt12 Общие вопросы Delphi 7 01.12.2009 17:52




01:06.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru