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

==Авторы и участники проекта==
[[Участник:Морозова Елена|Морозова Елена]]

[[Участник:Меринова Ольга|Меринова Ольга]]

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

==Тема исследования группы==
Решение математических задач

== Проблемный вопрос (вопрос для исследования)==
Как с помощью Delphi решить математическую задачу с помощью векторов?


==Цели исследования==
#Проанализировать 
#Решить
#Составить программу

==Результаты проведённого исследования==
[[Изображение: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.

==Вывод==

==Полезные ресурсы==

== Другие документы ==


[[Категория:Проекты]]