Hello world!

Автор:

DrRoot

26 мая 2016 11:37

Метки: hellworld языки программирования истории

3361

«Hello, world!» — программа, результатом работы которой является вывод на экран или иное устройство фразы «Hello, world!». Обычно это первый пример программы в учебниках по программированию, и для многих студентов такая программа является первым опытом при изучении нового языка. А как выглядит «Hello, world!» на разных языках программирования? Картинок больше не будет :)

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);
КЦ;
КОНЕЦ;
/*==========
/*

Заключение

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

Спасибо.

Источник:

Еще крутые истории!

Метки: hellworld языки программирования истории

Новости партнёров

А что вы думаете об этом?

Фото Видео Демотиватор Мем ЛОЛ Twitter Instagram Аудио

Отправить комментарий в Вконтакте

This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Фото Видео Демотиватор Мем ЛОЛ Twitter Instagram Audio

Отправить комментарий в: Вконтакте Отправить комментарий в Вконтакте

This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

35 комментариев

Сначала новые

Сначала лучшие Сначала старые

Лучший комментарий