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

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

+96

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15

MediaPlayer1.FileName := './data/gong.wav';
  MediaPlayer1.Open;
  g1 := timetostr(time);
  g2 := timetostr(strtotime('0:00:00'));
  g3 := timetostr(strtotime('3:00:00'));
  g4 := timetostr(strtotime('6:00:00'));
  g5 := timetostr(strtotime('5:00:00'));
  g6 := timetostr(strtotime('12:00:00'));
  g7 := timetostr(strtotime('15:00:00'));
  g8 := timetostr(strtotime('18:00:00'));
  g9 := timetostr(strtotime('21:00:00'));
  if g1 = g2 then
    MediaPlayer1.Play
  else
    Label2.Caption := 'не работает тварь...';

этнический таджик, а в душе - индокитаец

bugmenot, 27 Ноября 2011

Комментарии (15)

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

+145

1
2
3
4
5
6
7
8

if c = 'y' then 
begin 
  Writeln('Yes'); 
end else 
if c = 'n' then 
begin 
  Writeln('No'); 
end;

Вот это кака... http://delphisources.ru/forum/showthread.php?t=19000

Nikitiy_II, 23 Ноября 2011

Комментарии (71)

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

+100

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17

var s: string;
    res: string; 
begin
  readln(s);
  res := 'Слишком большая строка';
  if length(s) = 0 then res := s;
  if length(s) = 1 then res := s;
  if length(s) = 2 then res := s;
  if length(s) = 3 then res := s;
  if length(s) = 4 then res := s[0] + ' ' + s[1] + s[2] + s[3];
  if length(s) = 5 then res := s[0] + s[1] +' ' + s[2] + s[3] + s[4];
  if length(s) = 6 then res := s[0] + s[1] + s[2] +' ' + s[3] + s[4] + s[5];
  if length(s) = 7 then res := s[0] + ' ' + s[1] + s[2] + s[3] +' ' + s[4] + s[5] + s[6];
  if length(s) = 8 then res := s[0] + s[1] + ' ' + s[2] + s[3] + s[4] +' ' + s[5] + s[6] + s[7];
  if length(s) = 9 then res := s[0] + s[1] + s[2] + ' ' + s[3] + s[4] + s[5] +' ' + s[6] + s[7] + s[8];
  writeln(res);
end.

Код масштабируемый - сейчас он обрабатывает строки, в которые можно записать от нуля до девяти символов, но его прозрачно можно смасштабировать до обработки хоть 20, хоть 50 символов.
Кроме того, тут не используются платформозависимые API.

Govnocoder#0xFF, 22 Ноября 2011

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

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

+93

01
02
03
04
05
06
07
08
09
10
11
12
13

function det5(var a:atab):double;
{FUNKCIYA VYCHISLYAET OPREDELITEL MATRITSY 5-go PORYADKA a}
begin
det5:=
+a[1,1]*a[2,2]*a[3,3]*a[4,4]*a[5,5]-a[1,2]*a[2,1]*a[3,3]*a[4,4]*a[5,5]
+a[1,3]*a[2,1]*a[3,2]*a[4,4]*a[5,5]-a[1,1]*a[2,3]*a[3,2]*a[4,4]*a[5,5]
-a[1,3]*a[2,2]*a[3,1]*a[4,4]*a[5,5]+a[1,2]*a[2,3]*a[3,1]*a[4,4]*a[5,5]
-a[1,4]*a[2,1]*a[3,2]*a[4,3]*a[5,5]+a[1,1]*a[2,4]*a[3,2]*a[4,3]*a[5,5]
-a[1,1]*a[2,2]*a[3,4]*a[4,3]*a[5,5]+a[1,4]*a[2,2]*a[3,1]*a[4,3]*a[5,5]
-a[1,2]*a[2,4]*a[3,1]*a[4,3]*a[5,5]+a[1,2]*a[2,1]*a[3,4]*a[4,3]*a[5,5]
-a[1,4]*a[2,3]*a[3,1]*a[4,2]*a[5,5]+a[1,3]*a[2,4]*a[3,1]*a[4,2]*a[5,5]
.............................................
end;

http://bbi-math.narod.ru/rosenbrock/rosenbrock.html

dotnetdeveloper, 22 Ноября 2011

Комментарии (75)

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

+100

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18

function Encrypt(jstr: String): String;
var
  I: Integer;
  A: Real;
begin
  if Length(jstr) = 0 Then begin
    Result := '';
    Exit;
  end;
  A := 0;
    for I := 0 To Length(jstr) do
      A := A + (Ord(jstr[I]) * Pos(jstr[I],jstr)) / 33;
  Result := FormatFloat('0000000000.0000000000',A);
  if Pos(',',Result) > 0 then begin
    Insert('.',Result,Pos(',',Result));
    Delete(Result,Pos(',',Result),1);
  end;
end;

bugmenot, 17 Ноября 2011

Комментарии (18)

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

+111

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

var
s:string;
begin
repeat
readln(s);
until
(length(s)=4)
and(
                (s[1]='1')
              or(s[1]='2')
              or(s[1]='3')
              or(s[1]='4')
              or(s[1]='5')
              or(s[1]='6')
              or(s[1]='7')
              or(s[1]='8')
              or(s[1]='9')
                          )
and(
                (s[2]='1')
              or(s[2]='2')
              or(s[2]='3')
              or(s[2]='4')
              or(s[2]='5')
              or(s[2]='6')
              or(s[2]='7')
              or(s[2]='8')
              or(s[2]='9')
              or(s[2]='0')
                          )
and(
                (s[3]='1')
              or(s[3]='2')
              or(s[3]='3')
              or(s[3]='4')
              or(s[3]='5')
              or(s[3]='6')
              or(s[3]='7')
              or(s[3]='8')
              or(s[3]='9')
              or(s[3]='0')
                          )
and(
                (s[4]='1')
              or(s[4]='2')
              or(s[4]='3')
              or(s[4]='4')
              or(s[4]='5')
              or(s[4]='6')
              or(s[4]='7')
              or(s[4]='8')
              or(s[4]='9')
              or(s[4]='0')
                          )
end.

Нашёл у себя из первого курса.

ReallyBugMeNot2, 07 Ноября 2011

Комментарии (88)

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

+92

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17

Program gg;
Uses crt;
Var a,b,c,d,k,m,n,p,q:integer;
Begin
b:=a mod 100000;
c:=a mod 1000;
c:=c div 100;
d:=a mod 10;
d:=d div 10000;
K:=b+c+d;
m:=a mod 10000;
m:=m div 10;
n:=a mod 100;
n:=n div 1000;
p:=a div 100000;
q:=m+n+p; 
// И так далее...

http://otvet.mail.ru/question/66333085/?point=2
Ответы.Маил.ру
nuff said.

Govnocoder#0xFF, 06 Ноября 2011

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

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

+96

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16

program lucky;
var a0,a1,a2,a3,a4,a5,a6: integer;
begin
  for a0:= 0 to 9 do
    for a1:= 0 to 9 do
      for a2:= 0 to 9 do
        for a3:= 0 to 9 do
          for a4:= 0 to 9 do
            for a5:= 0 to 9 do
              if (a0+a1+a2)=(a3+a4+a5) then
                begin
                  writeln(a0,a1,a2,a3,a4,a5);
                  break;
                end;
  readln;
end.

Поиск всех возможных счастливых билетов (у которых сумма первых трех чисел совпадает с суммой последних трех)

Schrodinger, 04 Ноября 2011

Комментарии (72)

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

+93

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18

Type
  Bool8   = ByteBool;  PBool8   = ^Bool8;
  Bool16  = WordBool;  PBool16  = ^Bool16;
  Bool32  = LongBool;  PBool32  = ^Bool32;
  Bool64  = Boolean64; PBool64  = ^Bool64;
  Int8    = Shortint;  PInt8    = ^Int8;
  Int16   = Smallint;  PInt16   = ^Int16;
  Int32   = Longint;   PInt32   = ^Int32;
  //Int64   = Int64;     PInt64   = ^Int64;
  IntPR   = Int64;     PIntPR   = ^IntPR;
  Word8   = Byte;      PWord8   = ^Word8;
  Word16  = Word;      PWord16  = ^Word16;
  Word32  = LongWord;  PWord32  = ^Word32;
  Word64  = QWord;     PWord64  = ^Word64;
  WordPR  = Word64;    PWordPR  = ^WordPR;
  //Pointer = Pointer;   PPointer = ^Pointer;
  Float32 = Single;    PFloat32 = ^Float32;
  Float64 = Double;    PFloat64 = ^Float64;

AnimeGovno-_-, 02 Ноября 2011

Комментарии (12)

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

+146

1
2
3
4
5

var x,y,z,w,arctan:real;
begin
  Readln(x,y,arctan,z);
  w:=(2+y*y)*(x+y/2)/(y*y+1/(1+y*y))-sqrt(Sqr(Sinarctan(z))+abs(Cos(y)));
  Writeln(w);

Надо посчитать w, скажите плз, где ошибки

dimalolx, 02 Ноября 2011