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

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

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

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

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

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

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

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

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

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

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

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

var

 Form1: TForm1;

implementation

{$R *.dfm}

var a:array[1..1000]of real;
I,N,P,amin:integer;

procedure TForm1.BitBtn1Click(Sender: TObject); begin n:=stroint(Edit1.Text); randomize; For I:= 1 to n do begin A[I]:=random(250)-100; StringGrid1.cells[i-1,0]:=floattostr(a[i]); end; S:=0; P:=0; amin:=a[1]; For I:=1 to n do begin if a[i]<0 then S:=S+a[i] if a[i]<min then min=a[i]; end; label1.caption:='min'+floattostr(amin)+ #13+floattostr(s)+

end;

end.