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

Материал из НГПУ им. К.Минина
Перейти к: навигация, поиск
(Результаты проведённого исследования)
(Результаты проведённого исследования)
Строка 17: Строка 17:
  
 
==Результаты проведённого исследования==
 
==Результаты проведённого исследования==
 
+
Нами была придумана таблица примеров,которые можно решить с помощью векторов
 
[https://docs.google.com/spreadsheet/ccc?key=0Au9752kGk1VedG03dFE2cGlNUWxWcU9UR01hYWdKZ0E#gid=0 таблица примеров]
 
[https://docs.google.com/spreadsheet/ccc?key=0Au9752kGk1VedG03dFE2cGlNUWxWcU9UR01hYWdKZ0E#gid=0 таблица примеров]
 
[[Изображение:Таблица результатов12.jpg]]
 
[[Изображение:Таблица результатов12.jpg]]

Версия 10:37, 12 апреля 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 можно с легкостью решить различные задачи,будь то экономические ,экологические,математические задачи