各种语言的Hello World程序
1. Ada
with Ada.Text_IO;
procedure Hello is
begin
Ada.Text_IO.Put_Line("HelloWorld!");
end Hello;
2. ALGOL68
\'begin\'
print("Hello World!")
\'end\'
3. AmigaE
PROC main()
WriteF(\'Hello World!\')
ENDPROC
4. awk
BEGIN { print "Hello, world!" }
5. BCPL
GET "LIBHDR"
LET START () BE
$(
WRITES("Hello, world!*N")
$)
6. Boo
import System
Console.WriteLine("Hello World!")
7. Brainfuck
++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<
+++++++++++++++.>.+++.------.--------.>+.>.
8. C
#include
int main()
{
printf("Hello World!\n");
return0;
}
9. C++
#include
int main()
{
cout<<"Hello World!"<<endl;
return0;
}
10. Clean
module hello
Start :: String
Start = "Hello, world"
11. COBOL
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
DISPLAY "Hello World!".
STOP RUN.
12. Common Lisp
(format t "Hello world!")
13. D
import std.c.stdio;
int main(char[][] args)
{
printf("Hello World!\n");
return0;
}
14. Eiffel
class HELLO_WORLD
creation
make
feature
make is
local
iBASIC_IO
do
!!io
io.put_string("%N Hello World!")
end -- make
end -- class HELLO_WORLD
15. Erlang
-module(hello).
-export([hello_world/0]).
hello_world() -> ifwrite("Hello World!\n").
16. Forth
." Hello World!" CR
17. Fortran
program Hello
write(*,*) \'Hello World!\'
end
18. Haskell
module HelloWorld (main) where
main = putStr "Hello World!\n"
19. Icon
procedure main()
write("HelloWorld!\n")
end
20. INTERCAL
PLEASE DO ,1 <- #13
DO ,1 SUB #1 <- #238
DO ,1 SUB #2 <- #112
DO ,1 SUB #3 <- #112
DO ,1 SUB #4 <- #0
DO ,1 SUB #5 <- #64
DO ,1 SUB #6 <- #238
DO ,1 SUB #7 <- #26
DO ,1 SUB #8 <- #248
DO ,1 SUB #9 <- #168
DO ,1 SUB #10 <- #24
DO ,1 SUB #11 <- #16
DO ,1 SUB #12 <- #158
DO ,1 SUB #13 <- #52
PLEASE READ OUT ,1
PLEASE GIVE UP
21. Iptscrae
ON ENTER {
"Hello, ""World!" & SAY
}
22. Java
// 命令行界面：
class Hello
{
publicstatic void main(String ars[])
{
System.out.print("Hello World!\n");
}
}
// 图形界面：
import java.awt.*;
import java.awt.event.*;
class HelloWorld extends Frame
{
public static void main(String args[])
{
HelloWorld Hello=new HelloWorld();
Label lbl=new Label("Hello World!");
Hello.setTitle("Hello World");
Hello.setSize(300,200);
Hello.setBackground(newColor(224,224,224));
Hello.add(lbl);
lbl.setAlignment(1);
lbl.setFont(newFont("Arial",Font.PLAIN,24));
Hello.setLocation(260,180);
Hello.show();
Hello.addWindowListener(newWindowAdapter()
{
public voidwindowClosing(WindowEvent wet)
{
System.exit(0);
}
});
}
}
23. Lua
print "Hello World!\n"
24. MIXAL
TERM EQU 19 the MIX console device number
ORIG 1000 start address
START OUT MSG(TERM) output data ataddress MSG
HLT halt execution
MSG ALF "MIXAL"
ALF "HELL"
ALF "OWOR"
ALF "LD "
END START end of the program
25. MSIL
.assembly Hello
{
.ver 1:0:0:0
}
.method public static void main() il managed
{
.entrypoint
.maxstack 1
ldstr "Hello World!\n"
call void [mscorlib]System.Console::Write(classSystem.String)
ret
}
26. OCaml
print_endline "Hello world!";;
27. OPL
PROC hell
PRINT"Hello, World"
ENDP
28. oz
functor $
import
Application
System
define
{System.print \'Hello World!\'}
{Application.exit 0}
end
29. Pascal
program Hello;
begin
writeln(\'Hello, world!\');
end.
Perl
print "Hello World\n"
30. Pike
//命令行界面
int main()
{
write("Hello, world!\n");
return0;
}
//图形界面
int main()
{
GTK.setup_gtk();
GTK.Alert("Hello World!")
->signal_connect("destroy", lambda(){ exit(0); });
return -1;
}
31. PL/I
Test: procedure options(main);
declareMy_String char(20) varying initialize(\'Hello, world!\');
put skiplist(My_String);
end Test;
32. PostScript
/font /Courier findfont 24 scalefont
font setfont
100 100 moveto
(Hello world!) show
showpage
33. PowerBASIC
#COMPILE EXE
FUNCTION PBMAIN () AS LONG
MSGBOX"Hello World!"
END FUNCTION
34. Prolog
predicates
Hello
clauses
Hell-
write("HelloWorld!\n"). %或write("Hello World!"),nl.
goal Hello.
35. Python
print "Hello World!"
36. Rexx
say "Hello, world!"
37. Ruby
print "Hello World!\n"
38. Sather
class HELLO_WORLD is
mainis
#OUT+"Hello World\n";
end;
end;
39. Scheme
(display "Hello, world!\n")
40. sed
sed -ne \'1s/.*/Hello, world!/p\'
41. Self
\'Hello, World!\' uppercase print.
42. Smalltalk
Transcript show: \'Hello, world!\'
43. SML
print "Hello, world!\n";
44. SNOBOL
OUTPUT ="Hello, world!"
END
45. TCL
puts "Hello World!"
46. TeX
\font\HW=cmr10 scaled 3000
\leftline{\HW Hello world}
\bye
47. Turing
put "Hello, world!"
48. VB
sub main
msgbox"Hello World!"
end sub
49. VC++
#include
LRESULT CALLBACK WndProc(HWND,UINT,WPARAM,LPARAM);
int WINAPI WinMain(HINSTANCE hInstance,HINSTANCEhPrevInstance,LPSTR lpCmdLine,int nCmdShow)
{
HWND hwnd;
MSG Msg;
WNDCLASS wndclass;
char lpszClassName[]="Window";
char lpszTitle[]="Hello World";
wndclass.style=0;
wndclass.lpfnWndProc=WndProc;
wndclass.cbClsExtra=0;
wndclass.cbWndExtra=0;
wndclass.hInstance=hInstance;
wndclass.hIcon=LoadIcon(NULL,IDI_APPLICATION);
wndclass.hCursor=LoadCursor(NULL,IDC_ARROW);
wndclass.hbrBackground=(HBRUSH)GetStockObject(WHITE_BRUSH);
wndclass.lpszMenuName=NULL;
wndclass.lpszClassName=lpszClassName;
if(!RegisterClass(&wndclass))
{
MessageBeep(0);
return FALSE;
}
hwnd=CreateWindow(lpszClassName,
lpszTitle,
WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT,
CW_USEDEFAULT,
CW_USEDEFAULT,
CW_USEDEFAULT,
NULL,
NULL,
hInstance,
NULL);
ShowWindow(hwnd,nCmdShow);
UpdateWindow(hwnd);
while(GetMessage(&Msg,NULL,0,0))
{
TranslateMessage(&Msg);
DispatchMessage(&Msg);
}
return Msg.wParam;
}
LRESULT CALLBACK WndProc(HWND hwnd,UINT message,WPARAMwParam,LPARAM lParam)
{
PAINTSTRUCT ps;
HDChdc;
char Hello[]="Hello World!";
tch(message)
{
case WM_PAINT:
hdc = BeginPaint(hwnd, &ps);
TextOut(hdc, 0, 0, Hello,lstrlen(Hello));
EndPaint(hwnd, &ps);
break;
case WM_DESTROY:
PostQuitMessage(0);
break;
default:
returnDefWindowProc(hwnd,message,wParam,lParam);
}
return 0;
}
50. Win32汇编
;图形界面Hello World
.386
.model flat, stdcall
option casemap :none
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
.code
start:
jmp @F
szDlgTitle db"Hello World(汇编语言版)",0
szMsg db "Hello World!",0
@@:
pushMB_OK
push offsetszDlgTitle
push offsetszMsg
push 0
callMessageBox
push 0
callExitProcess
end start
51. 汇编
.MODEL small
.STACK 100h
.DATA
Hello DB \'Hello World!\',13,10,\'$\'
.CODE
mov ax,@data
mov ds,ax
mov ah,9
mov dx,OFFSETHello
int 21h
mov ah,4ch
int 21h
END
52. ASP
response.write "Hello World!"
53. C#
using System;
class Hello
{
publicstatic void Main()
{
Console.WriteLine("Hello World!");
}
}
54. FOXBASE
? "Hello World!"
@0,0 say "Hello World!"
55. Groovy
print "Hello World!\n"
56. PHP
echo "Hello World!"
--------------------------------------------------------------------------------
VB .MET：
imports System
module Hello
submain()
Console.WriteLine("Hello World!")
endsub
end module
JScript：
import System;
Console.Write("Hello World!\n");
或
print("Hello World!");
--------------------------------------------------------------------------------
易语言：
标准输出 (, “Hello World!”)
或
信息框 (“Hello World！”, 0, )
--------------------------------------------------------------------------------
Delphi：
program HelloWorld;
uses
Dialogs;
begin
ShowMessage(\'Hello, World!\');
end.
DOS Batch：
@echo Hello World!
UNIX Shell
echo \'Hello World!\'
--------------------------------------------------------------------------------
一个没有main方法的Java版Hello World程序：
class Hello
{
static
{
System.out.println("Hello World!");
System.exit(0);
}
}
--------------------------------------------------------------------------------
Xaml：
xmlns="http://schemas.microsoft.com/2003/xaml"
Background="LightCyan"
Width="100%" Height="100%">
Hello World!
SQL：
print \'Hello World!\'
SML：
print "Hello World!\n";;
另一个版本的标准C++：
%:include
using namespace std;
void main()