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

Материал из НГПУ им. К.Минина
Перейти к: навигация, поиск
(→‎Результаты проведённого исследования)
(→‎Результаты проведённого исследования)
Строка 19: Строка 19:
  
 
==Результаты проведённого исследования==
 
==Результаты проведённого исследования==
−
Нами была придумана задача
+
[Изображение: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
 
var
Строка 27: Строка 48:
  
 
{$R *.dfm}
 
{$R *.dfm}
−
var a:array[1..1000]of real;
+
var a: array[1..100] of integer;
−
I,N,P,amin:integer;
+
min,max,n: integer;
 +
i,p: integer;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
 
procedure TForm1.BitBtn1Click(Sender: TObject);
 
begin
 
begin
−
n:=stroint(Edit1.Text);
+
n:= strtoint(Edit1.text);
 
randomize;
 
randomize;
−
For I:= 1 to n do
+
for i:= 1 to n do
 
begin
 
begin
−
A[I]:=random(250)-100;
+
a[i]:= random(107)+470;
−
StringGrid1.cells[i-1,0]:=floattostr(a[i]);
+
stringgrid1.cells[i-1,0]:=inttostr(a[i]);
 +
 
 
end;
 
end;
−
S:=0;
+
min:=a[1];
−
P:=0;
+
max:=a[1];
−
amin:=a[1];
+
p:=0;
−
For I:=1 to n do
+
for i:= 1 to n do
 
begin
 
begin
 
if a[i]<0 then
 
if a[i]<0 then
−
S:=S+a[i]
+
begin
−
if a[i]<min then
+
−
min=a[i];
+
−
end;
+
−
label1.caption:='min'+floattostr(amin)+ #13+floattostr(s)+''
+
  
 +
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;
  

Версия 12:13, 19 декабря 2011

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

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

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

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

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

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

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

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

Вывод

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

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

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