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

Материал из Wiki Mininuniver
Перейти к навигацииПерейти к поиску
(→‎Результаты проведённого исследования)
 
(не показаны 22 промежуточные версии 2 участников)
Строка 1: Строка 1:
 
==Авторы и участники проекта==
 
==Авторы и участники проекта==
−
[[Участник:Морозова Елена|Морозова Елена]]
 
−
 
 
[[Участник:Меринова Ольга|Меринова Ольга]]
 
[[Участник:Меринова Ольга|Меринова Ольга]]
  
−
и участники группы математиков
+
и участники группы экономистов
  
 
==Тема исследования группы==
 
==Тема исследования группы==
−
Решение математических задач
+
Решение экономических задач
  
 
== Проблемный вопрос (вопрос для исследования)==
 
== Проблемный вопрос (вопрос для исследования)==
−
Как с помощью Delphi решить математическую задачу с помощью векторов?
+
Как с помощью Delphi решить экономическую задачу с помощью векторов?
  
  
 
==Цели исследования==
 
==Цели исследования==
−
#Проанализировать
+
#Подобрать примеры экономических задач, которые можно решить с помощью векторов
−
#Решить
+
#Составить программу для решения одной из задач
−
#Составить программу
+
#Выполнить отладку,проанализировать результаты
  
 
==Результаты проведённого исследования==
 
==Результаты проведённого исследования==
 +
Нами была подобрана [https://docs.google.com/spreadsheet/ccc?key=0Au9752kGk1VedG03dFE2cGlNUWxWcU9UR01hYWdKZ0E#gid=0 таблица примеров],которые можно решить с помощью векторов
 +
 +
[[Изображение:Таблица результатов12.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.
 +
 +
 +
[[Изображение:111111111111.JPG]]
 +
 +
==Вывод==
 +
Используя полученные нами данные, можно сделать вывод, что с помощью Векторов в Delphi можно с легкостью решить различные задачи,будь то экономические ,экологические,математические задачи
  
−
==Вывод==
 
  
−
==Полезные ресурсы==
 
  
−
== Другие документы ==
 
  
  
 
[[Категория:Проекты]]
 
[[Категория:Проекты]]

Текущая версия на 09:50, 23 апреля 2013

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

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

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

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

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

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

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


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

  1. Подобрать примеры экономических задач, которые можно решить с помощью векторов
  2. Составить программу для решения одной из задач
  3. Выполнить отладку,проанализировать результаты

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

Нами была подобрана таблица примеров,которые можно решить с помощью векторов

Таблица результатов12.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.


111111111111.JPG

Вывод

Используя полученные нами данные, можно сделать вывод, что с помощью Векторов в Delphi можно с легкостью решить различные задачи,будь то экономические ,экологические,математические задачи

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