VPF::HelloWorld - Форум программистов

3,14

Дата 24.10.2005, 15:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1614
Регистрация: 18.6.2004
Где: Н. Новгород

Небольшой background:
У нас на работе человек попросил примеры программ для студентов на C/C++/Java, но в результате небольшой ошибки все решили что ему нужен вариант программы HelloWorld на несколько страниц.

Собственно6 предлагаю устроить соревнование на самый крутой вариант написания HelloWorld.

Вот мой вариант:

Код


public class HelloWorld
{
 public static String out = "Hello World!";
 
 public static class LetterHandler
 {
   public static String getLetter() 
   {
    return "";
   };
 }
 
 public static class Letter0Handler extends LetterHandler
 {
  public static String getLetter()
  {
   return "H";
  }
 }
 
 public static class Letter1Handler extends LetterHandler
 {
  public static String getLetter()
  {
   return "e";
  }
 }
 
 public static class Letter2Handler extends LetterHandler
 {
  public static String getLetter()
  {
   return "l";
  }
 }
 
 public static class Letter3Handler extends LetterHandler
 {
  public static String getLetter()
  {
   return "l";
  }
 }
 
 public static class Letter4Handler extends LetterHandler
 {
  public static String getLetter()
  {
   return "o";
  }
 }
 
 public static class Letter5Handler extends LetterHandler
 {
  public static String getLetter()
  {
   return " ";
  }
 }
 
 public static class Letter6Handler extends LetterHandler
 {
  public static String getLetter()
  {
   return "W";
  }
 }
 
 public static class Letter7Handler extends LetterHandler
 {
  public static String getLetter()
  {
   return "o";
  }
 }
 
 public static class Letter8Handler extends LetterHandler
 {
  public static String getLetter()
  {
   return "r";
  }
 }
 
 public static class Letter9Handler extends LetterHandler
 {
  public static String getLetter()
  {
   return "l";
  }
 }
 
 public static class Letter10Handler extends LetterHandler
 {
  public static String getLetter()
  {
   return "d";
  }
 }
 
 public static class Letter11Handler extends LetterHandler
 {
  public static String getLetter()
  {
   return "!";
  }
 }
 
 public static void main(String [] args) throws Exception
 {
  for(int i = 0; i < out.length(); i++)
  {
   Class classIdentifier = Class.forName("HelloWorld$Letter" + i + "Handler");
   System.out.print(classIdentifier.getMethod("getLetter", null).invoke(null, null));
  }
  System.out.println(" :)");
 }
}

--------------------

Может быть, это только мой бред,
Может быть, жизнь не так хороша,
Может быть, я не выйду на свет,
Но я летал, когда пела душа...

Poseidon

Дата 24.10.2005, 16:06 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

А на Паскуале можно??? smile

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

MuToGeN

Дата 24.10.2005, 16:08 (ссылка)

(нет голосов)

Загрузка ...

Лесник

Профиль
Группа: Модератор
Сообщений: 4379
Регистрация: 15.8.2002
Где: Москва

Код

<?
$debug=false;

function dbg($string,$success){
   global $debug;
   if($debug){
       switch($success){
           case 1:
               echo "<font color=\"green\">";
               break;
           case 0:
               echo "<font color=\"red\">";
               break;
       }
       echo $string."</font><br />\n";
   }
}

class _char{
   var $asciiCode;
   var $char;
   
   function initFromChar($c){
       if($this->char==NULL){    
           dbg("<i>_char:</i> Initializing _char from character...",1);
       }else{
           dbg("<i>_char:</i> Reinitializing _char from character...",1);
       }
       if(strlen($c)!=1){
           dbg("<i>_char:</i> Failed to initialize: given parameter is not a character. Returning false.",0);
           return false;
       }
       $this->char=$c;
       $this->asciiCode=ord($c);
       dbg("<i>_char:</i> Initialized. Returning true.",1);
       return true;
   }
   
   function initFromAsciiCode($c){
       if($this->char==NULL){    
           dbg("<i>_char:</i> Initializing _char from ascii code...",1);
       }else{
           dbg("<i>_char:</i> Reinitializing _char from ascii code...",1);
       }
       if(!ereg("^[0-9]{1,}$",$c)){
           dbg("<i>_char:</i> Failed to initialize: given parameter is not a number. Returning false.",0);
           return false;
       }
       if($c>255||$c<0){
           dbg("<i>_char:</i> Failed to initialize: given number is out of range. Returning false.",0);
           return false;
       }
       $this->asciiCode=$c;
       $this->char=chr($c);
       dbg("<i>_char:</i> Initialized. Returning true.",1);
       return true;
   }
   
   function init($c,$type=NULL){
       if($this->char==NULL){    
           dbg("<i>_char:</i> Initializing _char...",1);
       }else{
           dbg("<i>_char:</i> Reinitializing _char...",1);
       }
       if($type==NULL){
           dbg("<i>_char:</i> Type not specified, default is character.",1);
           $type="char";
       }
       switch($type){
           case "char":
               dbg("<i>_char:</i> Will be initialized as character.",1);
               return $this->initFromChar($c);
           case "ascii":
               dbg("<i>_char:</i> Will be initialized as ascii code.",1);
               return $this->initFromAsciiCode($c);
           default:
               dbg("<i>_char:</i> Invalid type specified. Returning false.",0);
               return false;
       }
   }
   
   function getChar(){
       dbg("<i>_char:</i> getChar called...",1);
       if($this->char==NULL){
           dbg("<i>_char:</i> Instance not initialized. Returning false.",0);
           return false;
       }
       dbg("<i>_char:</i> Returning character.",1);
       return $this->char;
   }
   
   function _char(){
       $this->asciiCode=NULL;
       $this->char=NULL;
       dbg("<i>_char:</i> Instance of _char created.",1);
   }
}

class _string{
   var $lenght;
   var $string;
   
   function _string(){
       $this->lenght=NULL;
       $tihis->string=Array();
       dbg("<i>_string:</i> Instance of _string created.",1);
   }
   
   function appendChar($c){
       dbg("<i>_string:</i> Appending a character to _string instance...",1);
       $char=new _char;
       if(!$char->init($c)){
           dbg("<i>_string:</i> Initialization of _char instance failed. Returning false.",0);
           return false;
       }
       if($this->lenght==NULL){
           $this->lenght=0;
       }
       $this->string[$this->lenght]=$char;
       $this->lenght++;
       dbg("<i>_string:</i> Appended successfully. Returning true.",1);
       return true;
   }

   function loadString($s){
       dbg("<i>_string:</i> Loading string...",1);
       if($this->lenght!=0&&$this->lenght!=NULL){
           dbg("<i>_string:</i> Deleting previous string.",1);
           for($i=0;$i<$this->lenght;$i++){
               unset($this->string[$i]);
           }
       }
       for($i=0;$i<strlen($s);$i++){
           if(!$this->appendChar($s[$i])){
               dbg("<i>_string:</i> Failed to append character. Returning false.",0);
               return false;
           }
       }
       dbg("<i>_string:</i> String loaded. Returning true.",1);
       return true;
   }
   
   function printString(){
       dbg("<i>_string:</i> Printing the string...",1);
       if($this->lenght==NULL){
           dbg("<i>_string:</i> String not initialized. Returning false.",0);
           return false;
       }
       for($i=0;$i<$this->lenght;$i++){
           $c=$this->string[$i]->getChar();
           if($c===false){
               dbg("<i>_string:</i> Failed to read character. Returning false.",0);
               return false;
           }
           echo $c;
       }
       dbg("<i>_string:</i> String printed. Returning true.",1);
       return true;
   }
}

class _izvratNaTemuHelloWorld{
   var $hwString;
   
   function _izvratNaTemuHelloWorld(){
       dbg("<i>_izvratNaTemuHelloWorld:</i> Instance created.",1);
       $this->hwString=new _string;
   }
   
   function init($a){
       dbg("<i>_izvratNaTemuHelloWorld:</i> Initializing...",1);
       if(sizeof($a)==1){
           dbg("<i>_izvratNaTemuHelloWorld:</i> Given parameter is not an array. Returning false.",0);
           return false;
       }
       for($i=0;$i<sizeof($a);$i++){
           if($a[$i]-$i<0){
               $a[$i]=chr($a[$i]-$i+256);
           }else{
               $a[$i]=chr($a[$i]-$i);
           }
           $x=$a[$i].$x;
       }
       if(!$this->hwString->loadString($x)){
           dbg("<i>_izvratNaTemuHelloWorld:</i> Failed to load string. Returning false.",0);
           return false;
       }
       dbg("<i>_izvratNaTemuHelloWorld:</i> Initialized successfully. Returning true.",1);
       return true;
   }
   
   function printHelloWorld(){
       dbg("<i>_izvratNaTemuHelloWorld:</i> Attempting to print Hello World...",1);
       if(!$this->hwString->printString()){
           dbg("<i>_izvratNaTemuHelloWorld:</i> Failed to print string. Returning false",0);
           return false;
       }
       dbg("<i>_izvratNaTemuHelloWorld:</i> Hello World printed sucessfully. Returning true.",1);
       return true;
   }
}
$hw=new _izvratNaTemuHelloWorld;
$helloWorldString=Array(33,101,110,117,115,92,38,118,116,117,111,83);
if(!$hw->init($helloWorldString)){
   dbg("<i>main:</i> Failed to init _izvratNaTemuHelloWorld instance.",0);
}else{
   dbg("<i>main:</i> _izvratNaTemuHelloWorld instance initialized successfully.",0);
}
if(!$hw->printHelloWorld()){
   dbg("<i>main:</i> Failed to print Hello World.",0);
}else{
   dbg("<i>main:</i> Hello World printed successfully.",1);
}
?>

Добавлено @ 16:08
PHP, 214 строк

--------------------

Three pings for the token rings,
Five pings for the UNIX machines,
Hundred pings for the broken links,
One special ping to check them all
Through Simple Network Management Protocol!

Mayk

Дата 24.10.2005, 16:32 (ссылка)

(нет голосов)

Загрузка ...

^аВаТаР^ сообщение>>

Профиль
Группа: Участник
Сообщений: 2616
Регистрация: 22.5.2005
Где: за границей разум а

C++

Код


#include <stdio.h>
#include <iostream>
using namespace std;

struct Hello
{
        static int h;
        static int* b;
        static int c[];
        Hello(){
                printf("%c",h);
                if(b-c != 5){
                        h += *b++;
                        Hello();
                }
        }
};
int Hello::h = 'h';
int* Hello::b = Hello::c;


template<int j>
int aa()
{
        return j;
}

template<int j>
int bb()
{
        return bb<j-1>()+j;
}

template<>
int bb<1>()
{
        return 1;
}



int Hello::c[] = {aa<-3>(),1+bb<3>(),0,3,-bb<12>()+aa<-1>()};

struct World{
        char j;
        World(){
                j='w';
                World& w = *this;
                printf("%c",*w);
                printf("%c",*w++++++++++++++++);
                printf("%c",*w------);
                printf("%c",*w++++++++++++);
                printf("%c",*w++++++++++++++++);
        }

        char operator * (){return j;}

        World& operator++(int){
                --j;return *this;
        }

        World& operator--(int){
                ++j;return *this;
        }
};

struct HelloWorld : Hello, World
{
        ~HelloWorld(){
                cout << endl;
        }
};


int main()
{
        delete new HelloWorld();
}

--------------------

Здесь был кролик. Но его убили.
Человеки < кроликов, йа считаю.

3,14

Дата 25.10.2005, 09:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1614
Регистрация: 18.6.2004
Где: Н. Новгород

Цитата(Poseidon @ 24.10.2005, 16:06)

А на Паскуале можно???

Конечно, валяй.

--------------------

Mayk

Дата 25.10.2005, 09:44 (ссылка)

(нет голосов)

Загрузка ...

^аВаТаР^ сообщение>>

Профиль
Группа: Участник
Сообщений: 2616
Регистрация: 22.5.2005
Где: за границей разум а

Код


#include <stdio.h>

int main(int argc, char** argv)
{
        return printf("%c%c\n",printf("%c",(printf("%c",fputc(printf("%c",fputc((1<<4)+putchar(printf("%c",107+printf("%c",107+printf("%c",printf("%c",'h')+100)))+110)-95,stdout)+87)+(~0x11) & 0x7f,stdout) ^ atoi("29"))-149)&0xff),'d');
}

--------------------

Здесь был кролик. Но его убили.
Человеки < кроликов, йа считаю.

Ignat

Дата 25.10.2005, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Флудератор

Профиль
Группа: Экс. модератор
Сообщений: 4030
Регистрация: 19.4.2004
Где: غيليندزيك مدينة

Цитата(Mayk @ 25.10.2005, 10:44)

А ты её запускал? smile

--------------------

Теперь при чем :P

Mayk

Дата 25.10.2005, 10:00 (ссылка)

(нет голосов)

Загрузка ...

^аВаТаР^ сообщение>>

Профиль
Группа: Участник
Сообщений: 2616
Регистрация: 22.5.2005
Где: за границей разум а

ага.
у меня hello world вывела %)

--------------------

Здесь был кролик. Но его убили.
Человеки < кроликов, йа считаю.

Ignat

Дата 25.10.2005, 10:12 (ссылка)

(нет голосов)

Загрузка ...

Флудератор

Профиль
Группа: Экс. модератор
Сообщений: 4030
Регистрация: 19.4.2004
Где: غيليندزيك مدينة

Цитата(Mayk @ 25.10.2005, 11:00)

ага.
у меня hello world вывела %)

Тогда я четто туплю %(

--------------------

Теперь при чем :P

MuToGeN

Дата 25.10.2005, 10:19 (ссылка)

(нет голосов)

Загрузка ...

Лесник

Профиль
Группа: Модератор
Сообщений: 4379
Регистрация: 15.8.2002
Где: Москва

угу
тоже оттестил, hello world пишет

--------------------

Three pings for the token rings,
Five pings for the UNIX machines,
Hundred pings for the broken links,
One special ping to check them all
Through Simple Network Management Protocol!

MuToGeN

Дата 26.10.2005, 11:02 (ссылка)

(нет голосов)

Загрузка ...

Лесник

Профиль
Группа: Модератор
Сообщений: 4379
Регистрация: 15.8.2002
Где: Москва

hello world
C++ for Symbian OS
© не мое

Код


#include <eikapp.h>
#include <eikdoc.h>
#include <eikappui.h>

class CHelloWorldAppUi;
class CEikApplication;
class CHelloWorldAppView;

class CHelloWorldApplication : public CEikApplication
    {
        public:
            TUid AppDllUid() const;
        protected:
            CApaDocument* CreateDocumentL();
    };

class CHelloWorldDocument : public CEikDocument
    {
        public:
            static CHelloWorldDocument* NewL(CEikApplication& aApp);
            static CHelloWorldDocument* NewLC(CEikApplication& aApp);
            ~CHelloWorldDocument(){};
        public:
            CEikAppUi* CreateAppUiL();
        private:
            void ConstructL() {};
            CHelloWorldDocument(CEikApplication& aApp){};
    };

class CHelloWorldAppUi : public CEikAppUi
    {
        public:
                void ConstructL();
                CHelloWorldAppUi(){};
                ~CHelloWorldAppUi(){};
    };

static const TUid KUidHelloWorldApp = {0x10005B91};

GLDEF_C TInt E32Dll(TDllReason )
    {
    return KErrNone;
    }

EXPORT_C CApaApplication* NewApplication() 
    {
    return (new CHelloWorldApplication);
    }

CApaDocument* CHelloWorldApplication::CreateDocumentL()
    {  
    CApaDocument* document = CHelloWorldDocument::NewL(*this);
    return document;
    }

TUid CHelloWorldApplication::AppDllUid() const
    {
    return KUidHelloWorldApp;
    }
    
CHelloWorldDocument* CHelloWorldDocument::NewL(CEikApplication& aApp)
    {
    CHelloWorldDocument* self = NewLC(aApp);
    CleanupStack::Pop(self);
    return self;
    }

CHelloWorldDocument* CHelloWorldDocument::NewLC(CEikApplication& aApp)
    {
    CHelloWorldDocument* self = new (ELeave) CHelloWorldDocument(aApp);
    CleanupStack::PushL(self);
    self->ConstructL();
    return self;
    }

CEikAppUi* CHelloWorldDocument::CreateAppUiL()
    {
    CEikAppUi* appUi = new (ELeave) CHelloWorldAppUi;
    return appUi;
    }

void CHelloWorldAppUi::ConstructL()
    {
    BaseConstructL();

    _LIT(message,"Hello!");
    CAknInformationNote* informationNote = new (ELeave) CAknInformationNote;
    informationNote->ExecuteLD(message);
    }

--------------------

Three pings for the token rings,
Five pings for the UNIX machines,
Hundred pings for the broken links,
One special ping to check them all
Through Simple Network Management Protocol!

~FoX~

Дата 26.10.2005, 12:13 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Код


procedure TForm1.Button1Click(Sender: TObject);
const
  h: integer = 19;
  w: integer = 4;
  c: integer = 5;
begin
  with Form1.Canvas do begin
    MoveTo(c, w); LineTo(c, h);
    MoveTo(c, h-6); LineTo(c*3, h-6);
    MoveTo(c+9, w); LineTo(c+9, h);
    MoveTo(c*4, w); LineTo(c+9, h);
    MoveTo(c+15, w); LineTo(c+21, h);
    MoveTo(c+21, w); LineTo(c+21, h);
    MoveTo(c+21, h); LineTo(c+31, h);
    MoveTo(c+41, w); LineTo(c+43, h); LineTo(c+47, w+2); LineTo(c+51, h); LineTo(c*12, w);
    MoveTo(c+67, w); LineTo(c+67, h);
    MoveTo(c+67, w*3); LineTo(c+77, h);
    MoveTo(c+77, w); LineTo(c+77, h); LineTo(c+87, h);
    MoveTo(c+97, w); LineTo(c+97, h);
    Ellipse(c+87, c+5, c+97, h); Ellipse(c+67, w, c+77, c+9); Ellipse(c+29, w, c+41, h); Ellipse(c*12, w, c+67, h);
  end;
end;

Вот это наш метод !!! smile

Это сообщение отредактировал(а) ~FoX~ - 26.10.2005, 12:14

--------------------

…множественность никогда не следует полагать без необходимости…

Ignat

Дата 26.10.2005, 12:14 (ссылка)

(нет голосов)

Загрузка ...

Флудератор

Профиль
Группа: Экс. модератор
Сообщений: 4030
Регистрация: 19.4.2004
Где: غيليندزيك مدينة

~FoX~, скромно как-то smile

--------------------

Теперь при чем :P

~FoX~

Дата 26.10.2005, 12:16 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Ignat
А я вообще мальчик скромный такой, прямолинейный.....судя по коду smile

--------------------

…множественность никогда не следует полагать без необходимости…

MuToGeN

Дата 26.10.2005, 13:28 (ссылка)

(нет голосов)

Загрузка ...

Лесник

Профиль
Группа: Модератор
Сообщений: 4379
Регистрация: 15.8.2002
Где: Москва

ну уж если про графические варианты...
© тоже не мое, на G-Code

Код

%
O1000
(PROGRAM NAME - HELLOWORLD)
(DATE=DD-MM-YY - 30-06-05 TIME=HH:MM - 19:37)
N10G20
N20G0G17G40G49G80G90
/N30G91G28Z0.
/N40G28X0.Y0.
/N50G92X0.Y0.Z0.
( 1/16 FLAT ENDMILL TOOL - 1 DIA. OFF. - 1 LEN. - 1 DIA. - .0625)
(CONTOUR)
N60T1M6
N70G0G90X0.Y1.A0.S5000M3
N80G43H1Z.5
N90Z.25
N100G1Z-.005F2.
N110Y0.F20.
N120G0Z.5
N130X.5
N140Z.25
N150G1Z-.005F2.
N160Y1.F20.
N170G0Z.5
N180Y.6106
N190Z.25
N200G1Z-.005F2.
N210X0.F20.
N220G0Z.5
N230X.6157Y.4712
N240Z.25
N250G1Z-.005F2.
N260X.6039Y.4135F20.
N270X.6Y.351
N280X1.1
N290G3X1.0098Y.6202R.4333
N300X.8941Y.6971R.2625
N310X.7255Y.6538R.1837
N320X.6157Y.4712R.332
N330G0Z.5
N340X.6Y.351
N350Z.25
N360G1Z-.005F2.
N370X.6039Y.2885F20.
N380G3X.7255Y.0481R.385
N390X.9745R.1853
N400X1.0843Y.2308R.332
N410G0Z.5
N420X1.2039Y0.
N430Z.25
N440G1Z-.005F2.
N450Y1.F20.
N460G0Z.5
N470X1.3098
N480Z.25
N490G1Z-.005F2.
N500Y0.F20.
N510G0Z.5
N520X1.4706Y.125
N530Z.25
N540G1Z-.005F2.
N550X1.502Y.0817F20.
N560G3X1.6176Y.0048R.2625
N570X1.7863Y.0481R.1837
N580X1.9118Y.351R.3957
N590X1.8216Y.6202R.4333
N600X1.7059Y.6971R.2625
N610X1.5373Y.6538R.1837
N620X1.4157Y.4135R.358
N630X1.4706Y.125R.4611
N640G0Z.5
N650X1.9853Y0.
N660Z.25
N670G1Z-.005F2.
N680X2.0422Y.1442F20.
N690G0Z.5
N700X2.5706Y1.
N710Z.25
N720G1Z-.005F2.
N730X2.6961Y0.F20.
N740X2.8216Y1.
N750X2.9451Y0.
N760X3.0706Y1.
N770G0Z.5
N780X3.2961Y.6538
N790Z.25
N800G1Z-.005F2.
N810X3.2608Y.6202F20.
N820G3X3.1745Y.2885R.4408
N830X3.2961Y.0481R.385
N840X3.5451R.1853
N850X3.6706Y.351R.3957
N860X3.5804Y.6202R.4333
N870X3.4647Y.6971R.2625
N880X3.2961Y.6538R.1837
N890G0Z.5
N900X3.7461Y.7019
N910Z.25
N920G1Z-.005F2.
N930Y0.F20.
N940G0Z.5
N950Y.3654
N960Z.25
N970G1Z-.005F2.
N980X3.7637Y.4663F20.
N990G2X3.8422Y.6587R.4948
N1000X3.9167Y.7019R.0929
N1010G1X4.0755
N1020G2X4.15Y.6587R.0929
N1030X4.1951Y.5769R.246
N1040G0Z.5
N1050X4.3255Y1.
N1060Z.25
N1070G1Z-.005F2.
N1080Y0.F20.
N1090G0Z.5
N1100X4.9275
N1110Z.25
N1120G1Z-.005F2.
N1130Y1.F20.
N1140G0Z.5
N1150X5.0314
N1160Z.25
N1170G1Z-.005F2.
N1180Y.2981F20.
N1190G0Z.5
N1200X4.9275Y.274
N1210Z.25
N1220G1Z-.005F2.
N1230X4.8941Y.1731F20.
N1240G2X4.7627Y.0192R.3255
N1250X4.5529Y.0481R.1862
N1260X4.4314Y.2885R.358
N1270X4.5176Y.6202R.4408
N1280X4.6333Y.6971R.2625
N1290X4.802Y.6538R.1837
N1300X4.8941Y.5288R.3457
N1310G1X4.9275Y.4279
N1320G0Z.5
N1330X5.0314Y.149
N1340Z.25
N1350G1Z-.005F2.
N1360Y0.F20.
N1370G0Z.5
N1380M5
N1390G91G28Z0.
N1400G28X0.Y0.A0.
N1410M30
%

Добавлено @ 13:32
Redcode:

Код

; Hello World in Redcode
; Should work with any MARS >= ICWS-86
; (with 128x64 gfx core support, of course!)
;
Start   MOV     0,2455
        MOV     0,2458
        MOV     0,2459
        MOV     0,2459
        MOV     0,2459
        MOV     0,2459
        MOV     0,2459
        MOV     0,2460
        MOV     0,2465
        MOV     0,2471
        MOV     0,2471
        MOV     0,2471
        MOV     0,2479
        MOV     0,2482
        MOV     0,2484
        MOV     0,2484
        MOV     0,2484
        MOV     0,2486
        MOV     0,2486
        MOV     0,2486
        MOV     0,2486
        MOV     0,2488
        MOV     0,2493
        MOV     0,2493
        MOV     0,2493
        MOV     0,2493
        MOV     0,2497
        MOV     0,2556
        MOV     0,2559
        MOV     0,2560
        MOV     0,2565
        MOV     0,2570
        MOV     0,2575
        MOV     0,2578
        MOV     0,2585
        MOV     0,2588
        MOV     0,2589
        MOV     0,2592
        MOV     0,2593
        MOV     0,2596
        MOV     0,2597
        MOV     0,2603
        MOV     0,2605
        MOV     0,2608
        MOV     0,2667
        MOV     0,2670
        MOV     0,2671
        MOV     0,2676
        MOV     0,2681
        MOV     0,2686
        MOV     0,2689
        MOV     0,2696
        MOV     0,2699
        MOV     0,2700
        MOV     0,2703
        MOV     0,2704
        MOV     0,2707
        MOV     0,2708
        MOV     0,2714
        MOV     0,2716
        MOV     0,2719
        MOV     0,2778
        MOV     0,2778
        MOV     0,2778
        MOV     0,2778
        MOV     0,2778
        MOV     0,2779
        MOV     0,2779
        MOV     0,2779
        MOV     0,2782
        MOV     0,2787
        MOV     0,2792
        MOV     0,2795
        MOV     0,2802
        MOV     0,2805
        MOV     0,2806
        MOV     0,2809
        MOV     0,2810
        MOV     0,2810
        MOV     0,2810
        MOV     0,2810
        MOV     0,2812
        MOV     0,2818
        MOV     0,2820
        MOV     0,2823
        MOV     0,2882
        MOV     0,2885
        MOV     0,2886
        MOV     0,2891
        MOV     0,2896
        MOV     0,2901
        MOV     0,2904
        MOV     0,2911
        MOV     0,2912
        MOV     0,2913
        MOV     0,2914
        MOV     0,2917
        MOV     0,2918
        MOV     0,2919
        MOV     0,2922
        MOV     0,2928
        MOV     0,2930
        MOV     0,2933
        MOV     0,2992
        MOV     0,2995
        MOV     0,2996
        MOV     0,3001
        MOV     0,3006
        MOV     0,3011
        MOV     0,3014
        MOV     0,3021
        MOV     0,3022
        MOV     0,3023
        MOV     0,3024
        MOV     0,3027
        MOV     0,3028
        MOV     0,3030
        MOV     0,3032
        MOV     0,3038
        MOV     0,3040
        MOV     0,3103
        MOV     0,3106
        MOV     0,3107
        MOV     0,3107
        MOV     0,3107
        MOV     0,3107
        MOV     0,3107
        MOV     0,3108
        MOV     0,3108
        MOV     0,3108
        MOV     0,3108
        MOV     0,3108
        MOV     0,3109
        MOV     0,3109
        MOV     0,3109
        MOV     0,3109
        MOV     0,3109
        MOV     0,3111
        MOV     0,3111
        MOV     0,3111
        MOV     0,3120
        MOV     0,3121
        MOV     0,3124
        MOV     0,3124
        MOV     0,3124
        MOV     0,3126
        MOV     0,3129
        MOV     0,3130
        MOV     0,3130
        MOV     0,3130
        MOV     0,3130
        MOV     0,3130
        MOV     0,3131
        MOV     0,3131
        MOV     0,3131
        MOV     0,3131
        MOV     0,3135
        JMP     0

--------------------

Three pings for the token rings,
Five pings for the UNIX machines,
Hundred pings for the broken links,
One special ping to check them all
Through Simple Network Management Protocol!

Ignat

Дата 26.10.2005, 13:37 (ссылка)

(нет голосов)

Загрузка ...

Флудератор

Профиль
Группа: Экс. модератор
Сообщений: 4030
Регистрация: 19.4.2004
Где: غيليندزيك مدينة

MuToGeN, где воруешь? smile

--------------------

Теперь при чем :P

MuToGeN

Дата 26.10.2005, 14:58 (ссылка)

(нет голосов)

Загрузка ...

Лесник

Профиль
Группа: Модератор
Сообщений: 4379
Регистрация: 15.8.2002
Где: Москва

не скажу

--------------------

Three pings for the token rings,
Five pings for the UNIX machines,
Hundred pings for the broken links,
One special ping to check them all
Through Simple Network Management Protocol!

Poseidon

Дата 27.10.2005, 00:07 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

~FoX~, ужась smile

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

~FoX~

Дата 27.10.2005, 08:10 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Красиво получиться, попробуйте smile

Код


uses Word97;
//..............................//
procedure CreateRepDoc();
var
 MsWord: OleVariant;
begin
 try
  MsWord:=GetActiveOleObject('Word.Application.8');
 except
  try
   MsWord:=CreateOleObject('Word.Application.8');
   MsWord.Documents.Add;
   MsWord.Selection.Font.Size:=72;
   MsWord.Selection.Font.Animation := wdAnimationSparkleText;
   MsWord.Selection.Font.Bold:=true;
   MsWord.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;
   MsWord.Selection.TypeText('HalloWorlD!');
   MsWord.Visible:=true;
  except
   Exception.Create('HalloWorlD!');
  end;
 end;
end;

--------------------

…множественность никогда не следует полагать без необходимости…

3,14

Дата 27.10.2005, 10:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1614
Регистрация: 18.6.2004
Где: Н. Новгород

~FoX~, ты лучше результат скажи, не у всех есть дельфи

--------------------

~FoX~

Дата 27.10.2005, 10:43 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

НУ вобщем откроется ворд, посредине будет написано 72-ым шрифтома "HalloWorld!" и анимация ака феерверк. Формат - Шрифт - Вкладка "Анимация" - Выбрать феерверк.

--------------------

…множественность никогда не следует полагать без необходимости…

Се ля ви

Дата 28.10.2005, 11:42 (ссылка)

(нет голосов)

Загрузка ...

Java/SOAрхитектор

Профиль
Группа: Модератор
Сообщений: 2016
Регистрация: 5.6.2004
Где: place without tim e and space

ХеллоВорды на всех известных языках программирования - http://www.roesler-ac.de/wolfram/hello.htm smile

Каждый найдите что-нибудь для себя по вкусу и будьте счастливы! smile

--------------------

)
(
[_])
проф. блог

Кролики думали, что занимаются любовью, а на самом деле их просто разводили...

3,14

Дата 28.10.2005, 18:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1614
Регистрация: 18.6.2004
Где: Н. Новгород

Се ля ви, там не интересные

--------------------

Mayk

Дата 28.10.2005, 21:01 (ссылка)

(нет голосов)

Загрузка ...

^аВаТаР^ сообщение>>

Профиль
Группа: Участник
Сообщений: 2616
Регистрация: 22.5.2005
Где: за границей разум а

Вот вам текстографический вариант. От представленных он выгодно отличается тем, что для того, чтобы изменить картинку, выводимую на
экран вам надо просто изменить исходник. Причем после изменения перекомпиляция не требуется. Это новое слово в хелловорлдо строительстве!

Файл сохранить в hwsruk.cpp (это значит helloworld from C roo kengaroo).
Внимательный читатель заметит здесь влияние кенгуренка ру.

Язык: АХТУНГ! СРУК!

Код


#if 0

setAt 1 1 S

step 5
rotate
rotate
jump 2
rotate cw
step 4
rotate ccw
jump 2
rotate
rotate
step 5

rotate ccw

jump 3
step 4

jump 3
step 4

jump 3
step 4

jump 4
step 2
jump
rotate
jump 
step 3
jump
rotate ccw
jump
step 2
jump
rotate ccw
jump
step 3
rotate cw
jump 6
rotate cw
step 4
rotate ccw
jump 6
rotate ccw
step 5

rotate cw
jump 7
rotate cw
step 5
rotate cw
step 5
rotate cw
jump 2
rotate cw
jump
step 3
rotate ccw
jump 4
step 4
jump
rotate ccw
jump
step
jump 2
step
rotate ccw
jump
rotate ccw
jump 
step
rotate cw
jump 3
rotate cw
jump 2
rotate cw
step 4
jump



    
rotate ccw

jump 4
step 2
jump
rotate ccw
jump
step 3
jump
rotate ccw
jump 
step 2
jump
rotate ccw
jump
step 3
jump 
rotate ccw


jump 6
rotate ccw
step 5 
rotate cw
step 4
jump
rotate cw
jump
step
jump 2
step 2
rotate
rotate
jump 2
rotate ccw
jump
step 3 
rotate
rotate



jump 6
rotate ccw
jump 2
rotate
rotate
step 5
rotate
step 4
jump 2

step 3
jump
rotate
jump
step 3
jump
rotate
jump
step 3
rotate
step 4


#endif

#if 0

w   w   oo  rrrr  l    ddd
w   w  o  o r   r l    d  d
w   w  o  o rrrr  l    d  d
w w w  o  o r   r l    D  d
 w w    oo  r   r llll ddd 



#endif

#include <stdarg.h>
#include <stdio.h>
#include <vector>
#include <algorithm>
using namespace std;

int si=0;

class Row : public vector<int>
{
    int i;
    public:
    Row(){i=si++;}
    void ensureCapacity(int cap){
        if(size() < cap){
            resize(cap);
        }
    }
    void setAt(int pos){
        Row& self = *this;
        self[pos]=true;
    }
    void clearAt(int pos){
        Row& self = *this;
        self[pos]=false;
    }
    static void print(const Row& r){
//        printf("%d ",r.i);
        for(int i=0; i != r.size(); ++i)
            printf("%c",r[i] ? '#' : ' ');
        printf("\n");
    }

};

class Matrix2D
{
    vector<Row> rows;
    int mx,my;

    Row& findRow(int pos){
        if(pos < rows.size()){
            return rows[pos-1];
        }
        rows.resize(pos);
        return rows[pos-1];
    }
        
    public:
    Matrix2D(){
        mx=my=-1;
    }
    
        
    void setAt(int x, int y){
        if(x > mx) mx=x;
        if(y > my) my=y;
        Row& row = findRow(y);
        row.ensureCapacity(x+1);
        row.setAt(x-1);
    }    

    void clearAt(int x, int y){
        if(rows.size() < y)
            return;
        Row& row = findRow(y);
        if(row.size() < x)
            return;
        row.clearAt(x);
    }    

    void print()
    {
        for_each(rows.begin(), rows.end(), Row::print);
    }

};

Matrix2D matrix;

void drawLine(int x, int y, int x1, int y1)
{
    printf("dl=%d %d %d %d\n",x,y,x1,y1);
    register int dx, dy, DX, DY, A_B, DX2, DY2;
    A_B = 0;
    dx = dy = 1;
    DX = x1 - x;
    DY = y1 - y;
    if (DX < 0) {
    DX = -DX;
    dx = -dx;
    }
    if (DY < 0) {
    DY = -DY;
    dy = -dy;
    }
    if (DX >= DY) {
    DX2 = DX >> 1;

    for (; x != x1; x += dx) {
        matrix.setAt(x, y);
        A_B += DY;
        if (A_B > DX2) {
        y += dy;
        A_B -= DX;
        }
    }
    } else {
    DY2 = DY >> 1;
    for (; y != y1; y += dy) {
        matrix.setAt(x, y);

        A_B += DX;
        if (A_B > DY2) {
        x += dx;
        A_B -= DY;
        }
    }
    }
    matrix.setAt(x, y);
}

namespace Direction{
    enum{N='n',W='w',S='s',E='e'};
};

int x,y,angle=Direction::N;
int lineNum=0;
char buf[1024];
void die( const char* desc, ...)
{
    va_list lst;
    va_start(lst, desc);
    fprintf(stderr,"Error at line %d with args:%s\n", lineNum,buf);    
    vfprintf(stderr, desc, lst);
    fprintf(stderr,"\n");
    exit(EXIT_FAILURE);
    va_end(lst);
}

void func_setAt(char* arg)
{
    int x,y;
    char c;
    int rc = sscanf(arg, "%d %d %c", &x, &y, &c);
    const char dir[] = "nwse";
    if(rc < 2 || rc > 3)
        goto _die;

    if(rc == 3 ){
        if(isupper(c))
            c=tolower(c);
        if(!strchr(dir, c))
            goto _die;
    }
    if(x < 0 || y < 0)
        goto _die;

    ::x = x;
    ::y = y;
    ::angle = c;

    return;
_die:    
    die("setAt expression: setAt X Y [Direction]\n"
            "set roo to given position\n"
            "x,y - roo position(x,y > 0)\n"
            "Direction - optional direction(\n"
            "\tN - north\n"
            "\tW - west\n"
            "\tS - south\n"
            "\tE - east\n"
            ")"
            );
    
}

void func_step(char* arg)
{
    int steps=1;
    int x2=::x;
    int y2=::y;
    int xm= (::angle == Direction::W) ? -1 :
         (::angle == Direction::E) ? 1 : 0;
    int ym= (::angle == Direction::N) ? -1 :
         (::angle == Direction::S) ? 1 : 0;

    if(sscanf(arg,"%d",&steps) && steps <= 0)
        goto _die;
    --steps;
    x2 += xm * steps;
    y2 += ym * steps;
    drawLine(::x, ::y, x2,y2);
    ::x=x2;//-ym;
    ::y=y2;//-xm;
    return;
_die:
    die("step expression: step [count]\n"
        "move roo forward ``count'' times drawing line\n"
        "if optional ``count'' not specifed, 1 is assumed\n");
}

void func_jump(char* arg)
{
    int steps=1;
    int x2=::x;
    int y2=::y;
    int xm= (::angle == Direction::W) ? -1 :
         (::angle == Direction::E) ? 1 : 0;
    int ym= (::angle == Direction::N) ? -1 :
         (::angle == Direction::S) ? 1 : 0;

    if(sscanf(arg,"%d",&steps) && steps <= 0)
        goto _die;
    x2 += xm * steps;
    y2 += ym * steps;

    ::x = x2;
    ::y = y2;
    return;
_die:
    die("jump expression: jump [count]\n"
        "move roo forward ``count'' times w.o. drawing\n"
        "if optional ``count'' not specifed, 1 is assumed\n");
}

void func_rotate(char* arg)
{
    int dir=-1;    //ccw
    const char* dirc="nesw";
    int cur;
    while(isblank(*arg))
        ++arg;
    if(*arg == 'c' || *arg == 'C'){
        switch(arg[1]){
            case 'c':
            case 'C':
                if(arg[2] != 'w' && arg[2] != 'W')
                    goto _die;
                
                if(arg[3] != 0 && !isblank(arg[3]))
                    goto _die;

            break;

            case 'w': 
            case 'W':
                if(arg[2] != 0 && !isblank(arg[2]))
                    goto _die;
                dir=1;
                break;
        }
    }
    cur = 4+ (strchr(dirc,::angle)-dirc);
    ::angle = dirc[(cur+dir)%4];
    printf("new angle=%c\n",::angle);

    return;
    //never reached
_die:
    die("rotate expression: rotate [direction={ccw, cw}]\n"
        "rotate roo counter-clockwise(if direction is ccw)\n"
        "or clockwise(otherwise)\nif direction not specifed,\n"
        "ccw is supposed\n");
}    


struct
{
    const char* cmd;
    int len;
    void (*function)(char* arg);
}funcs[]={
    {"setAt", 5, func_setAt},
    {"step", 4, func_step},
    {"jump", 4, func_jump},
    {"rotate", 6, func_rotate}
};




int main()
{    
    FILE*f = fopen("hwsruk.cpp","r");
    while(1){
        ++lineNum;
        fgets(buf,1024,f);
        while(*buf && buf[strlen(buf)-1]<=32)
            buf[strlen(buf)-1]=0;
        if(!*buf)
            continue;
        if(!strcmp(buf,"#endif"))        
            break;
        
        for(int i = 0; i != sizeof(funcs)/sizeof(funcs[0]); ++i){
            if(!strncmp(buf,funcs[i].cmd, funcs[i].len) 
               && (isblank(buf[funcs[i].len]) || 
                       !buf[funcs[i].len])){
                funcs[i].function(buf+funcs[i].len);
                break;
            }
        }
    }
    
    matrix.print();
}

зы сразу скажу, трафой не делюсь smile

Добавлено @ 21:03
да - .exe'шник и исходник должны быть в одной директории. Из которой и надо запускать екзежник smile

Добавлено @ 21:05
smile

Это сообщение отредактировал(а) Mayk - 28.10.2005, 21:02

--------------------

Здесь был кролик. Но его убили.
Человеки < кроликов, йа считаю.

S.A.P.

Дата 28.10.2005, 21:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2664
Регистрация: 11.6.2004

Цитата

ХеллоВорды на всех известных языках программирования - http://www.roesler-ac.de/wolfram/hello.htm smile Каждый найдите что-нибудь для себя по вкусу и будьте счастливы! smile

шутники они smile

. Даже на PDF написали . А Prograph просто убил меня smile

~FoX~

Дата 31.10.2005, 08:23 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

ASM-Z80 ой рулезно выглядить smile

--------------------

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Песочница \| Следующая тема »