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

Табличное представление данных

Цель  работы: Изучить способы построения таблиц и использование их для ввода и вывода данных

Постановка  задачи: Дополнить программу из работы №9 выходными результатами в табличной форме 

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

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1;

  Col: TColor;

  int,intp,pogr,rashcet : Real;

implementation 

uses Unit2; 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject);

begin

  Col:=Form1.Color;

  if ColorDialog1.Execute()=True then

  Col:=ColorDialog1.Color;

  Form1.Color:=Col;

end; 

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;

    Button3: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Button4: TButton;

    Label8: TLabel;

    Image1: TImage;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button3Click(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/sqrt(1+3*x+2*x*x);

end; 
 

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.close;

end; 

procedure TForm2.Button2Click(Sender: TObject);

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

begin

a:=0;b:=1;

n:=40;z:=0;

h:=(b-a)/n; 
 

i:=a; 

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

 begin

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

  i:=i+h;

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

int:=z; 

rashcet:=rashcet+1;

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

end; 

procedure TForm2.Button4Click(Sender: TObject);

begin 

if rashcet>1 then begin

Application.CreateForm(TForm3,Form3);

Form3.ShowModal;

Form3.Free;

end else

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

end; 

procedure TForm2.Button3Click(Sender: TObject);

var vv,nn:real;

begin

if rashcet=1 then begin

vv:=1/sqrt(2)*ln((1.75/1.25)+(sqrt(3.0625-0.0625)/1.25));

nn:=1/sqrt(2)*ln((0.75/1.25)+(sqrt(0.5625-0.0625)/1.25));

intp:=vv-nn;

pogr:=abs(int-intp); 

rashcet:=rashcet+1;

Label2.Caption:='Погрешность рассчитана';

end else

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

end; 

end. 

unit Unit3; 

interface 

uses

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

  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart, Grids; 

type

  TForm3 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Chart1: TChart;

    Series1: TFastLineSeries;

    StringGrid1: TStringGrid;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form3: TForm3; 

implementation

uses Unit1, Unit2;

{$R *.dfm} 

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

begin

f:=1/sqrt(1+3*x+2*x*x);

end; 

procedure TForm3.Button1Click(Sender: TObject);

begin

Form3.close;

end; 

procedure TForm3.FormCreate(Sender: TObject);

var i:integer;

    clr:TColor;

    im,ib,a,b:real;

    inn:integer;

begin

Label2.Caption:=FloatToStr(int);

Label4.Caption:=FloatToStr(pogr); 

Chart1.Series[0].Clear;

a:=0;b:=1;

im:=a;

inn:=1000;

ib:=(b-a)/inn;

for i:=0 to inn-1 do

begin

  Chart1.Series[0].AddXY(im,f(im),'',clr);

  im:=im+ib;

end; 

  StringGrid1.Cells[0,0]:='Функция';

  StringGrid1.Cells[0,1]:='a=';

  StringGrid1.Cells[0,2]:='b=';

  StringGrid1.Cells[0,3]:='Интеграл равен';

  StringGrid1.Cells[0,4]:='Погрешность';

  StringGrid1.Cells[1,0]:='f(x)=1/sqrt(1+3*x+2*x*x)';

  StringGrid1.Cells[1,1]:=FloatToStr(a);

  StringGrid1.Cells[1,2]:=FloatToStr(b);

  StringGrid1.Cells[1,3]:=FloatToStr(int);

  StringGrid1.Cells[1,4]:=FloatToStr(pogr);

end; 

end.

 

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

 

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

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

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

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

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

unit Unit1; 

interface 

uses

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

  Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, ImgList, jpeg; 

type

  TForm1 = class(TForm)

    Label4: TLabel;

    Label1: TLabel;

    Label3: TLabel;

    ToolBar1: TToolBar;

    ToolButton1: TToolButton;

    ToolButton2: TToolButton;

    ToolButton3: TToolButton;

    ToolButton4: TToolButton;

    ToolButton5: TToolButton;

    RadioGroup1: TRadioGroup;

    Edit1: TEdit;

    Button1: TButton;

    ImageList1: TImageList;

    Label8: TLabel;

    Image1: TImage;

    procedure ToolButton1Click(Sender: TObject);

    procedure ToolButton3Click(Sender: TObject);

    procedure ToolButton5Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private