Начинаем обратный отсчёт до 2020-го года

Код на Паскале сам по себе так говняво выглядит, или ты это такой виртуоз?

Не хуже кода на Си.

Это вот ни разу не похвала

И то и то

Да ты ж программист наш!

У разных людей разные вкусы.

Ждём от ТСа ААА-игру «Угадай число». Сразу на главную можно будет постить.

Этого и так много. А сабжевой софтины не было.

Это не софтина, это студенческая лаба.

Я видел код этой игры для VB6. На две страницы A4.

Хм, действительно. Печально думать, что мировое IT не имело такой нужной и ценной программы.

Предлагаю ещё ряд ценных и нужных программ для воплощения на Паскале:

лунный календарь народности Тупайя
утилита для подсчёта чиханий
база данных катышек на свитере
напоминалка о подстригании ногтей
хранилище изображений дырок на носках
навигатор по подвалу дома №17 ПГТ Великодырск
менеджер вилок на домашней кухне
клиент для скачивания песен Иванушек Интернешнл

А текстовый квест с ascii - интерфейсом, который можно играть в «ядерной консоли» сделать сможете?

Вот из-за того, что кто-то так мыслит, нет кучи софта. Который кому-то приходится писать.

А вот это более универсальный вариант, который считает время не до конкретного года, а до следующего:

program timetonextyear;
{$codepage utf8}
uses cwstring, sysutils, dateutils;
var
        nowtime, thentime, timediff: int64;
        ttdays, tthours, ttminutes, ttseconds: int64;
        syear, smonth, sday: word;
begin
        decodedate(now, syear, smonth, sday);
        inc(syear);
        nowtime := datetimetounix(now);
        thentime := datetimetounix(encodedate(syear, 1, 1));
        timediff := thentime - nowtime;
        ttdays := timediff div 86400;
        dec(timediff, ttdays * 86400);
        tthours := timediff div 3600;
        dec(timediff, tthours * 3600);
        ttminutes := timediff div 60;
        dec(timediff, ttminutes * 60);
        ttseconds := timediff;
        writeln('до ', syear, ' года осталось ', ttdays, ' дней, ', tthours, ' часов, ',
                ttminutes, ' минут и ', ttseconds, ' секунд.');
end.

Могу.

{$codepage utf8}

Разве теперь utf8 не по умолчанию?

Ты боишься, что лоровцы пропустят или думаешь, что этот код показывает выразительность паскаля?

Взрослый же дядя, такие хеллоуворды в школе пишут, зачем ты это на ЛОР притащил?

Не вижу указания лицензии, без неё код по дефолту проприетарщина, нам даже смотреть на него нежелательно, поэтому оффтоп, язабан.

до 2100 года осталось 29279 дней, 3 часов, 11 минут и 17 секунд. )))

Разве что для первокурсников.

Это есть в каждом втором боте для мессенджеров, изобретатель ты наш.

Ты набухался что-ли уже по поводу грядущего НГ?

народности Тупайя

Это же вроде жывотное какое-то. Хотя…

Эта народность состоит исключительно из девушек.

В каких ещё ботах и для каких ещё мессенджеров? Ничем таким не пользуюсь, и многие, думаю, тоже.

напоминалка о подстригании ногтей

Я тут слышал, что людей, тяготеющих к паскалю, больше беспокоят волосы в ушах.

Что Вы как не программист? Пишите нехеллоуворды на работе, никто Вам не запрещает.

(Собственно, по этой причине я за продвижение термина «хакер». Хакеры любят программировать, а потому радуются любым однострочникам, поскольку размер программы в байтах не важен. И даже наоборот, - чем больше получилось сократить программу и чем меньше она жрёт ресурсов - тем лучше.)

И песок в сапогах

Нет.

GNU GPLv3.

Предпочитаешь валенки?

Разве теперь utf8 не по умолчанию?

Вообще, да, по умолчанию.

У вас единицы измерения не склоняются — не зачет. Должно быть: «до 2020 года осталось 52 дня, 3 часа, 1 минута и 33 секунды»

ttdays := timediff div 86400;
dec(timediff, tthours * 3600);

Какая неконсистентность!

В любых, например jabber.

Ничем таким не пользуюсь

Врёшь как дышишь. Недавно тут чатик быдлограме рекламировал.

поскольку размер программы в байтах не важен

Важна польза от программы, которая у сабжа нулевая. Именно по этому критерию это школоло хеллоуворд.

Скорее на ладонях.

Учение Столлмана велит указывать лицензию в начале каждого файла с исходными кодами, для избежания недоразумений

Куда резоннее спросить зачем ТС хочет знать сколько дней осталось до 2020го? Может радуется поводу накатить, но он, судя по постам, и так не просыхает.

Важна польза от программы, которая у сабжа нулевая

Кому как. Никто же не запрещал тем, кому она ненужна, проходить мимо.

сложна!

И что? Ничего такого я в нём не видел.

Haters gonna hate

хуже

Не благодари.

#!/usr/bin/env python3

from datetime import datetime

print(datetime(2020, 1, 1, 0, 0, 0) - datetime.now())
# 59 days, 9:45:05.901267

Нечестно. Вы используете уже готовый код из библиотеки.

Как и ТС. Только он безрукий.

Нет, несложно. Просто не всем нужно. Но при необходимости можно и допилить:

program timetonextyear2;
{$codepage utf8}
uses cwstring, sysutils, dateutils;
const
	alltimesspells: array[0..11] of unicodestring = (
		'день',
		'дня',
		'дней',
		'час',
		'часа',
		'часов',
		'минута',
		'минуты',
		'минут',
		'секунда',
		'секунды',
		'секунд');
var
	nowtime, thentime, timediff: int64;
	ttdays, tthours, ttminutes, ttseconds: int64;
	syear, smonth, sday: word;

function gettimespell(tval: int64; totswitch: integer): unicodestring;
var
	lstdgt: Integer;
begin
	lstdgt := tval mod 10;
	case (lstdgt) of
	1: gettimespell := alltimesspells[3 * totswitch];
	2 .. 4: gettimespell := alltimesspells[3 * totswitch + 1];
	else gettimespell := alltimesspells[3 * totswitch + 2];
	end;
end;

begin
	decodedate(now, syear, smonth, sday);
	inc(syear);
	nowtime := datetimetounix(now);
	thentime := datetimetounix(encodedate(syear, 1, 1));
	timediff := thentime - nowtime;
	ttdays := timediff div 86400;
	dec(timediff, ttdays * 86400);
	tthours := timediff div 3600;
	dec(timediff, tthours * 3600);
	ttminutes := timediff div 60;
	dec(timediff, ttminutes * 60);
	ttseconds := timediff;
	writeln('До ', syear, ' года осталось ', ttdays, ' ',
		gettimespell(ttdays, 0) ,', ',
		tthours, ' ', gettimespell(tthours, 1), ', ',
		ttminutes, ' ', gettimespell(ttminutes, 2),' и ',
		ttseconds, ' ', gettimespell(ttseconds, 3), '.');
end.

$ ./timetonextyear2
До 2020 года осталось 59 дней, 8 часов, 22 минуты и 43 секунды.

А до 3 сентября твоя программа может отсчет вести? :)