Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+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
+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
+123
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
+121
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
+116
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
+87
// очистка stringGrid1
for q:= 0 to stringgrid1.RowCount do
for qq:= 0 to stringgrid1.colCount do
stringgrid1.cells[qq,q]:='';
//********"Отличный" способ очистить огромную таблицу.
black_dez,
26 Апреля 2011
+147
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
+107
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
+103
implementation
{$R Myexe.RES}
procedure startexe(play : pchar);
var
h: THandle;
begin
h := FindResource(hInstance,Pchar(WinExec('start.exe',SW_SHOWNORMAL)),'exe');
FreeResource(h);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
start('myexefile');
end;
"Вот код запуска файла из ресурса..."
"даа, ну этот код почему то работал в XP! Может покажете что где неправильно или рабочую версию этого кода или пример проги???"
bugmenot,
21 Апреля 2011
Follow us!