Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+147
Program n_g;
uses crt;
Var c:char; st:string[50]; k: byte;
BEGIN clrscr;
k:=255;
Write('Vvedite tekst:');
read(c);
Repeat
While(c=' ') and (c<>#13 Do Read(c);
st:='';
While(c<>' ') and (c<>#13 Do Begin
st:=st+c;
Read(c); End;
WriteLn('st=',st);
If ord(st[0])<k Then k:=ord(st[0]);
Until c=#13;
WriteLn('k= ',k:3); readLn
END.Так физматы находят длинну самого короткого слова
megaruliz,
07 Мая 2011
+147
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
+147
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
+147
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
+159
if (!$vid['video_code']) {
$vars['player'] = 'Онлайн промотр недоступен (не указан плеер)';
if ($vid['image'] != '') {
$vars['image'] = RealPath2($config['video']['images_dir'] . SafeDB($vid['image'], 255, str));
$vars['thumb_image'] = RealPath2($config['video']['images_dir'] . 'thumbs/' . SafeDB($vid['image'], 255, str));
} else {
$vars['image'] = false;
}
} else {
if (!$user->Auth and $config['video']['hide_video_guest']) {
$vars['player'] = '<a href="index.php?name=user&op=registration">Зарегистрируйтесь для просмотра видео онлайн.</a>';
if ($vid['image'] != '') {
$vars['image'] = RealPath2($config['video']['images_dir'] . SafeDB($vid['image'], 255, str));
$vars['thumb_image'] = RealPath2($config['video']['images_dir'] . 'thumbs/' . SafeDB($vid['image'], 255, str));
} else {
$vars['image'] = false;
}
} else {
$vars['player'] = $vid['video_code'];
$vars['image'] = false;
}
}
Мартин,
07 Мая 2011
+117
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
+155
class mysql_act extends main {
function mysql_count($zap, $m) {
$q = mysql_query($zap);
if ($m == 'count') {
$qc = mysql_num_rows($zap);
} else
$qc = mysql_fetch_array($q);
return $qc;
}
function mysql_method($method ,$arr, $db, $wh) {
$i = 0;
foreach ($arr as $k => $v) {
$i++;
if (count($arr)==$i)
$par .= '`'. $k .'`=\''.$v.'\'';
else
$par .= '`'. $k .'`=\''.$v.'\' &&';
}
$n=0;
foreach ($wh as $k => $v) {
$n++;
if (count($arr)==$n)
$parw .= '`'. $k .'`=\''.$v.'\'';
else
$parw .= '`'. $k .'`=\''.$v.'\' &&';
}
switch ($method) {
case 'SELECT':
$req = 'SELECT * FROM '. $db .' WHERE '. $par;
break;
case 'UPDATE':
$req = 'UPDATE '.$db.' SET '.$parw.' WHERE '. $par;
}
$q['req'] = mysql_query($req);
$q['arr'] = mysql_fetch_array($q['req']);
return $q;
}
skad0,
07 Мая 2011
+162
// first wtf part:
if (__captcha.ammount > 0) {
var captcha = new Array();
for (var i in __captcha.queue) {
captcha = __captcha.queue[i];
delete __captcha.queue[i];
break;
}
__captcha.ammount--;
__update();
return captcha;
}
// second wtf part:
__captcha.queue[__captcha.ammount++] = new Array(
$("form.__LBH-form #recaptcha_challenge_field").val(),
$("form.__LBH-form #recaptcha_response_field").val()
);
Нашёл в каком-то кривом юзерскрипте.
Первое -- это такая хитрая реализация pop. Видимо, простой вызов array.pop() автору чем-то не угодил.
Второе -- вообще чудо. Вместо array.length автор зачем-то создал свой ammount (заметьте, две "m"!), а вместо array.append() юзает какую-то кривую шнягу.
popoffka,
07 Мая 2011
+153
$('a ul.switcher').click(function(){Писал спросони, минут 5 не мог понять, почему не работает этот код :)
Jetti,
07 Мая 2011
+160
#include <stdio.h>
#include <boost/typeof/typeof.hpp>
template<class T>
struct __macro
{
__declspec(thread) static T _;
};
template<class T>
T __macro<T>::_;
#define def(c) (__macro<typeof(c)>::_ = c)
#define acc(c) (__macro<typeof(c)>::_)
#define is_digit(x) (def(x),(acc(x) >= '0' && acc(x) <= '9') ? true : false)
#define is_bugit(x) ((x >= '0' && x <= '9') ? true : false)
int main()
{
char hj;
hj = '9';
printf("test->") && is_bugit(hj++) && printf("ok\n") || puts("no");
hj = '9';
printf("test->") && is_digit(hj++) && printf("ok\n") || puts("no");
}
e113c08d6cf14afb,
07 Мая 2011
Follow us!