Hello world program

Ada

   with Ada.Text_Io; use Ada.Text_Io;
   procedure Hello is
   begin
      Put_Line ("Hello, world!");
   end Hello;

AmigaE

   PROC main()
      WriteF('Hello, World!')
   ENDPROC

APL

   'Hello World'

Assembly language

Accumulator/Index microcoded machine: Data General Nova, RDOS

Expanded accumulator machine: Intel x86, MS-DOS, TASM

   MODEL   SMALL
   IDEAL
   STACK   100H

   DATASEG
           MSG DB 'Hello, world!$'

   CODESEG
           MOV AX, @data
           MOV DS, AX
           MOV DX, OFFSET MSG
           MOV AH, 09H      ; DOS: output ASCII$ string
           INT 21H
           MOV AX, 4C00H
           INT 21H
   END

General-purpose-register CISC: DEC PDP-11, RT-11, MACRO-11

  .MCALL  .REGDEF,.TTYOUT,.EXIT
          .REGDEF

   HELLO:  MOV    #MSG,R1
           MOVB   (R1),R0
   LOOP:  .TTYOUT
           MOVB  +(R1),R0
           BNE    LOOP
          .EXIT

   MSG:   .ASCIZ  /HELLO, WORLD!/
          .END    HELLO

CISC: VAX, VMS, MACRO32

        .title hello
term_name:      .ascid /SYS$INPUT/
term_chan:      .blkw 1
out_iosb:       .blkq 1
msg:    .asciz  /Hello, world!/

        .entry start,0

        ; establish a channel for terminal I/O
        $assign_s devnam=term_name,-
                chan=term_chan
        blbc r0,error

        ; queue the I/O request
        $qio_s chan=term_chan,-
                func=#io$_writevblk,-
                iosb=out_iosb,-
                p1=msg,-
                p2=#13
        blbc r0,error

        $exit_s ; normal exit

error:  halt ; error condition

       .end start

AWK

   BEGIN { print "Hello, world!" }

BASIC

   10 PRINT "Hello, world!"
   20 END

TI-BASIC

   :Disp "Hello, world!"

Structured BASIC

   print "Hello, world!"

BCPL

   GET "LIBHDR"

   LET START () BE
   $(
       WRITES ("Hello, world!*N")
   $)

C

   #include 

   int main(void) {
       printf("Hello, world!\\n");
       return 0;
   }

C++

   #include 
   using namespace std;

   int main() {
       cout << "Hello, world!" << endl;
       return 0;
   }

C#

   class HelloWorldApp {
    public static void Main() {
       System.Console.WriteLine("Hello, world!");
    }
   }

Clean

   module hello

   Start :: String
   Start = "Hello, world"

CLIST

   PROC 0
   WRITE Hello, World!

COBOL

   IDENTIFICATION DIVISION.
   PROGRAM-ID.     HELLO-WORLD.

   ENVIRONMENT DIVISION.

   DATA DIVISION.

   PROCEDURE DIVISION.
   DISPLAY "Hello, world!".
   STOP RUN.

Common Lisp

   (format t "Hello world!~%")

Eiffel

   class HELLO_WORLD

   creation
       make
   feature
       make is
       local
               io:BASIC_IO
       do
               !!io
               io.put_string("%N Hello, world!")
       end -- make
   end -- class HELLO_WORLD

Erlang

       -module(hello).
       -export([hello_world/0]).

       hello_world() -> io:fwrite("Hello, world!\\n").

Forth

   ." Hello, world!" CR

Fortran

      PROGRAM HELLO
      WRITE(*,10)
   10 FORMAT('Hello, world!')
      STOP
      END

Haskell

   module HelloWorld (main) where

   main = putStr "Hello World\\n"

Iptscrae

   ON ENTER {
       "Hello, " "World!" & SAY
   }

Java

   public class Hello {
       public static void main(String[] args) {
           System.out.println("Hello, world!");
       }
   }

Logo

   print [hello  world!]

Lua

   print "Hello, world!"

MIXAL

    TERM    EQU    19          the MIX console device number
            ORIG   1000        start address
    START   OUT    MSG(TERM)   output data at address MSG
            HLT                halt execution
    MSG     ALF    "MIXAL"
            ALF    " HELL"
            ALF    "O WOR"
            ALF    "LD   "
            END    START       end of the program

MSDOS batch

   @echo off
   echo Hello, world!

OCaml

   let _ =
      print_endline "Hello world!";;

OPL

   PROC hello:
     PRINT "Hello, World"
   ENDP

Pascal

   program Hello;
   begin
       writeln('Hello, world!');
   end.

Perl

   print "Hello, world!\\n";

PHP

   Hello, world!

Pike

   #!/usr/local/bin/pike
   int main() {
       write("Hello, world!\\n");
       return 0;
   }

PL/I

   Test: procedure options(main);
      declare My_String char(20) varying initialize('Hello, world!');
      put skip list(My_String);
   end Test;

Python

   print "Hello, world!"

REXX, also NetRexx and Object REXX

   say "Hello, world!"

Ruby

   print "Hello, world!\\n"

Sather

   class HELLO_WORLD is
     main is 
      #OUT+"Hello World\\n"; 
     end; 
   end;

Scheme

   (display "Hello, world!")
   (newline)

sed (requires at least one line of input)

   sed -ne '1s/.*/Hello, world!/p'

Self

   'Hello, World!' uppercase print.

Smalltalk

   Transcript show: 'Hello, world!'

SML

   print "Hello, world!\\n";

SNOBOL

       OUTPUT = "Hello, world!"
   END

SQL

   create table MESSAGE (TEXT char(15));
   insert into MESSAGE (TEXT) values ('Hello, world!');
   select TEXT from MESSAGE;
   drop table MESSAGE;

   select 'Hello, world' from dual;

   print 'Hello, World.'

StarOffice Basic

   sub main
   print "Hello, World"
   end sub

Tcl

   puts "Hello, world!"

UNIX-style shell

   echo 'Hello, world!'

Romanian pseudocode (UBB Cluj-Napoca)

   Algoritmul Salut este:
       fie s:="Hello, world";
       tipareste s;
   sf-Salut

Graphical User Interfaces - as traditional applications

Java

   import java.awt.*;
   import java.awt.event.*;

   public class HelloFrame extends Frame {
     HelloFrame(String title) {
       super(title);
     }
     public void paint(Graphics g) {
       super.paint(g);
       java.awt.Insets ins = this.getInsets();
       g.drawString("Hello, world!", ins.left + 25, ins.top + 25);
     }
     public static void main(String args [])
     {
       HelloFrame fr = new HelloFrame("Hello");

       fr.addWindowListener(
         new WindowAdapter() {
           public void windowClosing(WindowEvent e)
           {
             System.exit( 0 );
           }
         }
       );
       fr.setResizable(true);
       fr.setSize(500, 100);
       fr.setVisible(true);
     }
   }

Qt toolkit (in C++)

   #include 
   #include 
   #include 
   #include 

   class HelloWorld : public QWidget
   {
       Q_OBJECT

   public:
       HelloWorld();
       virtual ~HelloWorld();
   public slots:
       void handleButtonClicked();
       QPushButton *mPushButton;
   };

   HelloWorld::HelloWorld() :
       QWidget(),
       mPushButton(new QPushButton("Hello, World!", this))
   {
       connect(mPushButton, SIGNAL(clicked()), this, SLOT(handleButtonClicked()));
   }

   HelloWorld::~HelloWorld() {}

   void HelloWorld::handleButtonClicked()
   {
       std::cout << "Hello, World!" << std::endl;
   }

   int main(int argc, char *argv[])
   {
       QApplication app(argc, argv);
       HelloWorld helloWorld;
       app.setMainWidget(&helloWorld);
       helloWorld.show();
       return app.exec();
   }

Visual Basic

   MsgBox "Hello, world!"

Windows API (in C)

   #include 

   LRESULT CALLBACK WindowProcedure(HWND, UINT, WPARAM, LPARAM);

   char szClassName[] = "MainWnd";
   HINSTANCE hInstance;

   int WINAPI WinMain(HINSTANCE hInst, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
   {
     HWND hwnd;
     MSG msg;
     WNDCLASSEX wincl;

     hInstance = hInst;

     wincl.cbSize = sizeof(WNDCLASSEX);
     wincl.cbClsExtra = 0;
     wincl.cbWndExtra = 0;
     wincl.style = 0;
     wincl.hInstance = hInstance;
     wincl.lpszClassName = szClassName;
     wincl.lpszMenuName = NULL; //No menu
     wincl.lpfnWndProc = WindowProcedure;
     wincl.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1); //Color of the window
     wincl.hIcon = LoadIcon(NULL, IDI_APPLICATION); //EXE icon
     wincl.hIconSm = LoadIcon(NULL, IDI_APPLICATION); //Small program icon
     wincl.hCursor = LoadCursor(NULL, IDC_ARROW); //Cursor

     if (!RegisterClassEx(&wincl))
           return 0;

     hwnd = CreateWindowEx(0, //No extended window styles
           szClassName, //Class name
           "", //Window caption
           WS_OVERLAPPEDWINDOW & ~WS_MAXIMIZEBOX,
           CW_USEDEFAULT, CW_USEDEFAULT, //Let Windows decide the left and top positions of the window
           120, 50, //Width and height of the window,
           NULL, NULL, hInstance, NULL);

     //Make the window visible on the screen
     ShowWindow(hwnd, nCmdShow);

     //Run the message loop
     while (GetMessage(&msg, NULL, 0, 0))
     {
           TranslateMessage(&msg);
           DispatchMessage(&msg);
     }
     return msg.wParam;
   }

   LRESULT CALLBACK WindowProcedure(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
   {
     PAINTSTRUCT ps;
     HDC hdc;
     switch (message)
     {
     case WM_PAINT:
           hdc = BeginPaint(hwnd, &ps);
           TextOut(hdc, 15, 3, "Hello, world!", 13);
           EndPaint(hwnd, &ps);
           break;
     case WM_DESTROY:
           PostQuitMessage(0);
           break;
     default:
           return DefWindowProc(hwnd, message, wParam, lParam);
     }
     return 0;
   }

Graphical User Interfaces - Web browser based

JavaScript, aka ECMAScript

XUL

Document Formats

HTML

   
   
   
   
   
   Hello, world!
   
   

PostScript

   /font /Courier findfont 24 scalefont
   font setfont
   100 100 moveto
   (Hello world!) show
   showpage

TeX

   \\font\\HW=cmr10 scaled 3000
   \\leftline{\\HW Hello world}
   \\bye

See also

External links