Модераторы: группа: Модератор, группа: Комодератор

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> 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(" :)");
 }
}



--------------------
Может быть, это только мой бред,
Может быть, жизнь не так хороша,
Может быть, я не выйду на свет,
Но я летал, когда пела душа...
PM MAIL   Вверх
Poseidon
Дата 24.10.2005, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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




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


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
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!
PM MAIL ICQ   Вверх
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();
}




--------------------
 Здесь был кролик. Но его убили.
Человеки < кроликов, йа считаю.
PM MAIL WWW ICQ   Вверх
3,14
Дата 25.10.2005, 09:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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




Цитата(Poseidon @ 24.10.2005, 16:06)
А на Паскуале можно???

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


--------------------
Может быть, это только мой бред,
Может быть, жизнь не так хороша,
Может быть, я не выйду на свет,
Но я летал, когда пела душа...
PM MAIL   Вверх
Mayk
Дата 25.10.2005, 09:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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




C
Код

#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');
}




--------------------
 Здесь был кролик. Но его убили.
Человеки < кроликов, йа считаю.
PM MAIL WWW ICQ   Вверх
Ignat
Дата 25.10.2005, 09:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Флудератор
****


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




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

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


--------------------
Теперь при чем :P
PM   Вверх
Mayk
Дата 25.10.2005, 10:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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




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


--------------------
 Здесь был кролик. Но его убили.
Человеки < кроликов, йа считаю.
PM MAIL WWW ICQ   Вверх
Ignat
Дата 25.10.2005, 10:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Флудератор
****


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




Цитата(Mayk @ 25.10.2005, 11:00)
ага.
у меня hello world вывела %)

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


--------------------
Теперь при чем :P
PM   Вверх
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!
PM MAIL ICQ   Вверх
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!
PM MAIL ICQ   Вверх
~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 smile

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


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Ignat
Дата 26.10.2005, 12:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Флудератор
****


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




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


--------------------
Теперь при чем :P
PM   Вверх
~FoX~
Дата 26.10.2005, 12:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


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




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


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
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!
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Флейм"
Тут модерируют вообще все кому не лень!

Это "Песочница"!!!

В разделе не действуют многие правила:

  • Можно оффтопить
  • Можно флудить, но не увлекаться
  • Можно общаться на темы, не только связанные с программированием.
  • Если вы поставили здесь адекватный вопрос, не ждите адекватного ответа.

Строго запрещено:

  • Размещать рекламу
  • Обсуждать политику
  • Оскорблять друг-друга и переходить на личности
  • Наезжать
  • Материться
  • Уныло обсуждать унылые вещи

Напоминаем о существовании волшебной кнопочки Репорт. Если вы увидели сообщение, несовместимое с жизнью, просьба подвести на нее курсор и клацнуть левой клавишей мышки. Тем самым вы сможете призвать злого, но жутко справедливого джинна-модератора, который нашлет порчу на злостного нарушителя. Кстати - счётчик сообщений здесь не растёт.


Глас Винграда:

Лучшее в Камасутре - это введение!


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Все кому не лень.

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


 




[ Время генерации скрипта: 0.0647 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.