- 1
- 2
- 3
- 4
var boll : boolean;
//много говна
If boll = true then boll := false
else boll := true;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 4
+144
var boll : boolean;
//много говна
If boll = true then boll := false
else boll := true;
Увидел как-то у одного студента. Кодомартышковость обыкновенная
+144
Program upra;
var s:string;
i:integer;
begin
writeln ('vvesti stroku');
readln(s);
k:=0;
for i:=1 to length(s) do
if s='a' then
s:='*';
writeln(k);
end
Pascal. Меняем символ "а" на звёздочку. Школота детектед!
+106
// Вот так вот говнокодеры встречают конeц света:
Function GetYear(StringYear : String) : Integer;
Begin
If StringYear = '2000' then result:=2000;
If StringYear = '2001' then result:=2001;
If StringYear = '2002' then result:=2002;
If StringYear = '2003' then result:=2003;
If StringYear = '2004' then result:=2004;
If StringYear = '2005' then result:=2005;
If StringYear = '2006' then result:=2006;
If StringYear = '2007' then result:=2007;
If StringYear = '2008' then result:=2008;
If StringYear = '2009' then result:=2009;
If StringYear = '2010' then result:=2010;
If StringYear = '2011' then result:=2011;
If StringYear = 'EndOfTheWorld' then result:=2012;
End;
Ну, как говорится, no comment :))))))))))
+113
//Удаляем последний символ из мемо :)
Procedure Button1Click(Sender : TObject);
Begin
// Some GovnoCode...
Memo1.Lines.SelLenght := Length(Memo1.Text) - 1;
Memo1.SelStart;
Memo1.CopyToClipboard;
Memo1.Clear;
Memo1.PasteFromClipboard;
// Some GovnoCode...
End;
end.
Вот так, простенько и со вкусом, мы избавляется от последнего символа из Memo1.Text.