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

begin

  Edit1.Text := '0';

  accum := 0;

  oper := 0;

  f := 0;

end; 

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

begin

  Key := Chr(0);

end; 

procedure TForm1.ButtonDelClick(Sender: TObject);

begin

  if f = 0 

    then oper := 3

  else begin

    DoOper;

    oper :=3;

    f:=0;

  end;

end; 

procedure TForm1.ButtonUmnClick(Sender: TObject);

begin

  if f = 0 

    then oper := 4

  else begin

    DoOper;

    oper :=4;

    f:=0;    

  end;

end; 

procedure TForm1.N2Click(Sender: TObject);

begin

Application.MessageBox('Выполнил  Денис Лысов', 'Внимание!!!',0);

end; 

procedure TForm1.N3Click(Sender: TObject);

begin

close;

end; 

end.

 

2) Пример работы  программы: 

 

 

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

Нахождение  значения определенного  интеграла методом  Симпсона.

Цель  работы: Изучить обработчик создания формы.

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

  1.Создать  главную форму и присвоить  ей имя, соответствующее лабораторной  работе.

  2.Поместить  компоненту Label, в поле которой  вывести значение решаемой задачи.

  3.Написать  обработчик создания формы, в котором запрограммировать нахождение значения определенного интеграла методом левых прямоугольников.

  4.Изучить  структуру Unit главной формы.

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

unit Unit1; 

interface 

uses

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

  Dialogs, StdCtrls; 

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Button2: TButton;

    Button3: TButton;

    Label5: TLabel;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1;

  Col: TColor;

  int,intp,pogr,rashcet : Real;

implementation 

uses Unit2; 

{$R *.dfm} 

procedure TForm1.Button2Click(Sender: TObject);

begin

int:=0;

pogr:=0;

rashcet:=0;

Application.CreateForm(TForm2,Form2);

Form2.ShowModal;

Form2.Free;

end; 

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end; 

end. 
 

unit Unit2; 

interface 

uses

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

  Dialogs, StdCtrls, jpeg, ExtCtrls; 

type

  TForm2 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Label1: TLabel;

    Button4: TButton;

    Label2: TLabel;

    Label3: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form2: TForm2; 

implementation 

uses Unit1, Unit3; 

{$R *.dfm} 

function f(x:real):real;

begin

f:=(1/x)*sin(1/x);

end; 
 

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.close;

end; 

procedure TForm2.Button2Click(Sender: TObject);

var a,b,dx,x,y,y1,y2: real;

n: integer;

begin

a:=1;b:=5;

n:=80;y:=0;

dx:=(b-a)/n; 
 

y1 := 0; x := a + dx;

while x < (b - dx) do begin

y1 := y1 + f(x);

x := x + 2*dx;

end; 

y2 := 0; x := a + 2*dx;

while x < (b - 2*dx) do begin

y2 := y2 + f(x);

x := x + 2*dx;          

end; 

y:=((b-a)/(3*n)) * (f(a)+f(b) + 4*y1 + 2*y2); 

int:=y;

rashcet:=rashcet+1;

Label1.Caption:='Ответ на 3 форме';

end; 

procedure TForm2.Button4Click(Sender: TObject);

begin 

if rashcet>0 then begin

Application.CreateForm(TForm3,Form3);

Form3.ShowModal;

Form3.Free;

end else

Application.MessageBox('Ошибка! Интегралл не рассчитан.', 'Внимание!!!',0); 

end; 

end. 
 

unit Unit3; 

interface 

uses

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

  Dialogs, StdCtrls; 

type

  TForm3 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form3: TForm3; 

implementation

uses Unit1, Unit2;

{$R *.dfm} 

procedure TForm3.Button1Click(Sender: TObject);

begin

Form3.close;

end; 

procedure TForm3.FormCreate(Sender: TObject);

begin

Label2.Caption:=FloatToStr(int);

end; 

end. 
 
 

2) Пример работы  программы: 

 

 

 

 

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

Создание  нескольких форм и  средства управления ими.

Цель  работы: Изучить основные свойства и методы, связанные с созданием и активизацией форм

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

1. Создать главную форму, содержащую название работы, фамилии исполнителей, кнопку изменения цвета формы и кнопку вызова другой формы.
2. Создать вторую форму, предназначенную для задания основных параметров, необходимых для вычисления определенного интеграла методом трапеций:

 
 

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

3. Каждая  из форм должна содержать кнопку, по которой можно вернуться  на шаг назад, т.е. на предыдущую  форму.

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

unit Unit1; 

interface 

uses

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

  Dialogs, StdCtrls, Menus; 

type

  TForm1 = class(TForm)

    Label4: TLabel;

    Button1: TButton;

    ColorDialog1: TColorDialog;

    Button2: TButton;

    Button3: TButton;

    PopupMenu1: TPopupMenu;

    gfjfjggf1: TMenuItem;

    gfhf1: TMenuItem;

    fghgfhf1: TMenuItem;

    fghgfh1: TMenuItem;

    Label1: TLabel;

    Label3: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private