|
Administrator
Регистрация: 24.12.2002
Пол: Male
Сообщения: 9 587
|
Код:
D
// Hello World in D
void main()
{
printf("Hello World!\n");
}
Darkbasic
` Hello World in Darkbasic
print "Hello World!"
wait key
Dataflex
// Hello World in Dataflex Procedural
/tela
Hello world
/*
clearscreen
page tela
dBase
* Hello World in dBase IV
? "Hello World!"
dc
#!/usr/bin/dc
# Hello world! in dc (Unix desk calculator)
[Hello world!]p
Delphi
// Hello World in Delphi
Program Hello_World;
{$APPTYPE CONSOLE}
Begin
WriteLn('Hello World');
End.
Dialect
# Hello World in Dialect
print "Hello World"
DML
! Hello World in DML (Gembase database language)
PROCEDURE_FORM MAIN
PRINT/NOWAIT ("Hello world")
END_FORM
[B]Dylan/[B]
module: hello-world
author: Homer
copyright: (c) 1994 Homer
version: 1.0
// Hello World in DYLAN
define method main (#rest args)
princ("Hello world!");
end;
main();
DynaMorph
<<!! Hello World in DynaMorph >>
<#setString foo {Hello World!}#>
<html>
<head>
<title>DynaMorph</title>
</head>
<body>
<#getString foo#>
</body>
</html>
Eiffel
indexing "Hello World in Eiffel"
class HELLO
creation
run
feature
run is
local
io : BASIC_IO;
do
!!io;
io.put_string("Hello World!");
io.put_newline;
end; -- run
end; -- class HELLO
Elan
(* Hello World in ELAN *)
putline ("Hello World!");
Elliott
:: Hello World in Elliott Autocode
SETF PUNCH
SETR 1
1)TELEPRINTER
LINE
TITLE Hello World.;
STOP
START 1
Erlang
%% Hello World in Erlang
-module(hello).
-export([hello/0]).
hello() ->
io:format("Hello World!~n", []).
Euphoria
-- Hello World in Euphoria
puts(1, "Hello World!\n")
Focal
1.01 COMMENT HELLO WORLD IN FOCAL
1.02 TYPE "HELLO WORLD", !
1.03 QUIT
Forth
' Hello World in Forth
: HELLO
." Hello World!" CR
;
Fortran
C Hello World in Fortran
PROGRAM HELLO
WRITE (*,100)
STOP
100 FORMAT (' Hello World! ' /)
END
Fortran77
C Hello World in Fortran 77
PROGRAM HELLO
PRINT*, 'Hello World!'
END
FortranIV
PROGRAM HELLO
c
C Hello World in Fortran IV (supposedly for a TR440)
c
WRITE (6,'('' Hello World!'')')
END
Frink
// Hello World in Frink
println["Hello World!"]
G-Code
Hello World in "G Code" for CNC machines.
Click here for a preview.
%
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
%
Gentee-simple
// Hello World in Gentee (simple version)
func hello<main> : @"Hello, World!"
Gentee
// Hello World in Gentee
func hello <main>
{
print( "Hello, World!" )
getch()
}
Gofer
-- Hello World in Gofer
-- Simple version
helloWorld:: String
helloWorld = "Hello World!\n"
-- Hello World in Gofer
-- Dialog version
helloWorld :: Dialogue
helloWorld resps = [AppendChan stdout "Hello world!"]
Groovy
// Hello World in Groovy
println "Hello World"
GynkoSoft
; Hello World in GynkoSoft
; Simple version
0.00 Protocol "Hello, World!"
; Hello World in GynkoSoft
; Dialog box output
0.00 Message "Hello, World!"
Haskell
-- Hello World in Haskell
module Hello where
hello::String
hello = "Hello World!"
HDX
# Hello World as bdehaldia.exe external command
proc hdx_info {} {
set ::Titel "&Hello World"
set ::Menu GMA
}
proc hdx_run {} {
tk_messageBox -type ok -message "Hello World!"
destroy .
}
HP-41C
Hello World for the HP 41C. No comment character exists.
01 LBL "HELLO"
02 "HELLO WORLD"
03 AVIEW
HP-48
<<
@ Hello World for the HP-48
@ << and >> are one char each
"HELLO WORLD"
>>
HTML
<HTML>
<!-- Hello World in HTML -->
<HEAD>
<TITLE>Hello World!</TITLE>
</HEAD>
<BODY>
Hello World!
</BODY>
</HTML>
Human
Hello World in human languages.
Azeri Salam Dunya
Czech Ahoj Svete!
Bengali Shagatam Prithivi!
Brazilian Portuguese Oi mundo!
Bulgarian (Zdrav'ei svi'at)
Catalan Hola mуn!
Chinese (ni hao shi jie)
Danish Hej, Verden!
Dutch Hallo, wereld!
English Hello World!
Finnish Hei maailma!
French Salut le Monde!
Frisian Hallo, wrвld!
German Hallo Welt!
Hebrew (Shalom Olam)
Hindi Shwagata Prithvi!
Italian Ciao Mondo!
Japanese (konnichiwa sekai)
Malagasy Manao ahoana ry tany!
Norwegian Hallo Verden!
Portuguese Ola mundo!
Russian (Zdra'vstvuj mi'r)
Slovak Ahoj, svet!
Spanish ?Hola mundo!
Swedish Hejsan varld!
Turkish Merhaba Dunya!
Ukrainian (Pryvi't svi'te)
HyperTalk
-- Hello World in HyperTalk
answer "Hello, world!"
IBM-Exec
Hello World for IBM EXEC (under VM/CMS)
&CONTROL
*
&TYPE Hello World!
*
&EXIT 0
IBM-Exec2
Hello World for IBM EXEC2 (under VM/CMS)
&TRACE OFF
*
&TYPE Hello World!
*
&EXIT 0
ici
# Hello World in ici (http://www.zeta.org.au/~atrn/ici/)
printf("Hello World!\n");
Icon
# Hello world in Icon (http://www.cs.arizona.edu/icon/)
procedure main()
write("Hello world")
end
IDC
// Hello World in IDC-script language for IDA disaasembler
#include <idc.idc>
static main(void)
{
Message("Hello World!");
}
Inform
! "Hello world" in Inform
[ Main;
print "Hello world^";
];
Informix-4GL
# Hello World in Informix 4GL
MAIN
DISPLAY "Hello World"
END MAIN
Ingres-ABF
/* Hello World in Ingres ABF */
procedure hello =
begin
message 'Hello, World' with style=popup;
end
InstallScript
// Hello World in InstallScript
// (Scripting language of InstallShield, a Windows install generator)
program
MessageBox("Hello World!",INFORMATION);
endprogram
Intercal
HELLO WORLD IN INTERCAL NOT FORTRAN
HELLO WORLD
Java
// Hello World in Java
import java.io.*
class HelloWorld {
static public void main( String args[] ) {
System.out.println( "Hello World!" );
}
}
Java-Mobile
// Hello World on a mobile Java device
package helloworld;
import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class HelloWorld extends MIDlet {
public HelloWorld()
{
Form form = new Form("Hello World");
form.append("Hello world!");
Display.getDisplay(this).setCurrent(form);
}
protected void pauseApp() { }
protected void startApp() throws
javax.microedition.midlet.MIDletStateChangeException { }
protected void destroyApp(boolean parm1) throws
javax.microedition.midlet.MIDletStateChangeException { }
}
Код:
Java-Server-Pages
<!-- Hello World for Java Server Pages -->
<%@ page language='java' %>
<%="Hello World!" %>
Java-Servlet
import javax.servlet.*;
import javax.servlet.http.*;
import java.io.*;
//
// Hello World Java Servlet
//
public class HelloWorld extends HttpServlet {
public void service(HttpServletRequest request,
HttpServletResponse response)
throws IOException {
response.setContentType("text/html");
PrintWriter out = response.getWriter();
out.println("<html><body>");
out.println("Hello World!");
out.println("</body></html>");
}
}
Java-Swing
// Hello World in Java using Swing GUI
class HelloWorldSwing {
static public void main(String args[]) {
javax.swing.JOptionPane.showMessageDialog(null,"Hello world!");
}
}
JavaScript
<html>
<body>
<script language="JavaScript" type="text/javascript">
// Hello World in JavaScript
document.write('Hello World');
</script>
</body>
</html>
JCL
//HERIB JOB ,'HERIBERT OTTEN',PRTY=12
//* Hello World for MVS
//HALLO EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=T
//SYSUT1 DD *
Hello World!
/*
//
JudoScript
// Hello World in JudoScript (a Java scripting layer)
. "Hello World";
Limbo
Hello World in Limbo.
Limbo is the programming language of the Inferno OS
(from Lucent Bell Labs).
implement Cmd;
include "sys.m";
include "draw.m";
Cmd : module {
init : fn (ctxt : ref Draw->Context, args : list of string);
};
init(nil : ref Draw->Context, nil : list of string)
{
sys := load Sys Sys->PATH;
sys->print("Hello World\n");
}
Lingo
Hello World in Lingo (Macromedia Director)
on startmovie
alert "Hello World"
end
Lisp
;;; Hello World in Common Lisp
(defun helloworld ()
(print "Hello World!")
)
Lisp-Emacs
;;; Hello World in Emacs Lisp.
(defun hello-world()
"Display the string hello world."
(interactive)
(message "hello world"))
Logo
; Hello World in Logo
DRUCKEZEILE [Hello World!]
Logo-graphical
; Hello World in LOGO, graphical output.
go 20 , left 180,
go 40 , left 180,
go 20 , right 90,
go 20 , left 90 ,
go 20 , left 180,
go 40 , left 90 ,
go 20 , left 90 ,
go 20 , right 90 ,
go 20 , right 90 ,
go 10 , right 90 ,
go 20 , left 90 ,
go 10 , left 90 ,
go 30 , left 90 ,
go 40 , left 180,
go 40 , left 90 ,
go 20 , left 90 ,
go 40 , left 180,
go 40 , left 90 ,
go 40 , left 90 ,
go 20 , left 90 ,
go 20 , left 90 ,
go 20 , left 90 ,
go 60 , left 90 ,
go 40 , left 180,
go 40 , left 90 ,
go 20 , left 90 ,
go 20 , left 180,
go 20 , left 90 ,
go 20 , left 90 ,
go 40 , left 180,
go 40 , left 90 ,
go 40 , left 90 ,
go 20 , left 90 ,
go 20 , left 90 ,
go 20 , left 90 ,
go 40 , left 90 ,
go 20 , right 90,
go 20 , right 90,
go 5 , left 90 ,
go 5 , left 90 ,
go 25 , left 180,
go 40 , left 90 ,
go 40 , left 90 ,
go 20 , left 90 ,
go 20 , left 90 ,
go 20 , left 90 ,
go 20 , left 90 ,
go 40 , left 180,
go 40 ,
lua
# Hello World in lua
print "Hello world"
MACRO-10
TITLE HELLO WORLD
; HELLO WORLD IN MACRO 10 FOR TOPS-10
ENTRY OUTPUT
SEARCH UUOSYM
LAB: ASCIZ /HELLO WORLD
/
OUTPUT: OUTSTR LAB ; OUTPUT MESSAGE
MONRT. ; RETURN TO MONITOR
END OUTPUT
MACRO-11
; "Hello, world!" in MACRO-11 for RT-11
.MCALL .EXIT,.PRINT
START: .PRINT #$1
.EXIT
$1: .ASCIZ /Hello, world!/
.END START
MAMASH
/* Hello World in MAMASH */
TQWD LGYEA NXKIA HELLO_WORLD )1(
DWLH CXBZ_YKX
ID& HELLO_WORLD YED 'HELLO WORLD' .
Mathematica
(* Hello World in Mathematica *)
Hello[] := Print["Hello, World!"]
MATLAB
% Hello World in MATLAB.
disp('Hello World');
MEL
// Hello World in MEL scripting language for Alias Maya
proc helloWorld () {
print "Hello World!\n";
}
helloWorld;
mIRC
; Hello World! for mIRC
echo Hello World!
Modula-2
(* Hello World in Modula-2 *)
MODULE HelloWorld;
FROM InOut IMPORT WriteString,WriteLn;
BEGIN
WriteString("Hello World!");
WriteLn;
END HelloWorld.
MPD
# Hello World in MPD.
resource helloworld()
write("Hello World")
end
MSDOS
@ECHO OFF
REM Hello World for DOS batch
ECHO Hello World!
MSIL
//Hello World in MSIL (.NET assembler)
.assembly helloworld {}
.class helloworld
{
.method static void Main() cil managed
{
.entrypoint
ldstr "Hello World!"
call void [mscorlib]System.Console::WriteLine(string)
ret
}
}
Mumps
; Hello World in Mumps-M
w !,"Hello World"
Natural
* Hello World in Natural (by Software AG)
FORMAT AD=M
DISPLAY 'Hello World!'
END
NewtonScript
// Hello World in NewtonScript
baseview :=
{viewBounds: {left: -3, top: 71, right: 138, bottom: 137},
viewFlags: 581,
declareSelf: 'base,
_proto: protoFloatNGo,
debug: "baseview"
};
textview := * child of baseview *
{text: "Hello World!",
viewBounds: {left: 33, top: 24, right: 113, bottom: 46},
viewFlags: 579,
_proto: protoStaticText,
debug: "textview"
};
Nice
//Hello World in Nice
void main(String[] args){
println("hello world");
}
Oberon.oberon
MODULE HelloWorld;
(* Hello World in Oberon for the Oberon System *)
IMPORT Oberon, Texts;
VAR
W: Texts.Writer;
PROCEDURE Do*;
BEGIN
Texts.WriteString(W,"Hello World!");
Texts.WriteLn(W);
Texts.Append(Oberon.Log,W.buf)
END Do;
BEGIN Texts.OpenWriter(W)
END HelloWorld.
Oberon.std
(* Hello World in Oberon for standard operating systems *)
MODULE HelloWorld;
IMPORT Out;
BEGIN
Out.String("Hello World!");
Out.Ln;
END HelloWorld;
OCaml
(* Hello World in OCaml *)
print_string "Hello World!\n";;
Occam
PROGRAM Hello
-- Hello world in Occam
#USE ioconv
SEQ
write.full.string(screen,"Hello World!")
Octave
#Hello World in Octave (http://www.octave.org/)
printf("Hello World\n");
OpenVMS
$! Hello World in OpenVMS DCL
$ write sys$output "Hello World"
OPL.dialog
REM Hello World for OPL (Psion Organizer 3a)
REM More complex version with menues and dialog boxes
PROC HELLO:
LOCAL M%
DO
REM Display menu bar
mINIT
mCARD "Sprache","Deutsch",%d,"English",%e
mCARD "Extras","Beenden",%x,"Info",%i
M%=MENU
REM process choosen function
IF M%=%d
REM Display german dialog box
REM with an ENTER button to continue
dBOX:(" ","Hallo Welt"," ","weiter",13)
ELSEIF M%=%e
REM Display english dialog box
REM with an ENTER button to continue
dBOX:(" ","Hello World"," ","continue",13)
ELSEIF M%=%i
REM Display copyright information ;-)
dBOX:("Info","(C) Klaus Mьller 0196","FrankfurtMain, Germany","",13)
ENDIF
UNTIL M%=%x
ENDP
PROC dBOX:(Z1$,Z2$,Z3$,Z4$,BUTTON%)
dINIT Z1$
dTEXT ""," ",0
dTEXT "",Z2$",$102
dTEXT "",Z3$,$202
dBUTTONS Z4$,BUTTON%
DIALOG
ENDP
OPL.simple
REM Hello World for OPL (Psion Organizer 3a)
REM Simple version
PROC HELLO:
PRINT "Hello World!"
GET
ENDP
OZ
Hello World in OZ, shell version:
Type the text
{Browse 'Hello World!'}
to a buffer in OZ mode and feed it for execution (e.g., by typing the
key M-l or by using the OZ menu). A window titled Oz Browser will pop
up showing the atom 'Hello World!'.
Pascal
{Hello World in Pascal}
program HelloWorld(output);
begin
WriteLn('Hello World!');
end.
Pascal-Windows
{ Hello World in Borland Pascal 7 for MS-Windows}
PROGRAM HelloWorld;
USES
WinCRT;
BEGIN
InitWinCRT;
WriteLn('Hello World!');
ReadLn;
DoneWinCRT;
END.
PDF
%Hello World in Portable Document Format (PDF)
%PDF-1.2
1 0 obj
<<
/Type /Page
/Parent 5 0 R
/Resources 3 0 R
/Contents 2 0 R
>>
endobj
2 0 obj
<<
/Length 51
>>
stream
BT
/F1 24 Tf
1 0 0 1 260 600 Tm
(Hello World)Tj
ET
endstream
endobj
3 0 obj
<<
/ProcSet[/PDF/Text]
/Font <</F1 4 0 R >>
>>
endobj
4 0 obj
<<
/Type /Font
/Subtype /Type1
/Name /F1
/BaseFont /Arial
>>
endobj
5 0 obj
<<
/Type /Pages
/Kids [ 1 0 R ]
/Count 1
/MediaBox
[ 0 0 612 792 ]
>>
endobj
6 0 obj
<<
/Type /Catalog
/Pages 5 0 R
>>
endobj
trailer
<<
/Root 6 0 R
>>
Perl
# Hello world in perl
print "Hello World!\n";
PHP
<?php
// Hello World in PHP
echo 'Hello World!';
?>
Код:
Pike
// Hello world in Pike (pike.roxen.com)
int main(){
write("Hello World!\n");
}
PL-SQL
-- Hello World in Oracle PL/SQL (sqlplus)
set serveroutput on
begin
dbms_output.enable(10000);
dbms_output.put_line('Hello World');
end;
/
PL1
/* Hello World in PL/1 */
Hello: procedure options(main);
put skip list('Hello World!');
end Hello;
Pocket-Calculator
Hello World for standard pocket calculators (7-segment display).
Type in and turn calculator upside down.
0.7734
POP-11
;;; Hello World in POP-11
: vars outputtext;
: "Hello World" -> outputtext;
: outputtext =>
** Hello World
Postscript
% Hello World in Postscript
%!PS
/Palatino-Roman findfont
100 scalefont
setfont
100 100 moveto
(Hello World!) show
showpage
POV-Ray
// Hello World for the Persistence of Vision Raytracer.
// Click here to view the output.
#include "skies.inc"
camera{location <0,1,-5> look_at y}
light_source{<2,4,-7>,2}
sky_sphere{S_Cloud1}
plane{y 0 pigment{checker rgb 1,0} finish{reflection .5}}
text{ttf "timrom.ttf" "Hello World!" .3,0
pigment {agate scale .2} translate -2.5*x
}
PowerScript
// Hello World in PowerScript
MessageBox("","Hello World!")
Profan
' Hello World in Profan (http://www.profan.de/)
cls
print "Hello World!"
waitkey
Prograph
Progress
/* Hello World in Progress */
message "Hello World" view-as alert-box.
Prolog
% Hello World in Prolog
hello :- display('Hello World!') , nl .
PureBasic-Console
; Hello World in PureBasic (console program)
OpenConsole()
ConsoleTitle ("Hello World!")
PrintN ("Hello World!")
CloseConsole()
PureBasic-Messagebox
; Hello World in PureBasic (message box)
MessageRequester("Hello World Messagebox","Hello World!")
PureBasic-Window
; Hello World in PureBasic (Window)
If OpenWindow(0, 216, 0, 268, 133, #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "Hello World Window")
If CreateGadgetList(WindowID())
TextGadget(1, 100, 60, 60, 20, "Hello World!")
EndIf
EndIf
Repeat ; Message Loop
Until WaitWindowEvent() = #PB_EventCloseWindow
Python
# Hello World in Python
print "Hello World"
qore
#!/usr/local/bin/qore
# Hello World in qore
class HelloWorld
{
constructor()
{
background $.output("Hello, world!");
}
output($arg)
{
printf("%s\n", $arg);
}
}
new HelloWorld();
QuakeC
// Hello World in QuakeC. This should be put somewhere, for instance
// PutClientInServer() in Client.qc.
bprint("Hello World\n");
QuickBASIC
REM Hello World in QuickBASIC
PRINT "Hello World!"
END
ratfor
# hello.world.in.ratfor
print *, 'hello, world'
end
REALbasic
' Hello World in REALbasic (http://www.realsoftware.com/)
msgBox "Hello World!"
RealText
<window width="320" height="160">
<!-- Hello World in RealText -->
<font size="12" name="Arial">
<center>Hello World!</center>
</font>
</window>
Rebol-view
Hello World in Rebol-view.
rebol[]
view layout[
text "Hello World!"
]
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
Regular-Expression
Hello World as a regular expression.
Replaces everything with "Hello World".
For use with vi, sed, etc.
Search String : ^.*$
Replace String: 'Hello World'
Rexx.simple
/* Hello World in Rexx, simple version (writes to standard output) */
say 'Hello World!'
exit
Rexx.window
/* Hallo World in Rexx, opens window */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
call RxMessageBox 'Hello World!', 'Hello World Window', 'OK', 'EXCLAMATION'
exit
RPG-IV
H* Hello World in RPG IV
D msg S 32 inz(*blank)
D cmd S 64
C eval msg = 'Hello World'
C msg dsply
C eval cmd = 'DLYJOB DLY(30)'
C call 'QCMDEXC'
C parm cmd
C parm 64 len 15 5
C eval *inlr = *on
RSL
// Hello World in RSL (RS-Bank Language)
[Hello World!];
Ruby
# Hello World in Ruby
STDOUT << "Hello World!"
SAL
// Hello World in SAL
proc main()
MsgBox("Hello from SAL", "Hello, World!")
end
Sather
-- Hello World in Sather
class HELLO is
main is #OUT + "Hello World!\n" end
end
Код:
Scheme
;;; Hello World in Scheme
(define helloworld
(lambda ()
(display "Hello World")
(newline)))
Self
(| "Hello World in Self"
hello = (| | 'Hello World!' print)
|)
SenseTalk
Hello World in SenseTalk.
on run put "Hello World!" end run
Setl2
-- Hello World in Setl2
procedure Hello();
print "Hello World!";
end Hello;
Shakespeare
The Infamous Hello World Program in Shakespeare.
Romeo, a young man with a remarkable patience.
Juliet, a likewise young woman of remarkable grace.
Ophelia, a remarkable woman much in dispute with Hamlet.
Hamlet, the flatterer of Andersen Insulting A/S.
Act I: Hamlet's insults and flattery.
Scene I: The insulting of Romeo.
[Enter Hamlet and Romeo]
Hamlet:
You lying stupid fatherless big smelly half-witted coward!
You are as stupid as the difference between a handsome rich brave
hero and thyself! Speak your mind!
You are as brave as the sum of your fat little stuffed misused dusty
old rotten codpiece and a beautiful fair warm peaceful sunny summer's
day. You are as healthy as the difference between the sum of the
sweetest reddest rose and my father and yourself! Speak your mind!
You are as cowardly as the sum of yourself and the difference
between a big mighty proud kingdom and a horse. Speak your mind.
Speak your mind!
[Exit Romeo]
Scene II: The praising of Juliet.
[Enter Juliet]
Hamlet:
Thou art as sweet as the sum of the sum of Romeo and his horse and his
black cat! Speak thy mind!
[Exit Juliet]
Scene III: The praising of Ophelia.
[Enter Ophelia]
Hamlet:
Thou art as lovely as the product of a large rural town and my amazing
bottomless embroidered purse. Speak thy mind!
Thou art as loving as the product of the bluest clearest sweetest sky
and the sum of a squirrel and a white horse. Thou art as beautiful as
the difference between Juliet and thyself. Speak thy mind!
[Exeunt Ophelia and Hamlet]
Act II: Behind Hamlet's back.
Scene I: Romeo and Juliet's conversation.
[Enter Romeo and Juliet]
Romeo:
Speak your mind. You are as worried as the sum of yourself and the
difference between my small smooth hamster and my nose. Speak your
mind!
Juliet:
Speak YOUR mind! You are as bad as Hamlet! You are as small as the
difference between the square of the difference between my little pony
and your big hairy hound and the cube of your sorry little
codpiece. Speak your mind!
[Exit Romeo]
Scene II: Juliet and Ophelia's conversation.
[Enter Ophelia]
Juliet:
Thou art as good as the quotient between Romeo and the sum of a small
furry animal and a leech. Speak your mind!
Ophelia:
Thou art as disgusting as the quotient between Romeo and twice the
difference between a mistletoe and an oozing infected blister! Speak
your mind!
[Exeunt]
SIMPLE
[::PROGRAM:Hello World program in SIMPLE
A EQL @0
MSG A
END
]
{::DATA:Data part
@0:T
Hello World$$M
$$@
}
Simula
! Hello World in Simula;
BEGIN
OutText("Hello World!");
OutImage;
END
Smalltalk.simple
"Hello World in Smalltalk (simple version)"
Transcript show: 'Hello World!'.
Smalltalk.window
"Hello World in Smalltalk (in an own window)"
"(to be entered in a special browser)"
VisualComponent subclass: #HelloWorldView
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'test'
displayOn: aGraphicsContext
'Hello World!' asComposedText displayOn: aGraphicsContext.
open
|window|
window := ScheduledWindow new.
window label: 'Hello World Demo:'.
window component: self new.
window open.
SMIL
<!-- Hello World in SMIL -->
<smil>
<head>
<layout>
<root-layout width="300" height="160" background-color="white"/>
<region id="text_region" left="115" top="60"/>
</layout>
</head>
<body>
<text src="data:,Hello%20World!" region="text_region">
<param name="fontFace" value="Arial"/>
</text>
</body>
</smil>
SML
(* Hello World in SML *)
fun hello() = output(std_out, "Hello World!");
Snobol
* Hello World in Snobol
OUTPUT = "Hello World!"
Spiral
Hello World in Spiral. No comment character exists.
e0v *** *eXlv** *lX *2X **oXi
v * * * * * * 2 * o ** v*
* * * * * ***** * v * v * *iX *
* * * * * * * ^ v * * * w *
* *** * * ***** * v * * * * v *
* * * ^ * ^ * * * * * *
* *** * * ****v * v * * v * * *
* * * * * * * * * * ^ * * *
* * * * * ***** * ***** * ***** * *** *
* * * * * * * * * * ** **
*** *** ******* *****v^ ******* *****
*wX *** **3Xp *rX4.. d5* qd**
* 3 * * ** v^ * .. * * * ***
* v * ^ * #pX v * .. . * * * **
* *** v * # r # * .. . * * * !q* *
* * * * * # v # * 54 .. * * * * * *
* * * * * # * # * @X * * * * * *
* * * * * # * # * v * * * * * *
* * * * * # * # * * ** * * * * * *
* * * * # * # * ** ** * * * *** *
* * * * #v* ^ * *** * * ***** * **
** * ** ** *v * * * * * * * ***
***** *v^** *** *** ******* ****
SPL
HELLO: PROCEDURE OPTIONS(MAIN);
*
/* Hello World in SPL4 (Siemens) */
*
DCL PRINTC ENTRY;
*
CALL PRINTC('Hello World!', 12);
RETURN;
*
END HELLO;
SQL-Advantage
-- Hello World in SQL for Advantage Database
select 'Hello World' from system.iota
SQL-Oracle
# Hello World in SQL for Oracle
SELECT 'Hello World' FROM dual;
SQL
# Hello World in SQL
SELECT 'Hello World';
sqlplus
-- Hello World in Oracle SQL*Plus
prompt Hello World!
ST-Guide
## Hello World for ST-Guide
@node "Hello World!"
Hello World!
@endnode
SVG
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<!-- Hello World in SVG -->
<svg width="240" height="100" viewBox="0 0 240 100" zoomAndPan="disable"
xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
<title>Hello World</title>
<g>
<text x="10" y="50">Hello World</text>
<animate attributeName='opacity' values='0;1' dur='4s' fill='freeze' begin="0s"/>
</g>
</svg>
TACL
Comment -- Hello World for TACL (TAndem Command Language)
ECHO Hello World
TAL
! Hello world in Tandem TAL (Transaction Application Language)
proc Hello^World main;
begin
int .term[0:12] := [ 12 * [ “ “ ] ],
.out [0:19];
string .sout := @out ‘<<’ 1, .sp;
call myterm ( term[1] );
call open ( term[1], term );
if <> then call abend;
sout ‘:=’ “Hello World” -> @sp;
call write ( term, out, @sp’-‘@sout );
if <> then call abend;
end;
Tcl
#!/usr/local/bin/tclsh
# Hello World in Tcl
puts "Hello World!"
TECO
!Hello World in TECO
!The $ symbol below wouldn't actually be a printing character -
!it's the [escape] character, \u001b!
FTHello World$
TeX
% Hello World in plain \TeX
\immediate\write16{Hello World!}
\end
Texinfo
\input texinfo
@c Hello World for Texinfo
@setfilename hello
@settitle Hello World
@node Top, Hello, (dir), (dir)
@menu
* Hello:: Hello World
@end menu
@node Hello, , Top, Top
Hello World!
@contents
@bye
TI-59
Hello World for the TI-59 with PC-100C thermo printer.
No comment character exists.
The TI-59/PC-100C can print up to 20 characters per line (upper case
only). They are coded as 2-digit decimal numbers (see manual for
details) in up to four print registers (of five characters each)
and then printed.
Before entering the program, press LRN to switch into learn mode.
After entering the program, cancel learn mode with LRN, turn on the
printer, and run the program with A.
A pleasant sound, and what a font! Real TRUE-TYPE!
The output looks like this:
+--------------------+
| HELLO WORLD!|
| |
+--------------------+
TI59 Code Comment
LBL A Start of program: label A
OP 00 Clear the four print registers
23 "H"
OP 02 Write into print register 2
17 "E"
27 "L"
27 "L"
32 "O"
00 " "
OP 03 Write into print register 3
43 "W"
32 "O"
35 "R"
27 "L"
16 "D"
73 "!"
OP 04 Write into print register 4
OP 05 Start printing
ADV Line feed (optional)
R/S End program
TI-8x
Hello World for TI 8x/9x basic (tested on a TI-83)
:ClrHome
:Disp "HELLO WORLD"
TI-BASIC-Extended
10 REM Hello World in Extended BASIC
20 REM for the TI99 series computer
100 CALL CLEAR :: DISPLAY AT(10,5):"Hello World" :: ACCEPT AT(20,4):A$
TI-BASIC
10 REM Hello World in TI BASIC
20 REM for the TI99 series computer
100 CALL CLEAR
110 PRINT "HELLO WORLD"
120 GOTO 120
Tk
#!/usr/local/bin/wish -f
# Hello World in Tk
label .l -text "Hello World!"
pack .l
troff
\" "Hello, world!" in troff
Hello, world!
TSO-CLIST
PROC 0
/* Hello World in TSO CLIST */
write Hello World!
Turing-Machine
Hello World as a Turing machine.
State Read | Write Step Next state
---------------|---------------------------------
1 empty | H > 2
2 empty | e > 3
3 empty | l > 4
4 empty | l > 5
5 empty | o > 6
6 empty | blank > 7
7 empty | W > 8
8 empty | o > 9
9 empty | r > 10
10 empty | l > 11
11 empty | d > 12
12 empty | ! > STOP
Unix-Shell
# Hello World for the Unix shells (sh, ksh, csh, bash, ...)
echo 'Hello World!'
UnrealScript
// Hello World for UnrealScript
class HelloWorldHUD extends HudBase;
simulated function DrawHudPassC (Canvas C)
{
C.SetPos( 0.50*C.ClipX , 0.50*C.ClipY);
C.DrawText("Hello World!");
}
defaultproperties
{
}
Vatical
+ Hello World in Vatical
LITURGY:
PRAY "Hello World!"
AMEN.
VAX-11-Macro
; Hello World in VAX-11 MACRO
.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
VAX-Macro
Hello World in VAX Macro.
.title helloworld
.ident /hello world/
;
.library /sys$library:lib/
$libdef
$lib$routinesdef
.psect $data,wrt,noshr,noexe,long
hello: .ascid /Hello World!/
.psect $code,nowrt,shr,exe,long
.entry helloworld,^m<r9,r10,r11>
pushaq hello ; output the
message
calls #1,g^lib$put_output ;
ret ; GTFOH
.end helloworld ;
Verilog
/* Hello World in Verilog. */
module main;
initial
begin
$display("Hello, World");
$finish ;
end
endmodule
Visual-FoxPro
*Hello World in Microsoft Visual FoxPro 5-9
? "Hello World!"
VisualBasic
REM Hello World in Visual Basic for Windows
VERSION 2.00
Begin Form Form1
Caption = "Form1"
ClientHeight = 6096
ClientLeft = 936
ClientTop = 1572
ClientWidth = 6468
Height = 6540
Left = 876
LinkTopic = "Form1"
ScaleHeight = 6096
ScaleWidth = 6468
Top = 1188
Width = 6588
Begin Label Label1
Caption = "Hello World!"
Height = 372
Left = 2760
TabIndex = 0
Top = 2880
Width = 972
End
End
Option Explicit
VMS
$ ! Hello World for VMS-CLI
$ WRITE SYS$OUTPUT "Hello World!"
VRML
#VRML V2.0 utf8
# Hello World in VRML
Shape
{
geometry Text
{string "Hello World!"}
}
Whitespace
Hello #World #in #Whitespace * # # * # # #
+ *[Space]
+ #is #marked #with"#" # #[tab] #with"*" *line-feed #with #"+" * # *so
+it #would
+be #easier #to #write #again... #All *the *non-whitespace-characters #are *ignored... * # #
+ *
+ # # # # # * * # * * # #
+ *
+ # # # # # * * # * * * *
+ *
+ # # # # # * # # # # #
+ *
+ # # # # # * # * # * * *
+ *
+ # # # # # * * # * * * *
+ *
+ # # # # # * * * # # * #
+ *
+ # # # # # * * # * * # #
+ *
+ # # # # # * * # # * # #
+ *
+ # # # # # * # # # # *
+ *
+ # # # # # * # * #
+ *
+ # #
+
+
+
WSH
// Hello World for the Windows Scripting Host
WScript.Echo("Hello World!");
X++
// Hello World in X++ (Microsoft Axapta)
class classHelloWorld
{
}
static void main(args Args)
{
dialog dialog;
;
dialog = new dialog();
dialog.addText("Hello World!");
dialog.run();
}
XHTML
<?xml version="1.0"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<!-- Hello World in XHTML -->
<html
xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>
Hello World!
</title>
</head>
<body>
<p>
Hello World!
</p>
</body>
</html>
XML
<?xml version="1.0" encoding="ISO-8859-1"?>
<?xml-stylesheet type="text/xsl" href="HelloWorld.xsl" ?>
<!-- Hello World in XML -->
<text><string>Hello, World</string></text>
XSL-FO
<?xml version="1.0" encoding="utf-8"?>
<!-- Hello World in XSL-FO -->
<fo:root xmlns:fo="http://www.w3.org/1999/XSL/Format">
<fo:layout-master-set>
<fo:simple-page-master master-name="LetterPage" page-width="8.5in" page-height="11in">?
<fo:region-body region-name="PageBody" margin="0.7in"/>
</fo:simple-page-master>
</fo:layout-master-set>
<fo:page-sequence master-reference="LetterPage">
<fo:flow flow-name="PageBody">
<fo:block font-size="12pt" font-family="courier">Hello, World</fo:block>
</fo:flow>
</fo:page-sequence>
</fo:root>
XSLT
<?xml version="1.0" encoding="ISO-8859-1"?>
<!-- Hello World in XSLT -->
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="/">
<xsl:value-of select="text/string" />
</xsl:template>
</xsl:stylesheet>
__________________
Я не злопамятный. Я злой, но память у меня плохая и никуда я ничего не записываю. Могу отомстить, забыть, потом снова отомстить...
Forum canonis non penis canina est!
|