Говнокод #5860 — Pascal — Говнокод.ру

Говнокод: по колено в коде.

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

Pascal / Говнокод #5860

+128

uses crt;
var
d,m,k:integer;
begin
write('Введите день - ');readln(d);
write('Введите месяц - ');readln(m);
case m of
1: k:=365-d;
2: k:=365-(31+d);
3: k:=365- (31+28+d);
4: k:=365- (31+28+31+d);
5: k:=365- (31+28+31+30+d);
6: k:=365- (31+28+31+30+31+d);
7: k:=365- (31+28+31+31+30+30+d);
8: k:= 365-(31+28+31+31+30+30+31+d);
9: k:= 365- (31+28+31+31+30+31+30+31+d);
10: k:=365- (31+28+31+31+30+31+31+30+30+d);
11: k:=365- (31+28+31+31+30+31+31+30+30+31+d);
12: k:=365- (31+28+31+31+30+31+31+30+31+30+30+d);
end;
writeln('До конца года осталось ',k,' дн.');
end.

Запостил:

Juris_Kabanis, 03 Марта 2011

Комментарии (26) RSS

3.14159265 03.03.2011 10:12 # +6

Календарь всегда был тем пробным камнем для быдлокодера, за которым всегда можно было хорошо просратся.
Ответить
gorky 03.03.2011 11:11 # −2

Где здесь Delphi?
Ответить
- tr00_gr1m_doomster 03.03.2011 12:22 # +1
  
  где здесь(на сайте) Pascal?
  Ответить
  - Lure Of Chaos 03.03.2011 17:44 # 0
    
    куча, куча! Дельфи это Паскаль, но Паскаль, это не Дельфи )
    Ответить
tr00_gr1m_doomster 03.03.2011 12:28 # 0

Когда я ходил на курсы программирования на паскале в 9ом классе, наш препод задал вопрос: как определить високосный ли год? Один ответил: угадать На что препод сказал: вероятность успеха 25%
Так вот и здесь, прога будет корректно работать в 3 из 4 годов
Ответить
- ctm 03.03.2011 15:50 # 0
  
  в 303 из 400, т.к. 1700, 1800, 1900, 2100 - не високосные
  ну лаба - что с нее взять?!
  Ответить
  - tr00_gr1m_doomster 03.03.2011 15:54 # 0
    
    сомневаюсь что кто-то станет использовать это в 2100 году, ну а о остальных и говорить нечего, а вообще замечание правильное
    Ответить
    - ctm 04.03.2011 07:35 # 0
      
      Ну уж календарь вряд ли поменяют, несмотря на очевидные неудобства. так что правила скорее всего останутся.
      Ответить
      - bugmenot 04.03.2011 07:54 # +1
        
        Почему это вряд ли? Хотя григорианский даёт довольно точную аппроксимацию тропического года, в будущем разум победит и от нерегулярного деления избавятся.
        Ответить
        
        ctm 04.03.2011 11:56 # 0
        
        поживем - увидим:)
        Ответить
        
        Lure Of Chaos 05.03.2011 00:37 # 0
        
        какой календарь рекомендуете?
        Ответить
        
        bugmenot 05.03.2011 00:55 # 0
        
        придется поступиться либо сидерическим периодом либо осевого вращения
        заодно шумерские единицы под нож
        Ответить
        
        ZX_Spectrum 05.03.2011 01:04 # 0
        
        дело в том, что уже давно пора немного замедлить вращение Земли, чтобы в году было ровно 365 суток.
        непорядок, понимаешь...
        хотя, можно просто подождать, так как за одно столетие Земля поворачивается на 0,0014 секунды медленнее, чем в предыдущее столетие.
        Ответить
        
        bugmenot 05.03.2011 01:44 # 0
        
        это из-за приливного действия Луны и поэтому никогда не будет константой, лунный месяц по этим же соображения можно исключить
        Ответить
        
        ZX_Spectrum 05.03.2011 03:59 # 0
        
        не только из-за Луны, но и из-за Солнца.
        Ответить
        
        bugmenot 05.03.2011 09:24 # 0
        
        много слабее, мне щас лень высчитывать,
        здесь должно удлинение года за счет передачи энергии осевого вращения звезды -> орбитальному движению планеты, нет?
        Ответить
        
        ctm 05.03.2011 11:21 # 0
        
        да-ладно... ничто не вечно. материки плывут, Луна удаляется, скорость вращения мало того, что неравномерна, да еще и замедляется.
        когда погрешность станет заметна - тогда может что-то и поменяют
        Ответить
        
        bugmenot 05.03.2011 11:54 # +4
        
        > неравномерна
        прецессия и нутация же
        
        > когда погрешность станет заметна
        раньше колонизируют Марс и проблема с поздневарварским календарём встанет уже остро
        
        традиции - говно перед лицом прогресса
        Ответить
        
        ctm 05.03.2011 07:19 # +1
        
        есть еще предложение. в 1 сутках должно быть 10 часов, в часе 100 минут, в минуте 100 секунд.
        даже размер секунды не сильно поменяется:)
        Ответить
        
        bugmenot 05.03.2011 09:28 # +1
        
        самый очевидный план, при настолько неудобной планете
        
        лично я бы похерил секунду, всё равно она просто 60² доля двух дюжин (как будет фейспалм по-шумерски?)
        Ответить
        
        ZX_Spectrum 05.03.2011 15:00 # +2
        
        60 удобно тем, что делится на 2, 3, 4, 5, 6
        Ответить
        
        Lure Of Chaos 05.03.2011 18:15 # 0
        
        как насчет двоичной системы? )))
        лаадно, шестнадцатеричной...
        
        все равно у всех будут часы в каком нить UTC, похеру будет на солнце и луну, все равно в офисах темно ))))
        Ответить
Lure Of Chaos 03.03.2011 17:45 # 0

хотя бы посчитал, что ли )
Ответить
KATAJIU3ATOP 01.05.2011 21:24 # 0

Это тоже самое что:
Var
S:string;
Begin
S:='Hello, world!';
Write(s);
Readln;
End.
Только умноженое на 3.
Даже модуль зачем-то подключил.
Ответить
- bugmenot 01.05.2011 21:53 # 0
  
  Crt линкуют чтобы не запускалось, если RTL не пропатчена
  Ответить
  - 1291 24.08.2011 22:49 # 0
    
    Таки да, начиная с первых Пентиумов. Так что данная программа независимо от того, високосный год или нет, выдаст Runtime Error не-помню-какой (Division by zero). Собственно, даже до ввода года/месяца дело не дойдет.
    Ответить

Говнокод: по колено в коде.

Pascal / Говнокод #5860

Комментарии (26) RSS

Добавить комментарий