unit Tabl;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Grids,

Buttons, StdCtrls, ExtCtrls;

Type

{ TForm1 }

TForm1 = class (TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

StringGrid1: TStringGrid;

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn3Click (Sender: TObject);

procedure BitBtn4Click (Sender: TObject);

procedure BitBtn5Click (Sender: TObject);

procedure BitBtn6Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure Label5Click (Sender: TObject);

private

{ private declarations }

public

{ public declarations }

procedure Kalkyljator; // обьявление поцедуры калькулятор

end;

var Form1: TForm1;

i,j,k: integer;

a: array [1.5] of real;

x,y: integer;

implementation

uses Graph;

{ TForm1 }

procedure TForm1. Kalkyljator;

var // Переменные

Vznos: real; // Взнос

Stavka: real; // Ставка

Komissionnie: real; // Комиссионные

Symma: real; // Сумма выдачи

begin

if (Edit2. Text='') or (StrToFloat (Edit2. Text) <=0) then

ShowMessage ('Данные введены не верно, Сумма для расчёта должна быть больше 0! ')

else

begin

with Form1 do

for j: =1 to 5 do // Расчёт данных

if StrToFloat (StringGrid1. Cells [1,j]) <>0 then

begin

Vznos: =StrToFloat (Edit2. Text);

Stavka: =StrToFloat (StringGrid1. Cells [3,j]);

Komissionnie: =Vznos*Stavka/100;

Symma: = (Vznos-Komissionnie) /StrToFloat (StringGrid1. Cells [1,j]);

StringGrid1. Cells [2,j]: =FloatToStrF (Vznos,ffFixed,12,2); // Вывод взноса в столбец

StringGrid1. Cells [4,j]: =FloatToStrF (Komissionnie,ffFixed,12,2); // Вывод комиссионных в столбец

StringGrid1. Cells [5,j]: =FloatToStrF (Symma,ffFixed,12,2); // Вывод суммы выдачи в столбец

end;

end;

end;

procedure TForm1. BitBtn2Click (Sender: TObject);

begin

close

end;

procedure TForm1. BitBtn3Click (Sender: TObject);

var

min: real; // номер минимального элемента массива

i: byte;

begin

for i: =1 to 5 do

a [i]: =StrToFloat (StringGrid1. Cells [3, i]);

min: =a [1];

for i: =1 to 5 do // поиск минимального элемента

if a [i] <min then

min: =a [i];

Label5. Caption: ='Наименьшая процентная ставка: '+ FloatToStr (min);

end;

procedure TForm1. BitBtn4Click (Sender: TObject);

var

d,v: byte;

m: byte;

i: byte;

buf: array [0.5] of string;

begin

Kalkyljator;

for v: =1 to StringGrid1. RowCount-1 do

begin

m: =v;

for

i: =v to StringGrid1. RowCount-1 do

if StrToFloat (StringGrid1. Cells [5, i]) <StrToFloat (StringGrid1. Cells [5,m]) then m: =i;

if v<>m then

begin

for d: =0 to 5 do

begin

buf [d]: =StringGrid1. Cells [d,v];

StringGrid1. Cells [d,v]: =StringGrid1. Cells [d,m];

StringGrid1. Cells [d,m]: =buf [d];

end;

end;

end;

end;

procedure TForm1. BitBtn1Click (Sender: TObject); // Очистить

begin

Edit1. Text: =''; // Редактирование компонента

Edit2. Text: ='';

Edit3. Text: ='';

for j: =1 to 5 do

StringGrid1. Cells [2,j]: =''; // Редактирование столбца

for j: =1 to 5 do

StringGrid1. Cells [4,j]: =''; // Редактирования столбца комиссионных

for j: =1 to 5 do

StringGrid1. Cells [5,j]: =''; // Редактирования столбца суммы выдачи

end;

procedure TForm1. BitBtn5Click (Sender: TObject); // Поиск

var

i: byte;

obr: real; // Образец для поиска заданного курса рубля

found: boolean; // совпадние образца с эллементом

begin

for i: =1 to 5 do

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

obr: =StrToFloat (Edit3. Text);

found: =false;

i: =1;

repeat

if a [i] =obr then found: =True

else i: =i+1;

until (i>5) or (found=True);

if found=True then ShowMessage ('Совпадение с элементом под номером'+inttostr (i) +#13+'поиск успешен')

else ShowMessage ('Совпадений с элементом нет');

end;

procedure TForm1. BitBtn6Click (Sender: TObject);

begin

Form2. Show;

end;

procedure TForm1. Button1Click (Sender: TObject);

begin

StringGrid1. Cells [StringGrid1. Col,StringGrid1. Row]: =Form1. Edit1. Text; // Перенос данных в таблицу

end;

procedure TForm1. Button2Click (Sender: TObject); // Вызов процедуры калькулятор

begin

Kalkyljator;

end;

procedure TForm1. Button3Click (Sender: TObject);

begin

if StringGrid1. RowCount>6 then

StringGrid1. RowCount: =StringGrid1. RowCount-1; // уменьшение числа строк на единицу.

end;

procedure TForm1. Button4Click (Sender: TObject);

begin

if StringGrid1. ColCount>6 then StringGrid1. ColCount: =StringGrid1. ColCount-1; // уменьшение числа столбцов на единицу

end;

procedure TForm1. Button5Click (Sender: TObject);

begin

StringGrid1. ColCount: =StringGrid1. ColCount+1; // увеличение числа столбцов на единицу

end;

procedure TForm1. Button6Click (Sender: TObject);

begin

StringGrid1. RowCount: =StringGrid1. RowCount+1; // увеличение числа строк на единицу.

end;

procedure TForm1. FormCreate (Sender: TObject);

begin

Edit1. Clear; // Очистка компонентов

Edit2. Clear;

Edit3. Clear;

end;

procedure TForm1. Label5Click (Sender: TObject);

begin

end;

initialization

{$I tabl. lrs}

end.

Результат работы программы

Рис.3. Интерфейс табличного представления данных

Модуль Graphic