Реферат Порівняльний аналіз мов програмування

------------------

# include Viigriw.h

# include lt; vcl.h gt;

# pragma hdrstop

# include Spros.h

# include Zastavka.h

# include Est_bukva.h

# include Net_bukvi.h

# include Round1.h

# include Round2.h

# include Round3.h

# include Porajenie.h

# include Baraban.h

# include Final.h

# include process.h

//---------------------------------------------------------------------------

# pragma package (smart_init)

# pragma resource *. dfm * Form11;

//---------------------------------------------------------------------------

__ fastcall TForm11 :: TForm11 (TComponent * Owner)

: TForm (Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm11 :: Button1Click (TObject * Sender)

{ gt; Terminate ();

}

//---------------------------------------------------------------------------

void __fastcall TForm11 :: Button3Click (TObject * Sender)

{(((AnsiString) getenv ( COMSPEC ) + /c ping -n 2 localhost gt; nul amp; Start " " " Pole.exe " ) .c_str (), SW_HIDE); gt; Terminate (); ();

}

//---------------------------------------------------------------------------

void __fastcall TForm11 :: FormClose (TObject * Sender, TCloseAction amp; Action)

{= caNone;

}

//---------------------------------------------------------------------------

Додаток 2. Лістинг програми Delphi

Zastavka ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, jpeg, ExtCtrls, StdCtrls;=class (TForm): TImage ;: TImage ;: TImage ;: TButton ;: TButton ;: TButton ;: TStaticText ;: TStaticText; Button3Click (Sender: TObject); Button2Click (Sender: TObject); Button1Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm1;

implementationRound1;

{$ R * .dfm} TForm1.Button3Click (Sender: TObject);

begin () ;;

procedure TForm1.Button2Click (Sender: TObject);

begin ( Правила гри: Вас очікує 3 раунду і фінал. За кожну правильно вгадану букву ви набираєте очки. Якщо назвете слово цілком - 1500 очок. Обмеження - 16 ходів. Якщо до фіналу ви набираєте більше 7000 очок, то декілька перших літер стають видними. ) ;;

procedure TForm1.Button1Click (Sender: TObject);

begin.ShowModal () ;;.

Приклад раунду гри ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls, jpeg;=class (TForm): TImage ;: TLabel ;: TLabel ;: TRadioButton ;: TPanel ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton;:TButton ;: TImage ;: TLabel ;: TPanel ;: TPanel ;: TPanel ;: TPanel ;: TPanel ;: TPanel ;: TButton ;: TButton ;: TLabel ;: TImage ;: TPanel; FormShow (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); RadioButton2Click (Sender: TObject); Button34Click (Sender: TObject); Button35Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); Button5Click (Sender: TObject); Button6Click (Sender: TObject); Button7Click (Sender: TObject); Button8Click (Sender: TObject); Button9Click (Sender: TObject); Button10Click (Sender: TObject ); Button11Click (Sender: TObject); Button12Click (Sender: TObject); Button13Click (Sender: TObject); Button14Click (Sender: TObject); Button15Click (Sender: TObject); Button16Click (Sender: TObject); Button17Click (Sender: TObject) ; Button18Click (Sender: TObject); Button19Click (Sender: TObject); Button20Click (Sender: TObject); Button21Click (Sender: TObject); Button22Click (Sender: TObject); Button23C...