Hello world! (2 фото)
BASIC
10 PRINT "Hello, World!"
Quick/Turbo BASIC:
? "Hello, World!"
Fortran 77
PROGRAM HELLOW
WRITE(UNIT=*, FMT=*) 'Hello World'
END
Ruby
puts 'Hello, World!'
Pawn
print "Hello, World!"
Python 3.0
print("Hello, World!")
MS-DOS shell
echo Hello, world!
Rexx
Say 'Hello, world!'
Pascal
begin
write('Hello, World!')
end.
Delphi
Консоль:
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;
Модула-3
MODULE Main;
IMPORT IO;
BEGIN
IO.Put ("Hello World\n")
END Main.
Visual Basic
Sub Main()
print "Hello, World!"
End Sub
Lotus Script
Messagebox "Hello, World!", MB_OK
Или так (не самый заметный вариант):
Print "Hello, World!"
Или рядом с LS:
@Prompt([OK];"";"Hello, World!");
Ещё на "собаках" (аналог print'а):
@StatusBar("Hello, World!")
InstallScript
Messagebox("Hello, World!", MB_OK);
AutoIT
MsgBox(0, "AutoIT Window", "Hello, world!", 0.75)
C/C++
#include <stdio.h>
int main(void)
{
printf("Hello, World!\n");
return 0;
}
C++
#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;
}
Objective-C
#import <Foundation/Foundation.h>
@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#
printfn "Hello, World!"
Boo
print("Hello, World!")
Perl
#!/usr/bin/perl
print "Hello, World!\n";
или
perl -le 'print "Hello, World!"'
Haskell
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!"
LISP
(princ "Hello, world!")
Clojure
(println "Hello world")
Forth
: HelloWorld ." Hello, world!" ;
BrainFuck
++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.
Factor
USE: io
IN: hello-world
: hello ( -- ) "Hello, world!" print ;
MAIN: hello
1С:Предприятие 7.7/8/8.1/8.2
Предупреждение("Hello, world");
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
object HelloWorld extends App {
println("Hello, world!")
}
ActionScript 2.0
traсe ("hello world!");
ActionScript 3.0
traсe ("hello world!");
или
var field:TextField=new TextField();
field.text="hello world!";
addChild(field);
Eiffel
class HELLO_WORLD
feature
print_hello is
-- Print "Hello, World!"
do
print ("Hello, World!")
end
end
MIDlet Pascal
Program Hello;
Begin
DrawText('Hello, world!', 5, 5);
Repaint; Delay(5000);
End.
PHP
echo "Hello, world!";
Vbscript
Msgbox "Hello world!"
Javascript
document.write("Hello, world!");
sh
echo Hello, world!
Пролог
goal :-
write ("Hello, World!").
SQL
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;
Assembler (i8086, MS-DOS, tasm)
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
GML
show_message("Hello, World!");
Blitz3D
Text 0,0,"Hello, world!"
или
Print "Hello, world!"
WaitKey ;
NATURAL
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
LSL
default
{
state_entry()
{
llSay(0,"Hello, world!");
}
}
Erlang
#!/usr/bin/env escript
main(_Args) ->
io:format("Hello, World!~n").
Malbolge
(=<`:9876Z4321UT.-Q+*)M'&%$H"!~}|Bzy?=|{z]KwZY44Eq0/{mlk**hKs_dG5[m_BA{?-Y;;Vb'rR5431M}/.zHGwEDCBA@98\6543W10/.R,+O<
LOLCODE
HAI
CAN HAS STDIO?
VISIBLE "HAI WORLD!"
KTHXBYE
Go
package main
func main() {
println("Hello, world!")
}
ProceRaptor
application ($console,$void);
var ("st",$string);
"Hello World!">>st;
write (st,$line);
read ($void,$line);
exit();
Icon
procedure main()
write("Hello, world!")
end
ABAP
REPORT zhello.
WRITE / 'Hello, World!'.
Befunge
0"!dlroW ,olleH">:#,_@
TeX
Hello, World!
Vimscript
:echo 'Hello World!'
Small Basic
TextWindow.WriteLine("Hello, World!")
Rust
fn main() {
println!("Hello World!");
}
Swift 2.1
print("Hello, world!")
MATLAB
disp('Hello, world!');
V
Счетчик Отобразить(_Текст) импорт _ОтобразитьТекст;
->ПриветМир():
Отобразить "Hello, world!";
<-0;
.
ЯСОП52
/*@@ПриветЧел-КП211.101
/* запрет вывода на чек долбанных номеров операций
ВИД_ПЕЧАТИ(Пнс=1);
/* привлечение внимания к оборудованию
ВЫЗОВ(ПП=МерзкаяПищалка,прм1=3);
/* запрос фамилии страдальца
ВВОД_КЛ(ТИПП=С,ТЕКСТ="РУЧНАЯ ОПЕРАЦИЯ 666:ВВЕДИТЕ ФАМИЛИЮ ОПЕРАТОРА",ИМЯ=фамОпер);
/* вывод на чек и на экран
ВЫВОД(ВД="ПРИВЕТ,",ПОЗ=1,ПЕЧАТЬ=ДА);
ВЫВОД(ВД=фамОпер,ПОЗ=21,ПЕЧАТЬ=ДА);
/* задержка времени 3.6 сек, чтобы оператор успел прочитать на экране сообщение и уронить слезу
ЗАДЕР_В_МС(Т=3600);
ФИНИШ;
/*
/*==========
/* <hate> мерзко пищит,
/* использовать против людей
/*==========
МерзкаяПищалка: НАЧАЛО(прм1=ЦБ2);
/* прм1 - количество повторов звукового сигнала
ПРИСВОИТЬ(ТИПП=ЦБ2,ЗНАЧ=прм1,ИМЯ=ошПерТумбл4);
НЦ(НАЧ=1,КОН=ошПерТумбл4,ШАГ=1,ИНД=И);
ЗВУК(Пс=ВКЛ);
ЗАДЕР_В_МС(Т=800);
ЗВУК(Пс=ОТКЛ);
ЗАДЕР_В_МС(Т=1200);
КЦ;
КОНЕЦ;
/*==========
/*
Заключение
Конечно же, не всё пробовал сам... а названия некоторых языков вообще вижу впервые :) и всё-таки напоследой ловите картинку :)
Спасибо.