Text user interface (TUI) (aka console, line-oriented)
ABC
WRITE "Hello World"
Ada
with Ada.Text_Io;
procedure Hello is
begin
Ada.Text_Io.Put_Line ("Hello, world!");
end Hello;
AmigaE
PROC main()
WriteF('Hello, World!')
ENDPROC
APL
'Hello World'
Assembly language
Intel 8080/Zilog Z80, CP/M, RMAC assembler
bdos equ 0005H ; BDOS entry point
start: mvi c,9 ; BDOS function: output string
lxi d,msg$ ; address of msg
call bdos
ret ; return to CCP
msg$: db 'Hello, world!$'
end start
Accumulator + index register machine: MOS Technology 6502, CBM KERNAL, ca65 assembler
MSG: .ASCIIZ "Hello, world!"
LDX #0
LDA MSG,X ; load initial char
@LP: JSR $FFD2 ; chrout
INX
LDA MSG,X
BNE @LP
RTS
Expanded accumulator machine: Intel x86, MS-DOS, TASM
MODEL SMALL
IDEAL
STACK 100H
DATASEG
MSG DB 'Hello, world!', 13, '$'
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 fictional computer: MIX, MIXAL
TERM EQU 19 console device no. (19 = typewriter)
ORIG 1000 start address
START OUT MSG(TERM) output data at address MSG
HLT halt execution
MSG ALF "HELLO"
ALF " WORL"
ALF "D "
END START end of program
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 on advanced multiprocessing OS: DEC VAX, VMS, MACRO-32
.title hello
.psect data, wrt, noexe
chan: .blkw 1
iosb: .blkq 1
term: .ascid "SYS$OUTPUT"
msg: .ascii "Hello, world!"
len = . - msg
.psect code, nowrt, exe
.entry hello, ^m<>
; Establish a channel for terminal I/O
$assign_s devnam=term, -
chan=chan
blbc r0, end
; Queue the I/O request
$qiow_s chan=chan, -
func=#io$_writevblk, -
iosb=iosb, -
p1=msg, -
p2=#len
; Check the status and the IOSB status
blbc r0, end
movzwl iosb, r0
; Return to operating system
end: ret
.end hello
RISC processor: ARM, RISC OS, BBC BASIC's in-line assembler
.program
ADR R0,message
SWI "OS_Write0"
SWI "OS_Exit"
.message
DCS "Hello, world!"
DCB 0
ALIGN
or the even smaller version (from qUE);
SWI"OS_WriteS":EQUS"Hello, world!":EQUB0:ALIGN:MOVPC,R14
AWK
BEGIN { print "Hello, world!" }
BASIC
MS BASIC (traditional, unstructured)
10 PRINT "Hello, world!"
20 END
TI-BASIC
On TI-80-TI-86 calculators.
:Disp "Hello, world!"
On TI-89 TI-92 calculators.
:HelloWorld()
:Prgm
:Disp "Hello, world!"
:EndPrgm
StarOffice/OpenOffice Basic
sub main
print "Hello, World"
end sub
Structured BASIC
print "Hello, world!"
end
BCPL
GET "LIBHDR"
LET START () BE
$(
WRITES ("Hello, world!*N")
$)
BLISS
%TITLE 'HELLO_WORLD'
MODULE HELLO_WORLD (IDENT='V1.0', MAIN=HELLO_WORLD,
ADDRESSING_MODE (EXTERNAL=GENERAL)) =
BEGIN
LIBRARY 'SYS$LIBRARY:STARLET';
EXTERNAL ROUTINE
LIB$PUT_OUTPUT;
GLOBAL ROUTINE HELLO_WORLD =
BEGIN
LIB$PUT_OUTPUT(%ASCID %STRING('Hello World!'))
END;
END
ELUDOM
C
#include <stdio.h>
int main()
{
printf("Hello, world!\n");
return 0;
}
C#
using System;
class HelloWorldApp {
public static void Main() {
Console.WriteLine("Hello, world!");
}
}
C++
#include <iostream>
int main()
{
std::cout << "Hello, world!\n";
}
CIL
.method public static void Main() cil managed
{
.entrypoint
.maxstack 8
ldstr "Hello world."
call void [mscorlib]System.Console::WriteLine(string)
ret
}
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!~%")
D
int main() {
printf("Hello, world!\n");
return 0;
}
batch
$ write sys$output "Hello, world!"
Ed and Ex (Ed extended)
a
hello world!
.
p
or like so:
echo -e 'a\nhello world!\n.\np'|ed
echo -e 'a\nhello world!\n.\np'|ex
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").
EUPHORIA
puts(1, "Hello, world!")
F#
type data =
{ first: string;
second: string; }
let myData =
{ first="Hello";
second="world"; }
let _ =
print_string myData.first;
print_string " ";
print_string myData.second;
print_newline()
Focus
-TYPE Hello World
Forte TOOL
begin TOOL HelloWorld;
includes Framework;
HAS PROPERTY IsLibrary = FALSE;
forward Hello;
-- START CLASS DEFINITIONS
class Hello inherits from Framework.Object
has public method Init;
has property
shared=(allow=off, override=on);
transactional=(allow=off, override=on);
monitored=(allow=off, override=on);
distributed=(allow=off, override=on);
end class;
-- END CLASS DEFINITIONS
-- START METHOD DEFINITIONS
------------------------------------------------------------
method Hello.Init
begin
super.Init();
task.Part.LogMgr.PutLine('HelloWorld!');
end method;
-- END METHOD DEFINITIONS
HAS PROPERTY
CompatibilityLevel = 0;
ProjectType = APPLICATION;
Restricted = FALSE;
MultiThreaded = TRUE;
Internal = FALSE;
LibraryName = 'hellowor';
StartingMethod = (class = Hello, method = Init);
end HelloWorld;
Forth
." Hello, world!" CR
FORTRAN
PROGRAM HELLO
WRITE(*,10)
10 FORMAT('Hello, world!')
STOP
END
Frink
println["Hello, world!"]
Gambas
PUBLIC SUB Main()
Print "Hello, world!"
END
Game Maker
In the draw event of some object:
draw_text(x,y,"Hello World");
Haskell
module HelloWorld (main) where
main = putStr "Hello World\n"
Heron
program HelloWorld;
functions {
_main() {
String("Hello, world!") |> GetStdOut();
}
}
end
IDL
print,"Hello world!"
Inform
[ Main;
print "Hello, world!^";
];
Io
"Hello world!" print
or
write("Hello world!\n")
Iptscrae
ON ENTER {
"Hello, " "World!" & SAY
}
Java
public class Hello {
public static void main(String[] args) {
System.out.println("Hello, world!");
}
}
JVM
(disassembler output of javap -c Hello.class)
public class Hello extends java.lang.Object {
public Hello();
public static void main(java.lang.String[]);
}
Method Hello()
0 aload_0
1 invokespecial #1 <Method java.lang.Object()>
4 return
Method void main(java.lang.String[])
0 getstatic #2 <Field java.io.PrintStream out>
3 ldc #3 <String "Hello, world!">
5 invokevirtual #4 <Method void println(java.lang.String)>
8 return
Kogut
WriteLine "Hello, world!"
Logo
print [hello world!]
or
pr [Hello World!]
In mswlogo only
messagebox [Hi] [Hello World]
Lua
print "Hello, world!"
M (MUMPS)
W "Hello, world!"
Mathematica
Print["Hello World"]
Modula-2
MODULE Hello;
FROM Terminal2 IMPORT WriteLn; WriteString;
BEGIN
WriteString("Hello, world!");
WriteLn;
END Hello;
MS-DOS batch
(with the standard command.com interpreter. The @ symbol is optional and prevents the system from repeating the command before executing it. The @ symbol must be omitted on versions of MS-DOS prior to 5.0.)
@echo Hello, world!
MUF
: main
me @ "Hello, world!" notify
;
Objective C
#import <Foundation/Foundation.h>
int main (int argc, const char * argv[])
{
NSLog(@"Hello, World!");
return 0;
}
OCaml
let _ =
print_endline "Hello world!";;
OPL
PROC hello:
PRINT "Hello, World"
ENDP
OPS5
(object-class request
^action)
(startup
(strategy MEA)
(make request ^action hello)
)
(rule hello
(request ^action hello)
-->
(write |Hello World!| (crlf))
)
Pascal
program Hello (output);
begin
writeln('Hello, world!');
end.
Perl
print "Hello, world!\n";
PHP
<?php
echo "Hello, world!\n";
?>
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;
POP-11
'Hello world' =>
POV-Ray
#include "colors.inc"
camera {
location <3, 1, -10>
look_at <3,0,0>
}
light_source { <500,500,-1000> White }
text {
ttf "timrom.ttf" "Hello world!" 1, 0
pigment { White }
}
Prolog
write('Hello world'),nl.
Python
print "Hello, world!"
REXX, NetRexx, and Object REXX
say "Hello, world!"
RPL
<<
CLLCD
"Hello, World!" 1 DISP
0 WAIT
DROP
>>
Ruby
puts "Hello, world!"
SAS
data _null_;
put 'Hello World!';
run;
Sather
class HELLO_WORLD is
main is
#OUT+"Hello World\n";
end;
end;
Scala
object HelloWorld with Application {
Console.println("Hello, world!");
}
Scheme
(display "Hello, world!")
(newline)
sed
(note: requires at least one line of input)
sed -ne '1s/.*/Hello, world!/p'
Self
'Hello, World!' 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;
Or (e.g. Oracle dialect)
SELECT 'Hello, world!' FROM dual;
Or (e.g. MySQL dialect)
SELECT 'Hello, world!';
Or (for KB-SQL dialect)
select Null from DATA_DICTIONARY.SQL_QUERY
FOOTER or HEADER or DETAIL or FINAL event
write "Hello, world!"
STARLET
RACINE: HELLO_WORLD.
NOTIONS:
HELLO_WORLD : ecrire("Hello, world!").
TACL
#OUTPUT Hello, world!
Tcl
puts "Hello, world!"
Turing
put "Hello, world!"
TSQL
Declare @Output varchar(16)
Set @Output='Hello, world!'
Select @Output
or, simpler variations:
Select 'Hello, world!'
Print 'Hello, world!'
UNIX-style shell
echo 'Hello, world!'
Graphical user interfaces (GUIs)
ActionScript (Macromedia flash mx)
trace ("hello, world!")
AppleScript
display dialog "Hello, world!"
Or to have the OS synthesize it and literally say "hello world!"
say "Hello world!" -- comma left out because that would cause the synthesizer to pause and sound silly
Cocoa or GNUStep (In Objective C)
#import <Cocoa/Cocoa.h>
@interface hello : NSObject {
}
@end
@implementation hello
-(void)awakeFromNib
{
NSBeep(); // we don't need this but it's conventional to beep when you show an alert
NSRunAlertPanel(@"Message from your Computer", @"Hello, world!", @"Hi!", nil, nil);
}
@end
Delphi,Kylix
ShowMessage("Hello, world!");
Gambas
PUBLIC SUB Main()
Message.Info("Hello, world!")
END
GTK toolkit (in C++)
#include <iostream>
#include <gtkmm/main.h>
#include <gtkmm/button.h>
#include <gtkmm/window.h>
using namespace std;
class HelloWorld : public Gtk::Window {
public:
HelloWorld();
virtual ~HelloWorld();
protected:
Gtk::Button m_button;
virtual void on_button_clicked();
};
HelloWorld::HelloWorld()
: m_button("Hello, world!") {
set_border_width(10);
m_button.signal_clicked().connect(SigC::slot(*this,
&HelloWorld::on_button_clicked));
add(m_button);
m_button.show();
}
HelloWorld::~HelloWorld() {}
void HelloWorld::on_button_clicked() {
cout << "Hello, world!" << endl;
}
int main (int argc, char *argv[]) {
Gtk::Main kit(argc, argv);
HelloWorld helloworld;
Gtk::Main::run(helloworld);
return 0;
}
GTK# (in C#)
using Gtk;
using GtkSharp;
using System;
class Hello {
static void Main()
{
Application.Init ();
Window window = new Window ("helloworld");
window.Show();
Application.Run ();
}
}
GTK 2.x(in Euphoria)
include gtk2/wrapper.e
Info(NULL,"Hello","Hello World!")
Java
import javax.swing.JOptionPane;
public class Hello {
public static void main(String[] args) {
JOptionPane.showMessageDialog(null, "Hello, world!");
System.exit(0);
}
}
Java applet
Java applets work in conjunction with HTML files.
<HTML>
<HEAD>
<TITLE>Hello World</TITLE>
</HEAD>
<BODY>
HelloWorld Program says:
<APPLET CODE="HelloWorld.class" WIDTH=600 HEIGHT=100>
</APPLET>
</BODY>
</HTML>
import java.applet.*;
import java.awt.*;
public class HelloWorld extends Applet {
public void paint(Graphics g) {
g.drawString("Hello, world!", 100, 50);
}
}
JavaScript and JScript
JavaScript (an implementation of ECMAScript) is a client-side scripting language used in HTML files. The following code can be placed in any HTML file:
<script type="text/javascript"><!--
function helloWorld()
{
alert("Hello, world!");
}
//--></script>
<a href="#" onclick="helloWorld(); return false;">Hello World Example</a>
An easier method uses JavaScript implicitly, directly calling the reserved alert function. Cut and paste the following line inside the <body> .... </body> HTML tags.
<a href="#" onclick="alert('Hello, world!'); return false;">Hello World Example</a>
An even easier method involves using popular browsers' support for the virtual 'javascript' protocol to execute JavaScript code. Enter the following as an Internet address (usually by pasting into the address box):
javascript:alert('Hello, world!');
There are just an almost infinite amount of ways to do it:
javascript:document.write('Hello, world!\n');
OPL
(On Psion Series 3 and later compatible PDAs.)
PROC guihello:
ALERT("Hello, world!","","Exit")
ENDP
Qt toolkit (in C++)
#include <qapplication.h>
#include <qpushbutton.h>
#include <qwidget.h>
#include <iostream>
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();
}
REALbasic
MsgBox "Hello, world!"
RPL
<< "Hello, World!" MSGBOX >>
SWT
import org.eclipse.swt.widgets.*;
public class Main {
public static void main (String [] args) {
Display display = new Display ();
Shell shell = new Shell(display);
shell.open ();
while (!shell.isDisposed ()) {
if (!display.readAndDispatch ()) display.sleep ();
}
display.dispose ();
}
}
VBA
MsgBox "Hello, world!"
Windows API (in C)
#include <windows.h>
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;
}
Or much more simply:
#include <windows.h>
int WINAPI WinMain(HINSTANCE hInst, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
{
MessageBox(NULL, "Hello World", "", MB_OK);
return 0;
}
Windows Script Host
WScript.Echo "Hello, world!"
Ruby with WxWidgets
require 'wxruby'
class HelloWorldApp < Wx::App
def on_init
ourFrame = Wx::Frame.new(nil, -1, "Hello, world!").show
ourDialogBox = Wx::MessageDialog.new(ourFrame, "Hello, world!", "Information:", Wx::OK|Wx::ICON_INFORMATION).show_modal
end
end
HelloWorldApp.new.main_loop
XUL
<window xmlns="http://www.mozilla.org/keymaster/gatekeeper/there.is.only.xul">
<box align="center">
<label value="Hello, world!" />
</box>
</window>
Document Formats
ASCII
The following sequence of characters, expressed in hexadecimal notation (with carriage return and newline characters at end of sequence):
48 65 6C 6C 6F 2C 20 77 6F 72 6C 64 21 0D 0A
HTML 4.01 Strict
(Using UTF-8 character set.)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<title>Hello, world!</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body>
<p>Hello, world!</p>
</body>
</html>
XHTML 1.1
(Using UTF-8 character set.)
Please note that this document must also be sent with the appropriate HTTP Header, most preferably "application/xhtml+xml", but it MAY also be sent as "application/xml" or "text/xml"; however it MUST NOT be sent as "text/html"; see XHTML Media Types (http://www.w3.org/TR/xhtml-media-types/#application-xhtml-xml) for further info.
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
<title>Hello, world!</title>
</head>
<body>
<p>Hello, world!</p>
</body>
</html>
RTF
{\rtf1\ansi\deff0
{\fonttbl {\f0 Courier New;}}
\f0\fs20 Hello, world!
}
Page description languages
PostScript
/Courier findfont 24 scalefont setfont
100 100 moveto
(Hello world!) show
showpage
In executing the interpreter, one can simply write
(Hello world!) stack
TeX
Hello world
\bye
No comments:
Post a Comment