Контрольная работа по "Программирование"

Министерство  образования Республики Беларусь

Белорусский национальный технический университет

Международный институт дистанционного образования 
 
 
 

Контрольная

по дисциплине

Программирование

Вариант-11   
 
 
 
 
 
 
 
 
 
 

Выполнил студент                                                                            Лысов Д.В.

1-го курса  группы А6

г. Гродно Дзержинского 135 кв.26

Зачетная книжка №417426

Специальность 53.01.02.

Информационные  системы и 

технологии 
 
 

Проверил:                                                                                         Орехво                                                                                         
 
 
 
 
 
 
 
 
 
 

ГРОДНО 2007

Лабораторная  работа №1

Простейшая  программа в среде Delphi.

Цель  работы: Научиться конструировать главную форму программы простейшими стандартными компонентами.

Постановка  задачи:

1. Создать главную форму и присвоить ей имя, соответствующее лабораторной работе.
2. Сконструировать простейший калькулятор.
3. Написать обработчики, реализующие основные арифметические действия калькулятора.
4. Изучить структуру Unit главной формы.

1)Листинг программы: 

unit Unit1; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Menus; 

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    Button7: TButton;

    Button8: TButton;

    Button9: TButton;

    ButtonPlus: TButton;

    ButtonMinus: TButton;

    ButtonEnter: TButton;

    ButtonC: TButton;

    Button0: TButton;

    ButtonZ: TButton;

    ButtonDel: TButton;

    ButtonUmn: TButton;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    procedure FormCreate(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 Button0Click(Sender: TObject);

    procedure ButtonZClick(Sender: TObject);

    procedure ButtonPlusClick(Sender: TObject);

    procedure ButtonMinusClick(Sender: TObject);

    procedure ButtonEnterClick(Sender: TObject);

    procedure ButtonCClick(Sender: TObject);

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

    procedure ButtonDelClick(Sender: TObject);

    procedure ButtonUmnClick(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1; 

implementation

var

  accum:real;

  oper:integer;

  f:integer; 

{$R *.dfm} 

procedure DoOper;

var

    numb: real;

begin

    numb := StrToFloat(Form1.Edit1.Text);

    case oper of

    0: accum := numb;

    1: accum := accum + numb;

    2: accum := accum - numb;

    3: accum := accum/numb;

    4: accum := accum*numb;

    end;

    Form1.Edit1.Text := FloatToStr(accum);

end; 

procedure TForm1.FormCreate(Sender: TObject);

begin

    oper := 0;

end; 

procedure TForm1.Button1Click(Sender: TObject);

begin

  if f = 0

  then  begin

      Edit1.Text := '1';

      f := 1;

    end

  else Edit1.Text := Edit1.Text + '1';

end; 

procedure TForm1.Button2Click(Sender: TObject);

begin

  if (f = 0)

  then begin

         Edit1.Text := '2';

         f := 1;

    end

  else Edit1.Text := Edit1.Text + '2';

end; 

procedure TForm1.Button3Click(Sender: TObject);

begin

  if f = 0

  then begin

         Edit1.Text := '3';

         f := 1;

       end

  else Edit1.Text := Edit1.Text + '3';

end; 

procedure TForm1.Button4Click(Sender: TObject);

begin

  if f = 0 then

    begin

      Edit1.Text := '4';

      f := 1;

    end

  else Edit1.Text := Edit1.Text + '4';

end; 

procedure TForm1.Button5Click(Sender: TObject);

begin

  if (f = 0)

  then begin

         Edit1.Text := '5';

         f := 1;

       end

  else Edit1.Text := Edit1.Text + '5';

end; 

procedure TForm1.Button6Click(Sender: TObject);

begin

  if f = 0

  then begin

         Edit1.Text := '6';

         f := 1;

       end

  else Edit1.Text := Edit1.Text + '6';

end; 

procedure TForm1.Button7Click(Sender: TObject);

begin

  if f = 0

  then begin 

      Edit1.Text := '7';

      f := 1;

    end

  else Edit1.Text := Edit1.Text + '7';

end; 

procedure TForm1.Button8Click(Sender: TObject);

begin

  if f = 0

  then begin

         Edit1.Text := '8';

         f := 1;

       end

  else Edit1.Text := Edit1.Text + '8';

end; 

procedure TForm1.Button9Click(Sender: TObject);

begin

  if f = 0

  then begin

         Edit1.Text := '9';

         f := 1;

       end

  else Edit1.Text := Edit1.Text + '9';

end; 

procedure TForm1.Button0Click(Sender: TObject);

begin

  if f = 0

  then begin

         Edit1.Text := '0';

         f := 1;

       end

  else

      if Edit1.Text <> '0' 

        then  Edit1.Text := Edit1.Text + '0';

end; 

procedure TForm1.ButtonZClick(Sender: TObject);

begin

  if Edit1.Text = '0' then

    begin

      Edit1.Text := '0,';

      f := 1;

    end;

  if Pos(',',Edit1.Text) = 0 then

      Edit1.Text := Edit1.Text + ',';

end; 

procedure TForm1.ButtonPlusClick(Sender: TObject);

begin

  if f = 0 

    then oper := 1

  else begin

    DoOper;

    oper :=1;

    f:=0;

  end;

end; 

procedure TForm1.ButtonMinusClick(Sender: TObject);

begin

  if f = 0

    then oper := 2

  else begin

    DoOper;

    oper :=2;

    f:=0;

  end;

end; 

procedure TForm1.ButtonEnterClick(Sender: TObject);

begin

  if f = 0

    then oper := 0

  else begin

    DoOper;

    oper :=0;

    f:=0;

  end;

end; 

procedure TForm1.ButtonCClick(Sender: TObject);