381
备注:
|
2464
|
删除的内容标记成这样。 | 加入的内容标记成这样。 |
行号 1: | 行号 1: |
## page was renamed from 各种语言的HelloWorld程序 [[TableOfContents]] == C == == C++ == {{{#!cplusplus #include <iostream> #include <string> using namespace std; class Message { private: string txt; public: Message(string s){ txt = s;} void Print() const { cout << txt;} }; int main() { Message M("Hello world"); M.Print(); } }}} 详见["C++语言"] == Lisp == * XLISP: http://www.mv.com/ipusers/xlisper/ * XLISP PLUS: http://almy.us/xlisp.html |
|
行号 30: | 行号 64: |
一个Delphi教程:attachment:delphitut.zip == Perl == {{{ package Message; # Message class constructor sub new { my $class = shift; my $txt = shift; my $self = {}; $self->{txt} = $txt; bless ($self, $class); return $self; } #Message->print() method sub print{ my $self = shift; if ($self->{txt} eq ""){ print "No message"; }else{ for($i=0;$i<3;$i++){ print $self->{txt},"\n"; } } return $self } 1; }}} {{{ require Message; $m = Message->new("Hello World"); $m->print(); }}} * Robert's Tutorial: http://perl.sioc.org/win32perltut.html == Visual BASIC == {{{ class Message Private theTxt Public Property Let TXT(S) theTxt = S End Property Public Sub Print() Wscript.echo theTxt End Sub End Class Dim M set M = new Message M.TXT = "Hello world" m.Print() }}} == Java == {{{ class Msg{ private String txt; public Msg(String s){ txt = s; } public void print(){ System.out.println(txt); } } public class hello{ public static void main(String args[]){ Msg M = new Msg("hello world"); M.print(); int i = 0; } } }}} 一个简洁的Java教程:[attachment:Java%20Programming%20for%20beginners%20in%20fourhours.htm] == JavaScript == 一个Java Script教程:attachment:jsintro.zip == Smalltalk == * Dolphin Smalltalk: http://www.object-arts.com/content/navigation/products/dce.html 文档:http://www.object-arts.com/docs/index.html == Tcl == |
C
C++
详见["C++语言"]
Lisp
XLISP PLUS: http://almy.us/xlisp.html
Delphi
program hellopas; {$APPTYPE CONSOLE} uses windows; type Message = class txt : string; constructor create(s:string); procedure print; end; constructor Message.Create(s:string); begin txt := s end; procedure Message.print; begin writeln(txt) end; var m : Message; begin m := Message.Create('Hello world'); m.print() end.
一个Delphi教程:attachment:delphitut.zip
Perl
package Message; # Message class constructor sub new { my $class = shift; my $txt = shift; my $self = {}; $self->{txt} = $txt; bless ($self, $class); return $self; } #Message->print() method sub print{ my $self = shift; if ($self->{txt} eq ""){ print "No message"; }else{ for($i=0;$i<3;$i++){ print $self->{txt},"\n"; } } return $self } 1;
require Message; $m = Message->new("Hello World"); $m->print();
Robert's Tutorial: http://perl.sioc.org/win32perltut.html
Visual BASIC
class Message Private theTxt Public Property Let TXT(S) theTxt = S End Property Public Sub Print() Wscript.echo theTxt End Sub End Class Dim M set M = new Message M.TXT = "Hello world" m.Print()
Java
class Msg{ private String txt; public Msg(String s){ txt = s; } public void print(){ System.out.println(txt); } } public class hello{ public static void main(String args[]){ Msg M = new Msg("hello world"); M.print(); int i = 0; } }
一个简洁的Java教程:[attachment:Java%20Programming%20for%20beginners%20in%20fourhours.htm]
JavaScript
一个Java Script教程:attachment:jsintro.zip
Smalltalk
Dolphin Smalltalk: http://www.object-arts.com/content/navigation/products/dce.html 文档:http://www.object-arts.com/docs/index.html