IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Программа на определение следующего дня+квартал
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской

Репутация: -  0  +


Люди пожайлуста помогите мне решить следующию задачу. Надо написать программу на определение даты следующего дня + квартал(с использованием перечисляемого типа). Вот что у меня получилось только с ошибками и без кварьала
Код
Program gdgf;
function ndm(d:integer; m:byte; y:word):byte;
var
dz:integer;
mz:integer;
yz:integer;
BEGIN
writeln('vvedite daty');
readln(d,m,y)
if m=2 then
if (y mod 4=0) and (y mod 100<>0) or (y mod 400=0)
then ndm=29 else ndm=28
else
if m in [1,3,5,8,10,12]
then ndm=31 else ndm=30;
end;
if d<ndm(m,y) then begin dz=d+1; mz=m; yz=y; end
else if m<>12 then begin dz=1; mz=m+1; yz=y; end
else begin dz=1; mz=1; yz=y+1; end;
writeln('zavta bydet chiclo'dz,'meciac'mz,'god'yz);
end.

где d,m,y - сегодняшний день, месяц и год dz, mz, yz - завтрашние день, месяц и год.


Сообщение отредактировано: 1111 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






На самом деле я не вижу здесь использования перечислимых типов...

Может, вот так:
Прикрепленный файл  dt.pas ( 754 байт ) Кол-во скачиваний: 436

?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской

Репутация: -  0  +


Большое спасибо за программу. Только можно её сделать проще так сказать для начинающих. и ещё вопрос в этой программе есть пречесляемый тип
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Ты вопросы задаешь, или утверждаешь?

Если вопросы - то ответ будет таким: кто ж тебе мешает сделать еще проще? Умеешь - делай. У меня более просто не получится. Куда же проще - полная программа из 35 строк... Или ты хочешь в одну строку решить?
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 21.09.2020 20:29
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name