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

    { 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) Пример работы  программы: 

 

 

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

Простейший  текстовый редактор.

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

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

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

unit Unit1; 

interface 

uses

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

  Dialogs, StdCtrls; 

type

  TForm1 = class(TForm)

    Label4: TLabel;

    Button2: TButton;

    Button3: TButton;

    Label5: TLabel;

    Label6: TLabel;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1;

  s: integer;

  p: integer;

  fN: String[80];

implementation 

uses Unit2; 

{$R *.dfm} 

procedure TForm1.Button2Click(Sender: TObject);

begin

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, Menus, ExtCtrls; 

type

  TForm2 = class(TForm)

    Memo1: TMemo;

    OpenDialog1: TOpenDialog;

    SaveDialog1: TSaveDialog;

    Panel1: TPanel;

    Button2: TButton;

    Button3: TButton;

    Panel2: TPanel;

    Button1: TButton;

   Button4: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

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