Контрольная работа по "Программирование"
Контрольная работа, 20 Декабря 2010, автор: пользователь скрыл имя
Краткое описание
Простейшая программа в среде Delphi.
Цель работы: Научиться конструировать главную форму программы простейшими стандартными компонентами.
Постановка задачи:
1.Создать главную форму и присвоить ей имя, соответствующее лабораторной работе.
2.Сконструировать простейший калькулятор.
3.Написать обработчики, реализующие основные арифметические действия калькулятора.
4.Изучить структуру Unit главной формы.
Файлы: 1 файл
Записка.doc
— 640.50 Кб (Скачать)Министерство образования Республики Беларусь
Белорусский национальный технический университет
Международный
институт дистанционного образования
Контрольная
по дисциплине
Программирование
Вариант-11
Выполнил студент
1-го курса группы А6
г. Гродно Дзержинского 135 кв.26
Зачетная книжка №417426
Специальность 53.01.02.
Информационные системы и
технологии
Проверил:
ГРОДНО 2007
Лабораторная работа №1
Простейшая программа в среде Delphi.
Цель работы: Научиться конструировать главную форму программы простейшими стандартными компонентами.
Постановка задачи:
- Создать главную форму и присвоить ей имя, соответствующее лабораторной работе.
- Сконструировать простейший калькулятор.
- Написать обработчики, реализующие основные арифметические действия калькулятора.
- Изучить структуру 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(
begin
if f = 0
then oper := 2
else begin
DoOper;
oper :=2;
f:=0;
end;
end;
procedure TForm1.ButtonEnterClick(
begin
if f = 0
then oper := 0
else begin
DoOper;
oper :=0;
f:=0;
end;
end;
procedure TForm1.ButtonCClick(Sender: TObject);