"程序设计语言"版本比较

版本2和3间的区别

C++

   1 #include <iostream>
   2 #include <string>
   3 using namespace std;
   4 
   5 class Message {
   6 private:
   7    string txt;
   8 public:
   9    Message(string s){ txt = s;}
  10    void Print() const { cout << txt;}
  11 };
  12 
  13 int main()
  14 { 
  15    Message M("Hello world");
  16    M.Print();
  17 }

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.

Perl

require Message;

$m = Message->new("Hello World");
$m->print();

-  ⇤ ← 于2007-05-13 23:16:48修订的的版本2 → 
  大小: 675
  编辑: czk
  备注:
+   ← 于2007-05-13 23:18:18修订的的版本3 → ⇥
  大小: 776
  编辑: czk
  备注:
-删除的内容标记成这样。
+加入的内容标记成这样。
 行号 52:
+== Perl ==
{{{#!perl
require Message;

$m = Message->new("Hello World");
$m->print();
}}}