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

Материал из Wiki Mininuniver
Версия от 11:47, 19 декабря 2011; Меринова Ольга (обсуждение | вклад) (Результаты проведённого исследования)
Перейти к навигацииПерейти к поиску

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

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

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

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

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

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

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

Как с помощью 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.

Вывод

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

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