- 1
- 2
- 3
- 4
- 5
- 6
- 7
/***************************************/
Между прочим, сегодня у нас взят плановый гет 2000 пользователей!
С чем и поздравляем ГК.РУ!
/****************************************/
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+131
/***************************************/
Между прочим, сегодня у нас взят плановый гет 2000 пользователей!
С чем и поздравляем ГК.РУ!
/****************************************/
+87
/**
* The Time class is a faster replacement for the java.util.Calendar and
* java.util.GregorianCalendar classes. An instance of the Time class represents
* a moment in time, specified with second precision. It is modelled after
* struct tm, and in fact, uses struct tm to implement most of the
* functionality.
*/
public class Time {
...
/**
* Year. TBD. Is this years since 1900 like in struct tm?
*/
public int year;
...
}
Android 1.5. TBD в публичном API официального SDK - это пять. Ну мы ещё подумаем, как нам нравится, а вы пока просто посмотрите в дебаге! Гы.
−86
10 GOSUB 300
30 INPUT "Долгота (град)";B5,L5: INPUT "Часовая зона (час)";H
50 L5=L5/360: Z0=H/24
60 GOSUB 1170: T=(J-2451545)+F
70 TT=T/36525+1: ' TT = столетия, начиная с 1900.0
90 GOSUB 410: T=T+Z0
120 GOSUB 910: A(1)=A5: D(1)=D5 ' Получаем положение солнца
130 T=T+1
140 GOSUB 910: A(2)=A5: D(2)=D5
150 IF A(2)<A(1) THEN A(2)=A(2)+P2
160 Z1=DR*90.833: ' Вычисление зенита
170 S=SIN(B5*DR): C=COS(B5*DR)
180 Z=COS(Z1): M8=0: W8=0: PRINT
190 A0=A(1): D0=D(1)
200 DA=A(2)-A(1): DD=D(2)-D(1)
210 FOR C0=0 TO 23
220 P=(C0+1)/24
230 A2=A(1)+P*DA: D2=D(1)+P*DD
240 GOSUB 490
250 A0=A2: D0=D2: V0=V2
260 NEXT
270 GOSUB 820: ' Вывод информации
280 END
300 DIM A(2),D(2) ' Константы
320 P1=3.14159265: P2=2*P1: DR=P1/180: K1=15*DR*1.0027379: S$="Заход солнца в "
330 R$="Восход солнца в ": M1$="В этот день солнце не восходит"
370 M2$="В этот день солнце не заходит": M3$="Солнце заходит весь день"
390 M4$="Солнце восходит весь день"
400 RETURN
410 T0=T/36525 ' Получение часового пояса
430 S=24110.5+8640184.813*T0
440 S=S+86636.6*Z0+86400*L5
450 S=S/86400: S=S-INT(S)
460 T0=S*360*DR
470 RETURN
490 L0=T0+C0*K1: L2=L0+K1 ' Просматриваем возможные события на полученный час
510 H0=L0-A0: H2=L2-A2
520 H1=(H2+H0)/2: ' Часовой угол,
530 D1=(D2+D0)/2: ' наклон в получасе
550 IF C0>0 THEN 570
560 V0=S*SIN(D0)+C*COS(D0)*COS(H0)-Z
570 V2=S*SIN(D2)+C*COS(D2)*COS(H2)-Z
580 IF SGN(V0)=SGN(V2) THEN 800
590 V1=S*SIN(D1)+C*COS(D1)*COS(H1)-Z
600 A=2*V2-4*V1+2*V0: B=4*V1-3*V0-V2
610 D=B*B-4*A*V0: IF D<0 THEN 800
620 D=SQR(D)
630 IF V0<0 AND V2>0 THEN PRINT R$;
640 IF V0<0 AND V2>0 THEN M8=1
650 IF V0>0 AND V2<0 THEN PRINT S$;
660 IF V0>0 AND V2<0 THEN W8=1
670 E=(-B+D)/(2*A)
680 IF E>1 OR E<0 THEN E=(-B-D)/(2*A)
690 T3=C0+E+1/120: ' Округление
700 H3=INT(T3): M3=INT((T3-H3)*60)
710 PRINT USING "##:##";H3;M3;
720 H7=H0+E*(H2-H0)
730 N7=-COS(D1)*SIN(H7)
740 D7=C*SIN(D1)-S*COS(D1)*COS(H7)
750 AZ=ATN(N7/D7)/DR
760 IF D7<0 THEN AZ=AZ+180
770 IF AZ<0 THEN AZ=AZ+360
780 IF AZ>360 THEN AZ=AZ-360
790 PRINT USING ", азимут ###.#";AZ
800 RETURN
820 IF M8=0 AND W8=0 THEN 870 ' Процедура вывода информации
840 IF M8=0 THEN PRINT M1$
850 IF W8=0 THEN PRINT M2$
860 GOTO 890
870 IF V2<0 THEN PRINT M3$
880 IF V2>0 THEN PRINT M4$
890 RETURN
910 L=.779072+.00273790931*T ' Фундаментальные константы (Van Flandern & Pulkkinen, 1979)
950 G=.993126+.0027377785*T
960 L=L-INT(L): G=G-INT(G): L=L*P2: G=G*P2
980 V=.39785*SIN(L): V=V-.01000*SIN(L-G)
1000 V=V+.00333*SIN(L+G): V=V-.00021*TT*SIN(L)
1020 U=1-.03349*COS(G): U=U-.00014*COS(2*L)
1040 U=U+.00008*COS(L): W=-.00010-.04129*SIN(2*L)
1060 W=W+.03211*SIN(G): W=W+.00104*SIN(2*L-G)
1080 W=W-.00035*SIN(2*L+G): W=W-.00008*TT*SIN(G)
1120 S=W/SQR(U-V*V) ' Вычисление солнечных координат
1130 A5=L+ATN(S/SQR(1-S*S))
1140 S=V/SQR(U):D5=ATN(S/SQR(1-S*S))
1150 R5=1.00021*SQR(U)
1160 RETURN
1170 INPUT "Год, Месяц, День";Y,M,D ' Календарь --> JD
1190 G=1: IF Y<1583 THEN G=0
1200 D1=INT(D): F=D-D1-.5
1210 J=-INT(7*(INT((M+9)/12)+Y)/4)
1220 IF G=0 THEN 1260
1230 S=SGN(M-9): A=ABS(M-9)
1240 J3=INT(Y+S*INT(A/7))
1250 J3=-INT((INT(J3/100)+1)*3/4)
1260 J=J+INT(275*M/9)+D1+G*J3
1270 J=J+1721027+2*G+367*Y
1280 IF F>=0 THEN 1300
1290 F=F+1: J=J-1
1300 RETURN
Вот такой вот реликт. Вы всё ещё пользуетесь GOTO? Тогда мы идём к вам.
Программа вычисляет время восхода и захода солнца по дате (с точностью до минуты) в пределах нескольких текущих столетий. Производит корректировку, если географическая точка находится в арктичиском или антарктическом регионе, где заход или восход солнца на текущую дату может не состояться. Вводимые данные: положительная северная широта и отрицательная западная долгота. Часовой пояс указывается относительно Гринвича (например, 5 для EST и 4 для EDT). Алгоритм обсуждался в "Sky & Telescope" за август 1994, страница 84.
P. S. VisualBasic такой Visual...
+122
SqlCommand SomeCommand = new SqlCommand(SelectString, ConnectionString);
int result;
if(SomeCommand.ExecuteScalar() == null)
{
result = 0;
}
else
{
result = (int)SomeCommand.ExecuteScalar();
}
Why bad ?! The method execute twice ...
+109
if(!mysql_select_db($db_name,$data)){
print "<BR>";
echo mysql_error();
die();
}
Нашел в одном из движков онлайн игры
+144
#include <iostream>
#include <stdio.h>
using namespace std;
#define chislo int
#define osnovnoe main
#define nachalo {
#define konec }
#define chitaj scanf
#define pishi printf
#define CS ;
#define verni return
#define noleg 0
#define strochechka string
#define naruzhu <<
#define vnutr >>
#define vozmi cin
#define daj cout
#define esli if
#define PISCS endl
#define eshe &&
#define cicle for
#define poka while
#define simvol char
#define vozmis getchar()
#define shlak EOF
#define SPS '\n'
#define vozmozhno ||
#define eshe &&
#define inache else
chislo aasda[1000] CS
chislo chistka()
nachalo
chislo i CS
cicle(i=noleg CS i<1000 CS i++)
aasda[i]=noleg CS
verni aasda[noleg] CS
konec
chislo mnozh(chislo k)
nachalo
chislo i CS
cicle(i=noleg+2 CS i<k CS i++)
esli(k%i==0) nachalo aasda[i]++ CS verni mnozh(k/i)+1 CS konec
aasda[k]++ CS
verni 1 CS
konec
chislo krutilka(chislo k)
nachalo
esli(k==1) verni 1 CS
verni k*krutilka(k-1) CS
konec
chislo osnovnoe()
nachalo
chislo colm, ppm=1, k, i CS
vozmi vnutr k CS
chistka() CS
colm=mnozh(k) CS
cicle(i=noleg CS i<=1000 CS i++)
esli(aasda[i]>0) ppm*=krutilka(aasda[i]) CS
daj naruzhu krutilka(colm)/ppm naruzhu PISCS CS
verni noleg CS
konec
Так мы писали задачи на Турнире Архимеда=)
+144.8
<?='<?'?>xml version="1.0" encoding="UTF-8"?>
Иначе думает, что это открывающий PHP тег :-)
+207.3
$('div').each(function () {
if ($(this).attr('id') == 'blok') {
$(this).html('');
}
});
Хочется взять и уебать…
0
$_GET
0
string[] words = line.Split(' ');
foreach (var word in words)
{
Console.Write(word);
switch (word)
{
case "11":
Console.WriteLine($"{tableEng[0, 0]}");
break;
case "12":
Console.WriteLine($"{tableEng[0, 1]}");
break;
case "13":
Console.WriteLine($"{tableEng[0, 2]}");
break;
case "14":
Console.WriteLine($"{tableEng[0, 3]}");
break;
case "15":
Console.WriteLine($"{tableEng[0, 4]}");
break;
case "21":
Console.WriteLine($"{tableEng[1, 0]}");//
break;
case "22":
Console.WriteLine($"{tableEng[1, 1]}");
break;
case "23":
Console.WriteLine($"{tableEng[1, 2]}");
break;
case "24":
Console.WriteLine($"{tableEng[1, 3]}");
break;
case "25":
Console.WriteLine($"{tableEng[1, 4]}");
break;
case "31":
Console.WriteLine($"{tableEng[2, 0]}");
break;
case "32":
Console.WriteLine($"{tableEng[2, 1]}");
break;
case "33":
Console.WriteLine($"{tableEng[2, 2]}");
break;
case "34":
Console.WriteLine($"{tableEng[2, 3]}");
break;
case "35":
Console.WriteLine($"{tableEng[2, 4]}");
break;
case "41":
Console.WriteLine($"{tableEng[3, 0]}");
break;
case "42":
Console.WriteLine($"{tableEng[3, 1]}");
break;
case "43":
Console.WriteLine($"{tableEng[3, 2]}");
break;
case "44":
Console.WriteLine($"{tableEng[3, 3]}");
break;
case "45":
Console.WriteLine($"{tableEng[3, 4]}");
break;
case "51":
Console.WriteLine($"{tableEng[4, 0]}");
break;
case "52":
Console.WriteLine($"{tableEng[4, 1]}");
break;
case "53":
Console.WriteLine($"{tableEng[4, 2]}");
break;
case "54":
Console.WriteLine($"{tableEng[4, 3]}");
break;
case "55":
Console.WriteLine($"{tableEng[4, 4]}");
break;
}
}
}
Console.ReadLine();
Дело IsBukva живёт.
https://habr.com/ru/articles/771530/