Hello world!

10 PRINT "Hello, World!"

? "Hello, World!"

PROGRAM HELLOW
WRITE(UNIT=*, FMT=*) 'Hello World'
END

puts 'Hello, World!'

print "Hello, World!"

print("Hello, World!")

echo Hello, world!

Say 'Hello, world!'

begin
write('Hello, World!')
end.

Консоль:
begin
Writeln('Hello, World!');
end.

WinAPI:
uses windows;
begin
MessageBox(0,'Hello, World!','Заголовок',0);
end.

with Ada.Text_IO;
procedure Hello_World is
begin
Ada.Text_IO.Put_Line ("Hello World");
end Hello_World;

MODULE Main;
IMPORT IO;
BEGIN
IO.Put ("Hello World\n")
END Main.

Sub Main()
print "Hello, World!"
End Sub

Messagebox "Hello, World!", MB_OK

Или так (не самый заметный вариант):

Print "Hello, World!"

Или рядом с LS:

@Prompt([OK];"";"Hello, World!");

Ещё на "собаках" (аналог print'а):

@StatusBar("Hello, World!")

Messagebox("Hello, World!", MB_OK);

MsgBox(0, "AutoIT Window", "Hello, world!", 0.75)

#include <stdio.h>

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

#include <iostream>
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;
}

#import <Foundation/Foundation.h>
@interface HelloWorld : NSObject
@end
@imlementation HelloWorld
+load{
NSLog(@"Hello, World!");
return;
}
@end

В консоль:

using System;

class Program
{
static void Main()
{
Console.Write("Hello, World!");
}
}

В окошко:

class Program
{
static void Main()
{
System.Windows.Forms.MessageBox.Show("Hello, World!");
}
}

printfn "Hello, World!"

print("Hello, World!")

#!/usr/bin/perl
print "Hello, World!\n";

или

perl -le 'print "Hello, World!"'

import qualified Data.ByteString as BS
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!"

(princ "Hello, world!")

(println "Hello world")

: HelloWorld ." Hello, world!" ;

++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.

USE: io
IN: hello-world

: hello ( -- ) "Hello, world!" print ;
MAIN: hello

Предупреждение("Hello, world");

DoMessageBox("Hello, world",,"Attention");

Сообщить("Привет, Мир!");

Message("Привет, Мир!", MessageStatus.Attention);

Консоль:

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();
}
}

object HelloWorld extends App {
println("Hello, world!")
}

traсe ("hello world!");

traсe ("hello world!");

или

var field:TextField=new TextField();
field.text="hello world!";
addChild(field);

class HELLO_WORLD
feature
print_hello is
-- Print "Hello, World!"
do
print ("Hello, World!")
end
end

Program Hello;
Begin
DrawText('Hello, world!', 5, 5);
Repaint; Delay(5000);
End.

echo "Hello, world!";

Msgbox "Hello world!"

document.write("Hello, world!");

echo Hello, world!

goal :-
write ("Hello, World!").

SQL-92

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;

mov ax, 0b800h
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

show_message("Hello, World!");

Text 0,0,"Hello, world!"

или

Print "Hello, world!"
WaitKey ;

define data local
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

default
{
state_entry()
{
llSay(0,"Hello, world!");
}
}

#!/usr/bin/env escript

main(_Args) ->
io:format("Hello, World!~n").

(=<`:9876Z4321UT.-Q+*)M'&%$H"!~}|Bzy?=|{z]KwZY44Eq0/{mlk**hKs_dG5[m_BA{?-Y;;Vb'rR5431M}/.zHGwEDCBA@98\6543W10/.R,+O<

HAI
CAN HAS STDIO?
VISIBLE "HAI WORLD!"
KTHXBYE

package main

func main() {
println("Hello, world!")
}

application ($console,$void);
var ("st",$string);
"Hello World!">>st;
write (st,$line);
read ($void,$line);
exit();

procedure main()
write("Hello, world!")
end

REPORT zhello.
WRITE / 'Hello, World!'.

0"!dlroW ,olleH">:#,_@

Hello, World!

:echo 'Hello World!'

TextWindow.WriteLine("Hello, World!")

fn main() {

println!("Hello World!");
}

print("Hello, world!")

disp('Hello, world!');

Счетчик Отобразить(_Текст) импорт _ОтобразитьТекст;
->ПриветМир():
Отобразить "Hello, world!";
<-0;
.

/*@@ПриветЧел-КП211.101
/* запрет вывода на чек долбанных номеров операций
ВИД_ПЕЧАТИ(Пнс=1);
/* привлечение внимания к оборудованию
ВЫЗОВ(ПП=МерзкаяПищалка,прм1=3);
/* запрос фамилии страдальца
ВВОД_КЛ(ТИПП=С,ТЕКСТ="РУЧНАЯ ОПЕРАЦИЯ 666:ВВЕДИТЕ ФАМИЛИЮ ОПЕРАТОРА",ИМЯ=фамОпер);
/* вывод на чек и на экран
ВЫВОД(ВД="ПРИВЕТ,",ПОЗ=1,ПЕЧАТЬ=ДА);
ВЫВОД(ВД=фамОпер,ПОЗ=21,ПЕЧАТЬ=ДА);
/* задержка времени 3.6 сек, чтобы оператор успел прочитать на экране сообщение и уронить слезу
ЗАДЕР_В_МС(Т=3600);
ФИНИШ;
/*
/*==========
/* <hate> мерзко пищит,
/* использовать против людей
/*==========
МерзкаяПищалка: НАЧАЛО(прм1=ЦБ2);
/* прм1 - количество повторов звукового сигнала
ПРИСВОИТЬ(ТИПП=ЦБ2,ЗНАЧ=прм1,ИМЯ=ошПерТумбл4);
НЦ(НАЧ=1,КОН=ошПерТумбл4,ШАГ=1,ИНД=И);
ЗВУК(Пс=ВКЛ);
ЗАДЕР_В_МС(Т=800);
ЗВУК(Пс=ОТКЛ);
ЗАДЕР_В_МС(Т=1200);
КЦ;
КОНЕЦ;
/*==========
/*

Конечно же, не всё пробовал сам... а названия некоторых языков вообще вижу впервые :) и всё-таки напоследой ловите картинку :)

Спасибо.