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

ify">procedure TForm1.ScrollBar2Change(Sender: TObject);

begin

  Panel5.Color:=rgb(0,ScrollBar2.Position,0);

  Panel1.Color:=rgb(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position);

  Label5.Caption:=inttostr(ScrollBar2.Position);

end; 

procedure TForm1.ScrollBar3Change(Sender: TObject);

begin

  Panel6.Color:=rgb(0,0,ScrollBar3.Position);

  Panel1.Color:=rgb(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position);

  Label6.Caption:=inttostr(ScrollBar3.Position);

end; 

end. 

 

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

 

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

Управление  программой с помощью  меню

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

Постановка  задачи: Разработать программу вычисления определенного интеграла методом Симпсона под управлением команд, расположенных в главном меню.

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

unit Unit1; 

interface 

uses

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

  Dialogs, Menus, StdCtrls, jpeg, ExtCtrls; 

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    Label5: TLabel;

    N2: TMenuItem;

    Label12: TLabel;

    Label1: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label2: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    N3: TMenuItem;

    procedure N2Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1; 

implementation 

{$R *.dfm} 

function f(x:real):real; {интегрируемая функция}

begin

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

end; 
 
 

procedure TForm1.N2Click(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;       {x = X1}

while x < (b - dx) do begin   {x < Xn}

y1 := y1 + f(x);

x := x + 2*dx;             {x = X1, X3, X5 ... Xn-1}

end; 

y2 := 0; x := a + 2*dx;     {x = X2}

while x < (b - 2*dx) do begin {x < Xn-1}

y2 := y2 + f(x);

x := x + 2*dx;             {x = X2, X4, X6 ... Xn-2}

end; 

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

Label12.Caption:=FloatToStr(y); 

end; 

procedure TForm1.N3Click(Sender: TObject);

begin

Close;

end; 

end. 

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

 

 

 

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

Элементы PopupMenu, ListBox, ComboBox.

Цель  работы: Изучить основные свойства и методы компонентов классов TPopupMenu, TListBox, TComboBox.

Постановка  задачи: Разработать программу вычисления определенных интегралов, подынтегральные функции которых выбираются из списка. В программе предусмотреть изменение свойств компонентов по правой кнопке. При нажатии правой кнопки предусмотреть возможность открытия ComboBox, из списка которого выбирать название выходной формы. 

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

unit Unit1; 

interface 

uses

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

  Dialogs, StdCtrls, ExtCtrls, jpeg, Menus; 

type

  TForm1 = class(TForm)

    Label4: TLabel;

    PopupMenu1: TPopupMenu;

    N2: TMenuItem;

    N3: TMenuItem;

    N1: TMenuItem;

    ColorDialog1: TColorDialog;

    Label1: TLabel;

    Label3: TLabel;

    ComboBox1: TComboBox;

    Button1: TButton;

    Label5: TLabel;

    Label2: TLabel;

    procedure ComboBox1Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1;

  Col: TColor;

  h,i,z,a,b:real;  {описание переменных}

implementation 

{$R *.dfm} 

function f(x:real):real; {интегрируемая функция}

begin

If Form1.ComboBox1.Text='f(x)=sin(x)' Then f:=sin(x);

If Form1.ComboBox1.Text='f(x)=cos(x)' Then f:=cos(x);

If Form1.ComboBox1.Text='f(x)=ln(x)' Then f:=ln(x);

end; 

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

Label5.Caption:='';

end; 

procedure TForm1.Button1Click(Sender: TObject);

begin

h:=(b-a)/80;  {начальные значения переменных}

z:=0;

i:=a; 

while (i<=b) do   {цикл расчета по формуле трапеций}

begin

  z:=z+h*(f(i)+f(i+h))/2;

  i:=i+h;

end;  {конец цикла} 

Label5.Caption:=FloatToStr(z);

end; 

procedure TForm1.FormCreate(Sender: TObject);

begin

a:=1;b:=2;z:=0;

end; 

procedure TForm1.N3Click(Sender: TObject);

begin

if Form1.ComboBox1.Font.Style=[] then

Form1.ComboBox1.Font.Style:=[fsBold] else

Form1.ComboBox1.Font.Style:=[];

end; 

procedure TForm1.N2Click(Sender: TObject);

begin

  Col:=Form1.Color;

  if ColorDialog1.Execute()=True then

  Col:=ColorDialog1.Color;

  Form1.ComboBox1.Font.Color:=Col;

end; 

procedure TForm1.N1Click(Sender: TObject);

begin

  Col:=Form1.Color;

  if ColorDialog1.Execute()=True then

  Col:=ColorDialog1.Color;

  Form1.ComboBox1.Color:=Col;

end;

end.

. 

 

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

 
 

 

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

Графические компоненты

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

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

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

На 2-й  форме с помощью кнопочного меню рисовать различные графические  фигуры посредством компоненты класса TShape.

На 3-й  форме реализовать рисование  простейшими примитивами, типа линия, прямоугольник, эллипс и т.д.

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

unit graf; 

interface 

uses

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

  Dialogs, StdCtrls, Menus; 

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N11: TMenuItem;

    N21: TMenuItem;

    N41: TMenuItem;

    procedure N41Click(Sender: TObject);

    procedure N21Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1; 

implementation

uses unit1,unit3;

{$R *.dfm} 

procedure TForm1.N41Click(Sender: TObject);

begin

close;

end; 

procedure TForm1.N21Click(Sender: TObject);

begin

Application.CreateForm(TForm3,Form3);

Form3.ShowModal;

Form3.Free;

end; 

procedure TForm1.N11Click(Sender: TObject);

begin

Application.CreateForm(TRed,Red);

Red.ShowModal;