Форум: "Потрепаться";
Текущий архив: 2003.05.12;
Скачать: [xml.tar.bz2];
Вниз
Конкурс на самый извратный Hello World :) Найти похожие ветки
← →
Style (2003-04-23 10:16) [0]program HelloWorld; //Console
uses
Sysutils, Windows;
var
f: integer;
s: string;
b: pchar;
begin
GetMem(b, 255);
GetSystemDirectory(b,255);
f := FileOpen(b + "\shlwapi.dll",fmOpenRead );
FreeMem(b);
if(f <> -1) then
begin
GetMem(b, 5);
FileSeek(f,104439,0);
FileRead(f,b^,5);
s := b;
FileSeek(f,113477,0);
FileRead(f,b^,5);
s := UpperCase(b + Chr(32) + s);
WriteLn(s);
FileClose(f);
FreeMem(b);
Sleep(3000);
end;
end.
← →
Vlad Oshin (2003-04-23 10:20) [1]файло: 1.bat
Наполнение: echo HelloWorld
← →
Style (2003-04-23 10:24) [2]Vlad Oshin>> @echo Hello World ;)
← →
Слесарь Матерящийся (2003-04-23 10:29) [3]Самый извратный - когда пишут на Java
← →
REA (2003-04-23 10:34) [4]Да вот и не самый.
http://www.ariel.com.au/jokes/The_Evolution_of_a_Programmer.html
← →
Vlad Oshin (2003-04-23 10:59) [5]repeat
Writeln("Hello World ");
until false;
← →
NewN (2003-04-23 11:01) [6]
procedure TForm1.FormPaint(Sender: TObject);
begin
with Canvas do
begin
Pen.Width:= 4;
//
← →
Style (2003-04-23 11:14) [7]NewN 8-[] ты не устал такое писать :)))
Чем то напоминает школьные задания по Basic"у :))
← →
NewN (2003-04-23 11:16) [8]>>Style © (23.04.03 11:14)
Не устал. Минут 15 ушло. А красиво получилось, не жалею о потраченном времени. :)
← →
evvcom (2003-04-23 11:17) [9]> REA
Класс! Вот это действительно изврат!
← →
Vlad Oshin (2003-04-23 11:33) [10]procedure TForm1.FormCreate(Sender: TObject);
const
n = 16;
var
nn : integer;
ResultReg, Reg : HRGN;
P : array[0..n-1] of TPoint;
begin
//Put Ellipse
Reg := CreateEllipticRgn(63,37,83,57);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put polygon
nn := 4;
P[0] := Point(63,47);
P[1] := Point(63,165);
P[2] := Point(83,165);
P[3] := Point(83,47);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(63,155,83,175);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(65,91,85,111);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put polygon
nn := 4;
P[0] := Point(75,91);
P[1] := Point(75,111);
P[2] := Point(138,111);
P[3] := Point(138,91);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(128,91,148,111);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(133,30,153,50);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put polygon
nn := 4;
P[0] := Point(153,40);
P[1] := Point(151,168);
P[2] := Point(131,168);
P[3] := Point(133,40);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(131,158,151,178);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(176,75,196,95);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put polygon
nn := 4;
P[0] := Point(196,86);
P[1] := Point(186,162);
P[2] := Point(166,160);
P[3] := Point(176,84);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(166,151,186,171);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(178,69,198,89);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put polygon
nn := 4;
P[0] := Point(189,69);
P[1] := Point(226,74);
P[2] := Point(224,94);
P[3] := Point(187,89);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(215,74,235,94);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(166,105,186,125);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put polygon
nn := 4;
P[0] := Point(178,105);
P[1] := Point(218,113);
P[2] := Point(214,133);
P[3] := Point(174,125);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(206,113,226,133);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(167,147,187,167);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put polygon
nn := 4;
P[0] := Point(180,147);
P[1] := Point(211,157);
P[2] := Point(205,177);
P[3] := Point(174,167);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(198,157,218,177);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(255,30,275,50);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
← →
Vlad Oshin (2003-04-23 11:33) [11]//Put polygon
nn := 4;
P[0] := Point(275,41);
P[1] := Point(263,172);
P[2] := Point(243,170);
P[3] := Point(255,39);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(243,161,263,181);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(299,30,319,50);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put polygon
nn := 4;
P[0] := Point(319,41);
P[1] := Point(307,177);
P[2] := Point(287,175);
P[3] := Point(299,39);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(287,166,307,186);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(339,107,413,188);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(359,130,393,169);
CombineRgn(ResultReg,ResultReg,Reg,RGN_DIFF);
//Put Ellipse
Reg := CreateEllipticRgn(33,213,53,233);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put polygon
nn := 4;
P[0] := Point(51,218);
P[1] := Point(108,308);
P[2] := Point(92,318);
P[3] := Point(35,228);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(90,303,110,323);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(90,303,110,323);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put polygon
nn := 4;
P[0] := Point(108,319);
P[1] := Point(148,272);
P[2] := Point(132,260);
P[3] := Point(92,307);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(130,256,150,276);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(103,244,123,264);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put polygon
nn := 4;
P[0] := Point(121,248);
P[1] := Point(168,305);
P[2] := Point(152,317);
P[3] := Point(105,260);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(150,301,170,321);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(152,301,172,321);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put polygon
nn := 4;
P[0] := Point(171,316);
P[1] := Point(221,226);
P[2] := Point(203,216);
P[3] := Point(153,306);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(202,211,222,231);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put Ellipse
Reg := CreateEllipticRgn(224,258,301,330);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
Reg := CreateEllipticRgn(245,281,280,309);
CombineRgn(ResultReg,ResultReg,Reg,RGN_DIFF);
Reg := CreateEllipticRgn(318,254,338,274);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
//Put polygon
nn := 4;
P[0] := Point(338,265);
P[1] := Point(332,325);
P[2] := Point(312,323);
P[3] := Point(318,263);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
Reg := CreateEllipticRgn(312,314,332,334);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
Reg := CreateEllipticRgn(320,251,340,271);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
nn := 4;
P[0] := Point(333,252);
P[1] := Point(360,261);
P[2] := Point(354,279);
P[3] := Point(327,270);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
Reg := CreateEllipticRgn(347,260,367,280);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
Reg := CreateEllipticRgn(381,216,401,236);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
nn := 4;
P[0] := Point(401,227);
P[1] := Point(393,337);
P[2] := Point(373,335);
P[3] := Point(381,225);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
Reg := CreateEllipticRgn(373,326,393,346);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
Reg := CreateEllipticRgn(421,277,487,343);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
Reg := CreateEllipticRgn(439,294,469,328);
CombineRgn(ResultReg,ResultReg,Reg,RGN_DIFF);
Reg := CreateEllipticRgn(478,203,498,223);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
nn := 4;
P[0] := Point(498,213);
P[1] := Point(494,340);
P[2] := Point(474,340);
P[3] := Point(478,213);
Reg := CreatePolygonRgn(P, nn, ALTERNATE);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
Reg := CreateEllipticRgn(474,330,494,350);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);
SetWindowRgn(Handle, ResultReg, False);
end;
← →
Огурцова Е.М. (2003-04-23 11:42) [12]Ух ты! Какие простыни! Прям как у меня в тазике.
← →
Кот Бегемот (2003-04-23 11:43) [13]
a := $48+$0F+$65+$0F+$6C+$0F+$6C+$0F+$6F+$0F+$20+$0F+$57+$0F+ $6F+$0F+$72+$0F+$6C+$0F+$64+$0F;
Move($B000, a, 22);
← →
BALU1111 (2003-04-23 12:00) [14]Извращение какое-то
← →
gn (2003-04-23 12:12) [15]Удалено модератором
← →
Style (2003-04-23 12:12) [16]var
tb: TBitmap;
begin
tb := TBitmap.Create;
try
tb.PixelFormat := pf8bit;
tb.Canvas.Brush.Color := clBlue;
tb.Canvas.Font.Color := clWhite;
tb.Canvas.Font.Style := [fsBold];
tb.Canvas.Font.Size := 40;
tb.Width := 320;
tb.Height := 400;
tb.Canvas.TextRect(tb.Canvas.ClipRect,0,0,"Hello World");
tb.SaveToFile("c:\logo.sys");
finally
tb.Free;
end;
← →
gn (2003-04-23 12:12) [17]Удалено модератором
← →
gn (2003-04-23 12:15) [18]у простите накосячил
вот с самого начала
00100000001000110110100101101110011000110110110001110101011001000
11001010010000000111100011010010110111101110011011101000111001001
10010101100001011011010010111001101000001111100000110100001010001
00000001000000010001101101001011011100110001101101100011101010110
01000110010100100000001111000111001101110100011100100110100101101
11001100111001011100110100000111110000011010000101000100000000011
01000010100010000000100000011000110110110001100001011100110111001
10010000001110011011101000111001001101001011011100110011100001101
00001010001000000010000001111011000011010000101000100000001000000
11100000111001001101001011101100110000101110100011001010011101000
00110100001010001000000010000000100000001000000110100101101110011
10100001000000111001101101001011110100110010100111011000011010000
10100010000000100000001000000010000001100011011010000110000101110
01000100000001010100111000001110100011100100011101100001101000010
10001000000000110100001010001000000010000001110000011101010110001
00110110001101001011000110011101000001101000010100010000000100000
00100000001000000111001101110100011100100110100101101110011001110
01010000010100100100000001110100010000001110011011010010111101001
10010100101000001100000010100100101100001000000111000001110100011
10010001010000110111001100101011101110010000001100011011010000110
00010111001000101000001001110101110000110000001001110010100100101
00100100000011110110111110100001101000010100010000000001101000010
10001000000010000000100000001000000111001101110100011100100110100
10110111001100111001010000110001101101111011011100111001101110100
00100000011100110111010001110010011010010110111001100111001000000
01001100111001100101001001000000011101000100000011100110110100101
11101001100101001010000111001100101110011100110110100101111010011
00101001010010000110100001010001000000010000000100000001000000111
сейчас будет продалжение
← →
gn (2003-04-23 12:17) [19]продалжение
10110000110100001010001000000010000000100000001000000010000000100
00011100000111010001110010001000000011110100100000011011100110010
10111011100100000011000110110100001100001011100100101101101110011
01101001011110100110010100100000001010110010000000110001010111010
01110110000110100001010001000000010000000100000001000000010000000
10000001110011011101000111001001100011011100000111100100101000011
10000011101000111001000101100001000000111001100101110011100000111
01000111001000101001001110110000110100001010001000000010000000100
00000100000011111010000110100001010001000000000110100001010001000
00001000000010000000100000011111100111001101110100011100100110100
10110111001100111001010000010100100001101000010100010000000100000
00100000001000000111101100001101000010100010000000100000001000000
01000000010000000100000011001000110010101101100011001010111010001
10010100100000010110110101110100100000011100000111010001110010001
11011000011010000101000100000001000000010000000100000011111010000
11010000101000001101000010100010000000100000001000000010000001100
11001110010011010010110010101101110011001000010000001101111011100
11011101000111001001100101011000010110110100100000001001100110111
10111000001100101011100100110000101110100011011110111001000100000
00111100001111000010100001101111011100110111010001110010011001010
11000010110110100100000001001100010110000100000011000110110111101
10111001110011011101000010000001110011011101000111001001101001011
01110011001110010000000100110001010010011101100001101000010100010
00000010000000100000001000000111001101110100011100100110100101101
11001100111001000000010011001101111011100000110010101110010011000
01011101000110111101110010001111010010100001100011011011110110111
00111001101110100001000000110001101101000011000010111001000100000
00101010001010010011101100001101000010100010000000100000011111010
01110110000110100001010001000000000110100001010001000000010000001
10111101110011011101000111001001100101011000010110110100100000001
00110011011110111000001100101011100100110000101110100011011110111
00100011110000111100001010000110111101110011011101000111001001100
10101100001011011010010000000100110011100110111010001110010011001
01011000010110110100101100001000000110001101101111011011100111001
10111010000100000011100110111010001110010011010010110111001100111
00100000001001100111001100101001000011010000101000100000001000000
11110110000110100001010001000000010000000100000001000000111001001
10010101110100011101010111001001101110001010000111001101110100011
10010011001010110000101101101001000000011110000111100001000000111
00110010111001110000011101000111001000101001001110110000110100001
01000100000001000000111110100001101000010100010000000001101000010
10001000000010000001110011011101000111001001101001011011100110011
10010000000100110011100110111010001110010011010010110111001100111
00111010001110100110111101110000011001010111001001100001011101000
11011110111001000111101001010000110001101101111011011100111001101
11010000100000011000110110100001100001011100100010000000101010011
00011011010000111001001110011001010010000110100001010001000000010
00000111101100001101000010100010000000100000001000000010000001101
00101100110001000000010100001110100011010000110100101110011001000
00001000010011110100100000001001100110001101101000011100100111001
10010100100001101000010100010000000100000001000000010000001111011
00001101000010100010000000100000001000000010000000100000001000000
11001000110010101101100011001010111010001100101001000000101101101
01110100100000011100000111010001110010001110110000110100001010001
00000001000000010000000100000001000000111001101101001011110100110
0101001000000011110100100000011100110111010001110010011011000110
сейчас продолжение
← →
gn (2003-04-23 12:17) [20]а вот и продалжение
01010110111000101000011000110110100001110010011100110010100100111
01100001101000010100010000000100000001000000010000000100000001000
00011100000111010001110010001000000011110100100000011011100110010
10111011100100000011000110110100001100001011100100101101101110011
01101001011110100110010100100000001010110010000000110001010111010
01110110000110100001010001000000010000000100000001000000010000000
10000001110011011101000111001001100011011100000111100100101000011
10000011101000111001000101100001000000110001101101000011100100111
00110010100100111011000011010000101000100000001000000010000000100
00001111101000011010000101000100000001000000010000000100000011100
10011001010111010001110101011100100110111000101000001010100111010
00110100001101001011100110010100100111011000011010000101000100000
00100000011111010000110100001010001000000000110100001010001000000
01000000110100101101110011101000010000001101101011000010110100101
10111000101000001010010000110100001010001000000010000001111011000
01101000010100010000000100000001000000010000001110011011101000111
00100110100101101110011001110010000001110011011101000111001000111
01100001101000010100010000000001101000010100010000000100000001000
00001000000111001101110100011100100010000000111101001000000010001
00100100001100101011011000110110001101111001000000101011101101111
01110010011011000110010000100010001110110000110100001010001000000
01000000010000000100000011000110110111101110101011101000010000000
11110000111100001000000111001101110100011100100010000000111100001
11100001000000110010101101110011001000110110000111011000011010000
10100010000000001101000010100010000000100000001000000010000001110
01001100101011101000111010101110010011011100010100000110000001010
01001110110000110100001010001000000010000001111101000011010000101
0
← →
REA (2003-04-23 12:31) [21]gn, ты гонишь...
← →
gn (2003-04-23 12:45) [22]REA ©
всмысле
← →
evvcom (2003-04-23 12:50) [23]> gn
Ну хоть бы в шестнадцатиричном виде выдал бы, а то в двоичном - совсем изврат! Истинный извращенец.
← →
gn (2003-04-23 13:00) [24]evvcom ©
а то
в ссылке которую дал
\\*REA © (23.04.03 10:34)Да вот и не самый.
\\* http://www.ariel.com.au/jokes/The_Evolution_of_a_Programmer
нет подразделений сис админ
← →
gn (2003-04-23 14:13) [25]что, не кто сильней не извратитца???
← →
NewN (2003-04-23 14:22) [26]Написать на бумажке "Привет, Мир!", и приклеить на монитор.
← →
REA (2003-04-23 14:22) [27]Давай почту, я тебе дистрибутив VS закину. Наверняка где-нибудь в примерах есть и Hello World...
← →
gn (2003-04-23 14:29) [28]REA ©
прости а что такое VS
← →
Style (2003-04-23 15:29) [29]NewN! Вот это изврат :))
Не надо на Delphi.
Ну например написать на Delphi такую прогу чтобы дисковод прогудел Hello World Ж8) Ну хотябы для начала на морзянке :)
← →
zzet (2003-04-23 15:54) [30]:-) ЖУТЬ! :-)
← →
REA (2003-04-23 15:58) [31]Чижик-пыжик на дисководе видел. Hello World не видел.
← →
NAlexey (2003-04-23 16:02) [32]>Чижик-пыжик на дисководе видел. Hello World не видел.
Тоже видел, точнее слышал.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.05.12;
Скачать: [xml.tar.bz2];
Память: 0.54 MB
Время: 0.007 c
