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

Материал из Wiki Mininuniver
Перейти к навигацииПерейти к поиску
(→‎Результаты проведённого исследования)
Строка 19: Строка 19:
  
 
==Результаты проведённого исследования==
 
==Результаты проведённого исследования==
 +
 +
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.
  
 
==Вывод==
 
==Вывод==

Версия 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.

Вывод

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

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

Источник — https://wiki.mininuniver.ru/index.php?title=Результат_исследования_студентов_в_проекте_Векторы_в_Delphi&oldid=37565