Пример:
Вывод сообщения «TPU!» в консольном приложении Delphi
program tpu; //название программы
{$APPTYPE CONSOLE} //директива компилятору о создании консольного приложения
begin
writeln('TPU!'); //вывод сообщения TPU!
end. //конец программы
Расширения файлов создаваемых при разработке программ:
.pas — исходный код модуля (pascal)
.dpr — исходный код проекта (pascal)
.dproj — исходный код проекта (xml)
.dproj.local — исходный код проекта (xml)
.dfm — исходный код формы
.dpk — скомпилированный пакет
.dcu — скомпилированный модуль
.exe — скомпилированное приложение
.res — ресурсы
.dsk — привязки к файлам
.identcache — кэшированные привязки к файлам
Алгоритм программы «Калькулятор» на языке Pascal.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button13Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a,b,c: real;
d: char;
implementation
{$R *.dfm}
procedure TForm1.Button13Click(Sender: TObject);
begin
Edit2.Text:=Edit1.Text+'+';
a:= StrToFloat(Edit1.Text);
Edit1.Text:= '+';
d:= '+';
end;
procedure TForm1.Button18Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Button17Click(Sender: TObject);
begin
Edit1.Clear; a:= 0; b:= 0; c:= 0;
Edit2.Clear;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
a:= 0; b:= 0; c:= 0;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
Edit2.Text:=Edit1.Text+'/';
a:= StrToFloat(Edit1.Text);
Edit1.Text:= '/';
d:= '/';
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
Edit2.Text:=Edit1.Text+'*';
a:= StrToFloat(Edit1.Text);
Edit1.Text:= '*';
d:= '*';
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
Edit2.Text:=Edit1.Text+'-';
a:= StrToFloat(Edit1.Text);
Edit1.Text:= '-';
d:= '-';
end;
procedure TForm1.Button16Click(Sender: TObject);
begin
b:= StrToFloat(Edit1.Text);
if d = '/' then c:= a/b;
if d = '-' then c:= a-b;
if d = '*' then c:= a*b;
if d = '+' then c:= a+b;
Edit2.Text:=Edit2.Text+Edit1.Text+'='+FloatToStr(c);
Edit1.Text:= FloatToStr(c);
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
if (Edit1.Text = '/') or
(Edit1.Text = '*') or
(Edit1.Text = '+') or
(Edit1.Text = '-') then Edit1.Text:= '0'
else Edit1.Text:= Edit1.Text + '0';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text = '/') or
(Edit1.Text = '*') or
(Edit1.Text = '+') or
(Edit1.Text = '-') then Edit1.Text:= '1'
else Edit1.Text:= Edit1.Text + '1';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if (Edit1.Text = '/') or
(Edit1.Text = '*') or
(Edit1.Text = '+') or
(Edit1.Text = '-') then Edit1.Text:= '2'
else Edit1.Text:= Edit1.Text + '2';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if (Edit1.Text = '/') or
(Edit1.Text = '*') or
(Edit1.Text = '+') or
(Edit1.Text = '-') then Edit1.Text:= '3'
else Edit1.Text:= Edit1.Text + '3';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if (Edit1.Text = '/') or
(Edit1.Text = '*') or
(Edit1.Text = '+') or
(Edit1.Text = '-') then Edit1.Text:= '4'
else Edit1.Text:= Edit1.Text + '4';
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
if (Edit1.Text = '/') or
(Edit1.Text = '*') or
(Edit1.Text = '+') or
(Edit1.Text = '-') then Edit1.Text:= '5'
else Edit1.Text:= Edit1.Text + '5';
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
if (Edit1.Text = '/') or
(Edit1.Text = '*') or
(Edit1.Text = '+') or
(Edit1.Text = '-') then Edit1.Text:= '6'
else Edit1.Text:= Edit1.Text + '6';
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
if (Edit1.Text = '/') or
(Edit1.Text = '*') or
(Edit1.Text = '+') or
(Edit1.Text = '-') then Edit1.Text:= '7'
else Edit1.Text:= Edit1.Text + '7';
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
if (Edit1.Text = '/') or
(Edit1.Text = '*') or
(Edit1.Text = '+') or
(Edit1.Text = '-') then Edit1.Text:= '8'
else Edit1.Text:= Edit1.Text + '8';
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
if (Edit1.Text = '/') or
(Edit1.Text = '*') or
(Edit1.Text = '+') or
(Edit1.Text = '-') then Edit1.Text:= '9'
else Edit1.Text:= Edit1.Text + '9';
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
if (Edit1.Text = '/') or
(Edit1.Text = '*') or
(Edit1.Text = '+') or
(Edit1.Text = '-') then Edit1.Text:= ','
else Edit1.Text:= Edit1.Text + ',';
end;
end.
Калькулятор исправен и способен к вычислению простейших действий:
12345679*99999999=1,2345679e^15
Вывод: Создание данной программы на языке является затруднительной задачей, так как объём данных достаточно массивен и не удобен в использовании. Однако в среде Delphi создание данной программы не вызывает проблем. Таким образом Delphi является более продвинутой и удобной средой для программирования, использующей диалект Object Pascal, чем, к примеру Turbo Pascal.