Результат исследования студентов в проекте Векторы в Delphi

Авторы и участники проекта

Морозова Елена

Меринова Ольга

и участники группы математиков

Тема исследования группы

Решение математических задач

Проблемный вопрос (вопрос для исследования)

Как с помощью Delphi решить математическую задачу с помощью векторов?

Цели исследования

1. Проанализировать
2. Решить
3. Составить программу

Результаты проведённого исследования

[Изображение:111111111111.JPG] нами была придумана экономическая задача на поиск минимальных и максимальных убытков. unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, Grids;

type

 TForm1 = class(TForm)
   Label1: TLabel;
   Edit1: TEdit;
   StringGrid1: TStringGrid;
   BitBtn1: TBitBtn;
   procedure BitBtn1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var

 Form1: TForm1;

implementation

{$R *.dfm} var a: array[1..100] of integer; min,max,n: integer; i,p: integer; procedure TForm1.BitBtn1Click(Sender: TObject); begin n:= strtoint(Edit1.text); randomize; for i:= 1 to n do begin a[i]:= random(107)+470; stringgrid1.cells[i-1,0]:=inttostr(a[i]);

end; min:=a[1]; max:=a[1]; p:=0; for i:= 1 to n do begin if a[i]<0 then

begin

if a[i]<min then min:=a[i] end

else

begin

if a[i]>max then begin max:= a[i]; p:=i; end; end; end;

label1.Caption:='мин.убытки='+inttostr(min)+#13+'макс.прибыль='+inttostr(max)+'год макс.прибыли='+#13+inttostr(p); end;

end.