用202种编程语言输出hello world,你会几种?(3)

用202种编程语言输出hello world,你会几种?(3),第1张

你知道多少种编程语言?也许是java、python、C、C++,或是html,vbs,bat,C#,ruby,今天,你将会见识到这202种或是你熟知的,又或是你不熟知的编程语言。用它们输出hello world,会是什么样呢?

CGI in c语言:

#include 

main ()
{
   printf ("Content-type: text/html\n");
   printf ("\n");
   printf ("\n");
   printf ("\n");
   printf ("Hello, world!\n");
   printf ("\n");
   printf ("\n");
   printf ("\n");
   printf ("Hello, world!\n");
   printf ("\n");
   printf ("\n");
}

CLIPS语言:

(deffacts facts (a))

(defrule rule1 "Hello World"
 ?a<-(a)
=>
 (retract ?a)
 (printout t "Hello World" crlf)
 (assert (a))
)

CLU语言:

start_up = proc()
    outstream:stream := primary_output()
    for s:string in get_hello_world() do
        stream$putl(outstream,s)
      end
  end

get_hello_world = iter() yields(string)
    while (true) do
        yield ("Hello, World!")
      end
  end

COBOL语言:

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID.     HELLOWORLD.
000300 DATE-WRITTEN.   02/05/96        21:04.
000400*       AUTHOR    BRIAN COLLINS
000500 ENVIRONMENT DIVISION.
000600 CONFIGURATION SECTION.
000700 SOURCE-COMPUTER. RM-COBOL.
000800 OBJECT-COMPUTER. RM-COBOL.
000900
001000 DATA DIVISION.
001100 FILE SECTION.
001200
100000 PROCEDURE DIVISION.
100100
100200 MAIN-LOGIC SECTION.
100300 BEGIN.
100400     DISPLAY " " LINE 1 POSITION 1 ERASE EOS.
100500     DISPLAY "HELLO, WORLD." LINE 15 POSITION 10.
100600     STOP RUN.
100700 MAIN-LOGIC-EXIT.
100800     EXIT.

Codeworks语言:

user tell "Hello, World".

 CORC语言:

NOTE "HELLO WORLD" IN CORC (CORNELL UNIVERSITY COMPUTING \ LANGUAGE)
        TITLE HELLO WORLD
        STOP

CPL语言:

TYPE ' Hello World

CP/M M80语言:

     Title  "Hello, World!"
       ORG    0100H
Print: LD     HL,10H
       PUSH   HL
LOOP:
       LD     DE,MSG
       LD     C,09H    ; CP/M write string to console call
       CALL   0005H
 
       POP    HL       ; Get loop counter
       DEC    HL       ;   and decriment it
 
       PUSH   HL       ; Put back on stack

       LD     A,L
       JR     NZ, LOOP ; Loop while not zero

       POP    HL       ; Clean up stack

       LD     C,00H    ; CP/M system reset call - shut down
       CALL   0005H

       HALT            ; This code is never reached

MSG:
       TEXT   "Hello, World!"
       DB     0Ah
       DB     "$"      ; Line terminator
       ENDM   Print

 DCAlgol语言:


     BEGIN
     ARRAY DCREC [0:0];
     MESSAGE BUSTER;
     QUEUE PRIMARY;
     INTEGER I1;
     POINTER P1;
     
     ALLOCATE (BUSTER, 8);
     BUSTER [0] := 0;
     I1 := DCWRITE (BUSTER, PRIMARY); %Initialize Primary Queue
     ALLOCATE (BUSTER, 9);
     BUSTER [0] := 0 & 4 [47:8] & 1 [31:1] & 1 [30:1] & 1 [29:1] 
     & 1 [28:1] & 1 [27:1] & 1 [26:1] & 1 [25:1] & 472 [22:23];
     I1 := DCWRITE (BUSTER); %Station Inquiry
     RESIZE (DCREC, SIZE (BUSTER) + 10, DISCARD);
     REPLACE P1:DCREC [1] BY POINTER (BUSTER [1], 8) FOR (SIZE (BUSTER) - 
     1) * 6;
     WHILE MYSELF.TASKVALUE = 0 DO
       DISPLAY ("HELLO WORLD"); %Duh
     END.

Dylan语言:

(define (hello ) (method () (print "Hello, World")))

 Easytreive语言:

JOB INPUT NULL

DISPLAY 'HELLO WORLD'

GO TO JOB

Eiffel语言:

class HELLO_WORLD

creation
        make
feature
        make is
        local
                io:BASIC_IO
        do
                !!io
                io.put_string("%N Hello World!!!!")
        end --make

end -- class HELLO_WORLD

Erlang语言:

-module(hello).
-export([hello_world/0]).

hello_world()->
    io:format("Hello World ~n"). 
-----------------------------------------------------------------------
And Executing:

hello:hello_world().  

Euphoria语言:

puts(1, "Hello World!\n")

 FileNet WorkFlo Language语言:

include system "display.wfi";

MAIN : procedure;
beginproc

display popup 'Hello World' wait foruser;

endproc;
endmodule;

 这是第31~45种语言,想看后续的请关注作者哦

 

 

欢迎分享,转载请注明来源:内存溢出

原文地址:https://outofmemory.cn/langs/3002963.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2022-09-27
下一篇2022-09-27

随机推荐

  • 意大利语baci是什么意思中文

    baci,是意大利语,就是吻的意思。cium是印尼语, besos是西班牙语,都是亲吻的意思。在微信里发完baci后,会出现表情雨。 在微信里面发完baci之后,就会出现满屏的亲吻,其实这个就是一个音

  • 起泡胶太脆不能起泡怎么办

    起泡胶太脆起不了泡可以尝试往里面加入一些甘油,用手揉匀后,起泡胶就会软化且不会因此而变色。此外也可以往起泡胶内加一些牙膏,将牙膏和起泡胶揉搓均匀后,起泡胶的效果也会更好,且同样不会出现染色的现象。1、

    2022-12-06
    000
  • 朱棣为什么要谋反

    导致朱棣谋反的原因主要有两大方面,一是建文帝朱允炆的削藩政策,触动了包括朱棣在内的一些藩王的利益;二是因为朱棣本来就有当皇帝的野心,可惜的是朱元璋并没有传位于他,反倒是将皇位传给了性格懦弱仁慈的孙子

  • 三国何进怎么死的

    何进(?-189年),字遂高,南阳宛(今河南南阳)人。何进出身屠户,早先丧母。其父何真再娶,生有一子二女,后何进同父异母的妹妹选入宫廷,有宠于灵帝,进受职郎中。继而升虎贲中郎将。光和年间,何贵人被封为

    2022-12-06
    000
  • 元稹与薛涛的关系

     薛涛与元稹曾经是情人关系。薛涛是长安人,她的父亲薛郧曾是京城的官员,薛涛作为家里的独女被家里人宠爱着长大。在薛涛十四岁的时候,薛涛的父亲遭到贬谪,并在途中丧命。为了维持一家人的生活,薛涛成为了一名乐

    2022-12-06
    000
  • 中国四大名酒是哪四种

    中国四大名酒是贵州茅台酒,山西汾酒,四川泸州曲酒,陕西西凤酒;四大名酒身上透出许多共同的信息,不仅都是有着悠久的历史,而且都是曾在1915年由当时的北洋政府选送到美国旧金山参加巴拿马万国博览会并获奖的

    2022-12-06
    000
  • 杨广弑父是真的吗

    隋炀帝杨广相貌堂堂、风流倜傥、聪明伶俐,但荒淫无度。《唐书》说其弑父、弑兄、奸母、淫妹,亲媚臣、杀忠良。司马光在《资治通鉴》中,称其“智可以拒谏,诈足以饰非”。关于文帝被弑的说法,唐朝编写的隋书在文帝

    2022-12-06
    000
  • 十二星座哪个星座吵架最狠

    哪个星座吵架最狠:1、天秤座:天秤口才很厉害,不要和他们吵架,特别毒舌。2、双子座:双子的头脑跟口才特别厉害,也是有办法让你对他们心服口服。3、射手座:射手人缘特别好,与人为善,但发起脾气来他们可是最

    2022-12-06
    000
  • 房屋拆迁后可以申请宅基地吗

    房屋拆迁后,一般可以申请宅基地,但要视被拆迁户选择的补偿方式而定。 农村宅基地搬迁补偿一般分为搬迁安置补偿和货币补偿或房屋补偿。 选择搬迁安置方式的,可以申请宅基地建房; 选择货币补偿安置或房屋置换安

    2022-12-06
    000

发表评论

登录后才能评论

评论列表(0条)

    保存