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

Stg.Cells[1,i+1] := FloatToStr(_A + tmp);

Stg.Cells[2,i+1] := FloatToStr(h*Func.Func(_A + tmp));

end;

Func._Release;

end;

// Загрузка данных из файла

procedure TIntegral.LoadFromFile(fName: string);

var

f: file of real;

fa, fb, fn: real;

res: boolean;

begin

{$I-}

{Открываем файл}

AssignFile(f, fName);

Reset(f);

{Читаем данные из фа

йла}

Read(f, fa);

Read(f, fb);

Read(f, fn);

{Закрываем файл}

CloseFile(f);

{$I+}

{Проверяем на ошибку}

res := (IOResult = 0) and (fName <> '');

if (res = false) then

ShowMessage('Неправильное чтение из файла')

else begin {Записываем данные в класс}

_A := fa;

_B := fb;

_N := Round(fn);

end;

end;

// Сохранение данных в файл

procedure TIntegral.SaveToFile(fName: string);

var

f: file of real;

fn: real;

res: boolean;

begin

{$I-}

{Открываем файл или создаем}

AssignFile(f, fName);

Rewrite(f);

{$I+}

{Проверяем на ошибку}

res := (IOResult = 0) and (fName <> '');

if (res = false) then

ShowMessage('Неправильное чтение')

else begin {Записываем данные в файл}

{Пишем данные в файл}

Write(f, _A);

Write(f, _B);

fn := _N;

Write(f, fn);

end;

{Закрываем файл}

CloseFile(f);

end;

// Описание методов записи для property-значений

procedure TIntegral.SetA(const Value: real);

begin

_A := Value;

end;

procedure TIntegral.SetB(const Value: real);

begin

_B := Value;

end;

procedure TIntegral.SetN(const Value: integer);

begin

_N := Value;

end;

end.

unit uAbout;

interface

uses

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

Dialogs, StdCtrls;

type

TfrmAbout = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmAbout: TfrmAbout;

implementation

{$R *.dfm}

procedure TfrmAbout.Button1Click(Sender: TObject);

begin

Close;

end;

end.

 Скачать реферат