Арсений Журавлев
S:18:26:10 26.10
R:18:26:10 26.10
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, unit2, unit3;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
n: integer;
a: mas;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
n := strtoint(inputbox(*Ввод количества элементов в массиве*,*Введите количество элементов в массиве: *,**));
sozd(a, n);
vyvod(a, n, listbox1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage(*Цена всех автомобилей: * + inttostr(calcCen(a, n)));
end;
procedure TForm1.Button3Click(Sender: TObject);
var b: mas;
k: integer;
begin
calcPrb(a, n, b, k);
form2.Visible := true;
vyvod(b, k, form2.listbox1);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
cenDown(a, n);
form2.Visible := true;
vyvod(a, n, form2.listbox1);
end;
end.