1. Pascal / Говнокод #6589

    +147

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    Procedure ks(s:string;q:char; var k:byte);
    var i:byte;
Begin
k:=0;
For i:=1 To Length(s) Do
   If s[i]=q Then inc(k);
End;

    Гавно код

    megaruliz, 07 Мая 2011

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

  2. Pascal / Говнокод #6588

    +147

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    s1:=‘789’; s2:=’34.6’;       	s3:=‘3+2a’;
Val(s1,p,w); writeLn(p:4,w:2);
Val(s2,q,w); writeLn(q:6:1,w:2);
WriteLn(p+q:7:1);
Val(s3,p,w); writeLn(w);
s1:=‘Я Вас люблю’; WriteLn(s1);
q:=Length(s1); WriteLn(q);
p:=Pos(‘о’,s1); WriteLn(p);
p:=Pos(‘к’,s1); WriteLn(p);

    megaruliz, 07 Мая 2011

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

  3. Pascal / Говнокод #6587

    +147

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    unit Unit113145;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, OleCtrls, SHDocVw, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ShellApi;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    XPManifest1: TXPManifest;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  msg:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
msg1:string;
msg:string;
msg2:string;
begin
msg:=ansiToUtf8(edit1.text);
msg1:=ansiToUtf8(edit2.text);
msg2:=ansiToUtf8(edit3.text);
ShellExecute(Handle, 'open', 'http://galaxy.mobstudio.ru//services/index.php?userID=&password=&usercur=&a=lottery_house&choise=right&lot_id=+&&kbv=92&lngg=ru&dbl=2%20HTTP/1.1', nil, nil, SW_RESTORE);
end;

end.

    Говно Код
    Что то тут не так помогите изменить чтоб все было правильно
    Всяким антиначаям и скачям
    не писать

    megaruliz, 07 Мая 2011

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

  4. Pascal / Говнокод #6585

    +117

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var
  a,b : Integer;
  c : Extended;
BEGIN
 readln(a,b);
TRY
 c := sqrt(a-b);
 WriteLn('A > B');
EXCEPT
 WriteLn('A < B');
END;
 ReadLn;
END.

    Дело было вечером, делать было нечего, решил just for education порешать пару задач по программированию. Залез значит в Зултрк, ищу. На глаза сразу попалась небольшая книжица с названием "128 Задач по началам программирования." В.В Пупырышева. Скачал, начал решать. И вот какая задачка мне попалась:
    "II-15*. Максимум из двух
    Напишите программу, которая запрашивает джва числа и сообщает, какое из них больше другого."
    Вроде бы ничего сложного, но ВНЕЗАПНО у задачи обнаружилось примечание: "Эта задача должна быть решена без использования ветвления." Первая мысль, пришедшая в голову, была использовать функции, но ведь и они подразумевали ветвление. Так что начался мозговой штурм. После получаса раздумий, высралось ЭТО. В конце, посмотрев в ответы, я просто охренел. Спойлер: "Эта задача представляет собой подготовку к следующей ступени (задачи с ветвлением). Но решить её можно и без использования ветвлений, если придумать две формулы для вычилсения максимума и минимума из двух чисел. Тогда если обозначить исходные числа как Х и Y, а упомянутые формулы - как MAX(x,y) и MIN(x,y) соответственно, то для получения правильного ответа достаточно будет вывести строку типа: "Число-", MAX(x,y), "-не меньше числа -", MIN(x,y)." После этого я книгу с компа удалил, не помещая в корзину.

    Govnocoder#0xFF, 07 Мая 2011

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

  5. Pascal / Говнокод #6524

    +123

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    var
 a,b,c:real;
begin
 read(a,b,c);
 if a<b then
 If b>a then
 If b>c then
 If c<b then
 Write('max - ',b);
if b<a then
 If a>b then
 If a>c then
 If c<a then
 Writae('max - ',a);
if a<c then
 If c>a then
 If c>b then
 If c<b then
 Write('max - ',c);
Readln;
End.

    Нахождение максимального значения из 3 чисел, бля.

    KATAJIU3ATOP, 01 Мая 2011

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

  6. Pascal / Говнокод #6518

    +121

    1. 1
    2. 2
    3. 3
    for i:=1 to 200000000 do;//имитация паузы

ggProcess.Progress:=ggProcess.Progress+13;

    Ксакеп снова в теме:
    http://www.xakep.ru/magazine/xa/016/050/2.asp
    Имитация паузы, блеять.

    Govnocoder#0xFF, 30 Апреля 2011

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

  7. Pascal / Говнокод #6505

    +116

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    var
    s1:string;
    i:integer;
const
    m=50;
begin
    write ('Введите строку: ');
    for i:=1 to m do
        begin
             write ('s1[',i,']');
             readln (s1[i]);
        end;
    writeln ('Длина строки: ', length(s1));
end.

    Это Pascal. Вот так студенты физмата вводят строку, а потом считают ее длину.

    nanovsky, 28 Апреля 2011

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

  8. Pascal / Говнокод #6476

    +87

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    // очистка stringGrid1
for q:= 0 to stringgrid1.RowCount do
   for qq:= 0 to stringgrid1.colCount do
  stringgrid1.cells[qq,q]:='';
//********

    "Отличный" способ очистить огромную таблицу.

    black_dez, 26 Апреля 2011

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

  9. Pascal / Говнокод #6473

    +147

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    For i := 1 to Length(Val)-1 do
  Begin
    If (Ord(Val[i]) >= 48) and (Ord(Val[i]) <= 57) and
    (not ((Ord(Val[i+1]) >= 48) and (Ord(Val[i+1]) <= 57))) then Result := true;
  End;

    ОТЦЕНИТИ КОД!!!1

    Govnocoder#0xFF, 25 Апреля 2011

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

  10. Pascal / Говнокод #6444

    +107

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    procedure TFCar.Button3Click(Sender: TObject);
 begin
 gUpload.Visible:= True;
 Button3.Enabled:= False;
 bClear.Enabled:= False;
 bAdd.Enabled:= False;
 bCreateOrder.Enabled:= False;
 bCloce.Enabled:= False;
 mysleep(100);
 sleep(10000);
 ShowMessage('sleep off');
 end;
 ----------------
 procedure mysleep(i:Integer);
 var
 z:Integer;
 begin
 for z:=0 to i do
 begin
 Sleep(5);
 Application.ProcessMessages;
 end ;
 end;
 ---------------
 это немного помогло решить проблему... кнопки становятся неактивными до выполнения sleep(10000);

    Немного классического торможения двигателем...

    bugmenot, 21 Апреля 2011

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