500种HelloWorld的写法.docx

1C-Enterprise Back to index / Hello World in 1C:Enterprise built-in script languageMessage(Hello, World!);-4Test Back to index / Hello World in 4Testtestcase printHelloWorld() print(Hello World!)-ABAP4 Back to index REPORT ZHB00001.*Hello world in ABAP/4 *WRITE: Hello world.-Action! Back to index ; Hello world in Action! programming language for the Atari 8-Bit computersPROC Main()PrintE(Hello World!)RETURN-ActionScript 3.0 Back to index / Hello World in ActionScript 3. Place code in the first frame Actions.var t:TextField=new TextField();t.text=Hello World!;addChild(t);-Actionscript-Flash5 Back to index / Hello World in Actionscript (up to Flash 5, IDE only)trace (Hello World);-ActionScript-Flash8 Back to index / Hello World in ActionScript 2.0 (Flash 8)class HelloWorld private var helloWorldField:TextField; public function HelloWorld( mc:MovieClip ) mc.helloWorldField = mc.createTextField(helloWorldField, mc.getNextHighestDepth(), 0, 0, 100, 100); mc.helloWorldField.autoSize = left; mc.helloWorldField.html = true; mc.helloWorldField.htmlText = Hello World!; / on a frameimport HelloWorld;var hw:HelloWorld = new HelloWorld( this );-Actionscript-FlashMX Back to index / Hello World in Actionscript (Flash MX onwards) _root.createTextField(mytext,1,100,100,300,100);mytext.multiline = true;mytext.wordWrap = true;mytext.border = false;myformat = new TextFormat();myformat.color = 0xff0000;myformat.bullet = false;myformat.underline = true;mytext.text = Hello World!;mytext.setTextFormat(myformat);-Ada Back to index - Hello World in Adawith Text_IO;procedure Hello_World isbeginText_IO.Put_Line(Hello World!);end Hello_World;-Algol-60 Back to index BEGIN COMMENT Hello World in Algol 60; OUTPUT(4,(Hello World!),/)END-Algol-68 Back to index ( # Hello World in Algol 68 # print(Hello World!,newline)-Alpha-Five-Xbasic Back to index Hello World in Alpha Five Xbasicui_msg_box(The Hello World Collection, Hello World, UI_ATTENTION_SYMBOL)-amharic Back to index Hello World in amharic (in JavaScript)-Amiga-E Back to index - Hello World in Amiga-EPROC main() IS WriteF(Hello Worldn)-APC Back to index / Hello World in the APC language for probesprobe program on_entry log (Hello, world!n);-APL Back to index Hello World for APL. and - are a single character in APL.Comment character is Alt-comma.-Hello World!-AppleScript Back to index - Hello World in AppleScript:display dialog Hello World-Arena Back to index / Hello world in Arenaprint(Hello World!);-Argh! Back to index Hello World in Argh!. No comment character exists.j worldlppppppPPPPPPsrfjhello, *j qPh-ASP-C# Back to index -ASP-JavaScript Back to index Hello World for Microsoft ASP (in JavaScript)-ASP-VBE Back to index #HQAAAA=#&HdTAK6PrCsVKP WMVZr#&HwcAAA=#-ASP-VBS Back to index Hello World for Microsoft ASP (in VBScript)-ASP.NET Back to index -Assembler-6502-AppleII Back to index * * HELLO WORLD FOR 6502 * APPLE , MERLIN ASSEMBLER* *STROUT EQU $DB3A ;OUTPUTS AY-POINTED NULL TERMINATED STRING LDY #HELLO LDA #HELLO JMP STROUTHELLO ASC HELLO WORLD!,00-Assembler-6502-C64 Back to index ; Hello World for 6502 Assembler (C64)ldy #0beq inloop:jsr $ffd2inyin:lda hello,ybne looprtshello: .tx Hello World! .by 13,10,0-Assembler-68000-Amiga Back to index ; Hello World in 68000 Assembler for dos.library (Amiga) move.l#DOS move.l4.w,a6 jsr -$0198(a6) ;OldOpenLibrary move.ld0,a6 beq.s .Out move.l#HelloWorld,d1A) moveq #13,d2 jsr -$03AE(a6) ;WriteCharsB) jsr -$03B4 ;PutStr move.la6,a1 move.l4.w,a6 jsr -$019E(a6) ;CloseLibrary.Out rtsDOS dc.b dos.library,0HelloWorld dc.b Hello World!,$A,0-Assembler-68000-AtariST Back to index ; Hello World in 68000 Assembler (Atari ST) move.l #helloworld,-(A7) move #9,-(A7) trap #1 addq.l #6,A7 move #0,-(A7) trap #1helloworld: dc.b Hello World!,$0d,$0a,0-Assembler-68008 Back to index ; Hello World in 68008 Assembler (Sinclar QL) move.l #0,a0 lea.lmess,a1 move.w $d0,a2 jsr (a2) rtsmess dc.w 12 dc.b Hello World!,10 end-Assembler-ARM Back to index ; Hello World in ARM code assembler, with RISC OS software interruptSWI OS_WriteSEQUS Hello World!EQUB 0ALIGNMOV PC,R14-Assembler-Darwin-PPC Back to index ; Hello World in Assembler for the Darwin Power-PC.data.cstring.align 2msg:.asciz Hello world!nlen = . - msg.text.align 2.globl _start_start:li r0,4li r3,1lis r4,ha16(msg)ori r4,r4,lo16(msg)li r5,lenscli r0,1li r3,0sc-Assembler-DG-Nova Back to index .TITL HELLO02 ; HELLO, WORLD FOR NOVA RUNNING RDOS03 ; USES PCHAR SYSTEM CALL04 .NREL05 .ENT START0607 START:08 00000022424 DOCHAR: LDA 0,PMSG ; LOAD AC0 WITH NEXT CHARACTER,09 00001101015 MOV# 0,0,SNR ; TEST AC0;10 00002000412 JMP DONE ; SKIPPED IF NONZERO11 00003006017 .SYSTM12 00004010000 .PCHAR ; PRINT FIRST13 00005000413 JMP ER ; SKIPPED IF OK14 00006101300 MOVS 0,0 ; SWAP BYTES15 00007006017 .SYSTM16 00010010000 .PCHAR ; PRINT SECOND17 00011000407 JMP ER ; SKIPPED IF OK18 00012010412 ISZ PMSG ; POINT TO NEXT WORD19 00013000765 JMP DOCHAR ; GO AROUND AGAIN2021 00014006017 DONE: .SYSTM ; NORMAL EXIT22 00015004400 .RTN23 00016000402 JMP ER24 00017063077 HALT25 00020006017 ER: .SYSTM ; ERROR EXIT26 00021006400 .ERTN27 00022063077 HALT28 00023063077 HALT2930 00024000025PMSG: .+1 ; ADDRESS OF FIRST WORD OF TEXT31 ; NOTE BYTES ARE PACKED RIGHT-TO-LEFT BY DEFAULT32 00025042510 .TXT /HELLO, WORLD!/ ; THATS CR LF33 04611434 02611735 05344036 05111737 04211438 00644139 00001240 00035000000 0 ; FLAG WORD TO END STRING4142 .END START-Assembler-HLA Back to index ; Hello World for Intel compatible High Level Assemblerprogram HELLO; #include( stdlib.hhf );begin HELLO; stdout.put(Hello World,nl);end HELLO;-Assembler-IBM-370 Back to index ITLE Hello World for IBM Assembler/370 (VM/CMS)HELLO STARTBALR12,0USING *,12*WRTERM Hello World!*SR 15,15BR 14*END HELLO-Assembler-Intel Back to index ; Hello World for Intel Assembler (MSDOS)mov ax,csmov ds,axmov ah,9mov dx, offset Helloint 21hxor ax,axint 21hHello:db Hello World!,13,10,$-Assembler-Itanium Back to index /* Hello world for IA64 (Itanium) Assembly */.HW: stringz Hello World .text .align 16 .global main# .proc main#main: .prologue 14, 32 .save ar.pfs, r33 alloc r33 = ar.pfs, 0, 4, 1, 0 .vframe r34 mov r34 = r12 adds r12 = -16, r12 mov r35 = r1 .save rp, r32 mov r32 = b0 .body addl r14 = ltoffx(.HW), r1 ; ld8.mov r14 = r14, .HW ; st8 r34 = r14 ld8 r36 = r34 br.call.sptk.many b0 = puts# mov r1 = r35 ; mov ar.pfs = r33 mov b0 = r32 .restore sp mov r12 = r34 br.ret.sptk.many b0-Assembler-Linux Back to index ; Hello World for the nasm Assembler (Linux) SECTION .data msg db Hello, world!,0xa ; len equ $ - msg SECTION .text global mainmain: mov eax,4 ; write system call mov ebx,1 ; file (stdou) mov ecx,msg ; string mov edx,len ; strlen int 0x80 ; call kernel mov eax,1 ; exit system call mov ebx,0 int 0x80 ; call kernel-Assembler-MIPS Back to index # Hello Word in Assemlber for the MIPS Architecture.globl mainmain: jal hwbody #call Hello Word Procedure trap 10 #exithwbody: addi $30, $30,-4 #we need to preserve sw $4, 0($30) #existing values in register 4 addi $4,$0,72 # H trap 101 addi $4,$0,101 # e trap 101 addi $4,$0,108 # l trap 101 trap 101 # l addi $4,$0,111 # o trap 101 addi $4,$0,32 # trap 101 addi $4,$0,87 # W trap 101 addi $4,$0,111 # o trap 101 addi $4,$0,114 # r trap 101 addi $4,$0,108 # l trap 101 addi $4,$0,100 # d trap 101 addi $4,$0,33 # ! trap 101 addi $4,$0,10 # n trap 101done: lw $4, 0($30) #restore values addi $30, $30, 4 #in register 4 jr $31 #return to the main-Assembler-MMIX Back to index * Hello World in Assembler * for the MMIX Computer LOC #100Main GETA$255,String TRAP0,Fputs,StdOut TRAP0,Halt,0String BYTEHello, world!,#a,0-Assembler-PA-RISC Back to index / Hello World written in PA-RISC 2.0 assembly code .LEVEL2.0N .SPACE$TEXT$,SORT=8 .SUBSPA $CODE$,QUAD=0,ALIGN=4,ACCESS=0x2c,CODE_ONLY,SORT=24main .PROC .CALLINFO CALLER,FRAME=16,SAVE_RP,ORDERING_AWARE .ENTRY STW %r2,-20(%r30) ;offset 0x0 LDO 64(%r30),%r30 ;offset 0x4 ADDIL LRM$3-$global$,%r27,%r1 ;offset 0x8 LDO RRM$3-$global$(%r1),%r1 ;offset 0xc STW %r1,-56(%r30) ;offset 0x10 ADDIL LRM$3-$global$+16,%r27,%r1 ;offset 0x14 LDO RRM$3-$global$+16(%r1),%r26 ;offset 0x18 LDW -56(%r30),%r25;offset 0x1c LDIL Lprintf,%r31 ;offset 0x20 .CALL ARGW0=GR,ARGW1=GR,RTNVAL=GR ;in=25,26;out=28; BE,L Rprintf(%sr4,%r31),%r31 ;offset 0x24 COPY %r31,%r2 ;offset 0x28 LDW -84(%r30),%r2 ;offset 0x2c BVE (%r2) ;offset 0x30 .EXIT LDO -64(%r30),%r30;offset 0x34 .PROCEND ; .SPACE$TEXT$ .SUBSPA $CODE$ .SPACE$PRIVATE$,SORT=16 .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=0x1f,SORT=16M$3 .ALIGN8 .STRINGZ Hello World .BLOCK4 .STRINGZ %sn .IMPORT $global$,DATA .SPACE$TEXT$ .SUBSPA $CODE$ .EXPORT main,ENTRY,PRIV_LEV=3,LONG_RETURN .IMPORT printf,CODE .END-Assembler-PDP11 Back to index ; Hello World in Assembler for the DEC PDP-11 with the; RSX-11M-PLUS operating system; .title Hello .ident /V0001A/ .mcall qiow$s, exit$s .psect $code,ro,istart:qiow$s #5,#5, exit$s .psect $data,ro,dstr: .ascii / Hello World!/ len=.-str .end start-Assembler-PDP8 Back to index / Hello World in Assembler for the DEC PDP-8*200hello, cla cll tls / tls to set printer flag. tad charac / set up index register dca ir1 / for getting characters. tad m6 / set up counter for dca count / typing characters.next, tad i ir1 / get a character. jms type / type it. isz count / done yet? jmp next / no: type another. hlttype, 0 / type subroutine tsf jmp .-1 tls cla jmp i typecharac, . / used as initial value of ir1 310 / H 305 / E 314 / L 314 / L 317 / O 254 / , 240 / 327 / W 317 / O 322 / R 314 / L 304 / D 241 / !m6, -15count, 0ir1 = 10$-Assembler-VP Back to index ; Hello World in VP Assembler for intent (Amiga Anywhere).include taotool home/hello,VP,TF_MAIN,8192,0 ent (-:-) qcall lib/print,(hello_world.p : i) ret () entend datahello_world: dc.b Hello World!,ASCII_LF,0toolend-Assembler-Win32 Back to index ; Hello world in Assembler for the Win32 architectureTITLE Hello world in win32. TasmVERSION T310Model use32 Flat,StdCallstart_code segment byte public code use32begin:Call MessageBox, 0, offset sHallo, offset caption, 0Call ExitProcess, 0start_code Endsstart_data segment byte public data use32sHallodb Hello world,0caption db Hi,0st