BASIC
Quick/Turbo BASIC:
Fortran 77
WRITE(UNIT=*, FMT=*) 'Hello World'
END
Ruby
Pawn
Python 3.0
MS-DOS shell
Rexx
Pascal
write('Hello, World!')
end.
Delphi
begin
Writeln('Hello, World!');
end.
WinAPI:
uses windows;
begin
MessageBox(0,'Hello, World!','Заголовок',0);
end.
Ада
procedure Hello_World is
begin
Ada.Text_IO.Put_Line ("Hello World");
end Hello_World;
Модула-3
IMPORT IO;
BEGIN
IO.Put ("Hello World\n")
END Main.
Visual Basic
print "Hello, World!"
End Sub
Lotus Script
Или так (не самый заметный вариант):
Print "Hello, World!"
Или рядом с LS:
@Prompt([OK];"";"Hello, World!");
Ещё на "собаках" (аналог print'а):
@StatusBar("Hello, World!")
InstallScript
AutoIT
C/C++
int main(void)
{
printf("Hello, World!\n");
return 0;
}
C++
int main()
{
std::cout << "Hello, World!" << std::endl;
return 0;
}
Win32 API:
#include <windows.h>
int WINAPI WinMain (HINSTANCE,HINSTANCE,PSTR,int){
MessageBox(0,"Hello, World","F*ck",0);
return 0;
}
Objective-C
@interface HelloWorld : NSObject
@end
@imlementation HelloWorld
+load{
NSLog(@"Hello, World!");
return;
}
@end
C#
using System;
class Program
{
static void Main()
{
Console.Write("Hello, World!");
}
}
В окошко:
class Program
{
static void Main()
{
System.Windows.Forms.MessageBox.Show("Hello, World!");
}
}
F#
Boo
Perl
print "Hello, World!\n";
или
perl -le 'print "Hello, World!"'
Haskell
import System.IO
message :: [[Char]]
message = [ 'H':'e':'l':'l':'o':',':[]
, 'w':'o':'r':'l':'d':'!':[] ]
putHelloWorld :: [Char] -> IO()
putHelloWorld (x:xs) =
Prelude.putChar(x) >> putHelloWorld xs
putHelloWorld [] = Prelude.putChar('\n')
main :: IO ()
main =
hSetBuffering stdout NoBuffering >> hSetBuffering stdin LineBuffering >> putHelloWorld(message')
where
message' = let f = (++) . (++ " ")
f' = foldl1 f
in f' message
Чуть менее полный матана вариант кода на Haskell:
main = putStrLn "Hello, world!"
LISP
Clojure
Forth
BrainFuck
Factor
IN: hello-world
: hello ( -- ) "Hello, world!" print ;
MAIN: hello
1С:Предприятие 7.7/8/8.1/8.2
DoMessageBox("Hello, world",,"Attention");
Сообщить("Привет, Мир!");
Message("Привет, Мир!", MessageStatus.Attention);
Java
public class HelloWorld {
public static void main(String[] args) {
System.out.println("Hello, world!");
}
}
В окошко:
import java.awt.*;
import javax.swing.*;
public class HelloWorld extends JFrame{
HelloWorld(){
setVisible (true);
setDefaultCloseOperation(EXIT_ON_CLOSE);
setSize(300,300);
Dimension dim = Toolkit.getDefaultToolkit().getScreenSize();
setLocation(dim.width/2-getSize().width/2,dim.height/2-getSize().width/2);
JLabel l = new JLabel("Хэловорлд");
setLayout(null);
l.setBounds(110, 110, 70, 20);
add(l);
}
public static void main(String[] args) {
new HelloWorld();
}
}
Scala
println("Hello, world!")
}
ActionScript 2.0
ActionScript 3.0
или
var field:TextField=new TextField();
field.text="hello world!";
addChild(field);
Eiffel
feature
print_hello is
-- Print "Hello, World!"
do
print ("Hello, World!")
end
end
MIDlet Pascal
Begin
DrawText('Hello, world!', 5, 5);
Repaint; Delay(5000);
End.
PHP
Vbscript
Javascript
sh
Пролог
write ("Hello, World!").
SQL
select 'Hello, World!'
Oracle SQL
select 'Hello, World!' from dual;
Oracle PL/SQL
SET serveroutput ON
BEGIN
dbms_output.put_line('Hello world!');
END;
/
T-SQL (Microsoft SQL Server)
PRINT 'Hello, world';
MySQL
select 'Hello, World!';
FireBird SQL / InterBase
select 'Hello, World!' FROM RDB$DATABASE;
Informix
SELECT FIRST 1 'Hello, World!' FROM systables;
Assembler (i8086, MS-DOS, tasm)
mov ds, ax
mov [02h], 'H'
mov [04h], 'e'
mov [06h], 'l'
mov [08h], 'l'
mov [0ah], 'o'
mov [0ch], ','
mov [0eh], 'W'
mov [10h], 'o'
mov [12h], 'r'
mov [14h], 'l'
mov [16h], 'd'
mov [18h], '!'
ret
GML
Blitz3D
или
Print "Hello, world!"
WaitKey ;
NATURAL
1 #BUTTON(A1)
end-define
Write notitle 'Hello, world!'
display notitle 'Hello, world!'
print 'Hello, world!'
PROCESS GUI ACTION MESSAGE-BOX WITH NULL-HANDLE
'Hello, world!' ' ' 'IO1'
#BUTTON
GIVING *ERROR-nr
Input (ad=od) 'Hello, world!'
end
LSL
{
state_entry()
{
llSay(0,"Hello, world!");
}
}
Erlang
main(_Args) ->
io:format("Hello, World!~n").
Malbolge
LOLCODE
CAN HAS STDIO?
VISIBLE "HAI WORLD!"
KTHXBYE
Go
func main() {
println("Hello, world!")
}
ProceRaptor
var ("st",$string);
"Hello World!">>st;
write (st,$line);
read ($void,$line);
exit();
Icon
write("Hello, world!")
end
ABAP
WRITE / 'Hello, World!'.
Befunge
TeX
Vimscript
Small Basic
Rust
println!("Hello World!");
}
Swift 2.1
MATLAB
V
->ПриветМир():
Отобразить "Hello, world!";
<-0;
.
ЯСОП52
/* запрет вывода на чек долбанных номеров операций
ВИД_ПЕЧАТИ(Пнс=1);
/* привлечение внимания к оборудованию
ВЫЗОВ(ПП=МерзкаяПищалка,прм1=3);
/* запрос фамилии страдальца
ВВОД_КЛ(ТИПП=С,ТЕКСТ="РУЧНАЯ ОПЕРАЦИЯ 666:ВВЕДИТЕ ФАМИЛИЮ ОПЕРАТОРА",ИМЯ=фамОпер);
/* вывод на чек и на экран
ВЫВОД(ВД="ПРИВЕТ,",ПОЗ=1,ПЕЧАТЬ=ДА);
ВЫВОД(ВД=фамОпер,ПОЗ=21,ПЕЧАТЬ=ДА);
/* задержка времени 3.6 сек, чтобы оператор успел прочитать на экране сообщение и уронить слезу
ЗАДЕР_В_МС(Т=3600);
ФИНИШ;
/*
/*==========
/* <hate> мерзко пищит,
/* использовать против людей
/*==========
МерзкаяПищалка: НАЧАЛО(прм1=ЦБ2);
/* прм1 - количество повторов звукового сигнала
ПРИСВОИТЬ(ТИПП=ЦБ2,ЗНАЧ=прм1,ИМЯ=ошПерТумбл4);
НЦ(НАЧ=1,КОН=ошПерТумбл4,ШАГ=1,ИНД=И);
ЗВУК(Пс=ВКЛ);
ЗАДЕР_В_МС(Т=800);
ЗВУК(Пс=ОТКЛ);
ЗАДЕР_В_МС(Т=1200);
КЦ;
КОНЕЦ;
/*==========
/*
Заключение
Спасибо.
Источник: lurkmore.to
- Тайванец 10 часов держал ноги в сухом льду до обморожения, чтобы обмануть страховую
- Мужчина наткнулся на тайник с деньгами и вернул их владельцу
