Результат исследования студентов в проекте Векторы в Delphi: различия между версиями
(→Результаты проведённого исследования) |
(→Результаты проведённого исследования) |
||
| (не показана 21 промежуточная версия 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 | var | ||
| Строка 26: | Строка 49: | ||
{$R *.dfm} | {$R *.dfm} | ||
| − | + | var a: array[1..100] of integer; | |
| − | + | min,max,n: integer; | |
| + | i,p: integer; | ||
procedure TForm1.BitBtn1Click(Sender: TObject); | procedure TForm1.BitBtn1Click(Sender: TObject); | ||
begin | begin | ||
| − | n:= | + | n:= strtoint(Edit1.text); |
randomize; | randomize; | ||
| − | + | for i:= 1 to n do | |
begin | begin | ||
| − | + | a[i]:= random(107)+470; | |
| − | + | stringgrid1.cells[i-1,0]:=inttostr(a[i]); | |
| + | |||
end; | end; | ||
| − | + | min:=a[1]; | |
| − | + | max:=a[1]; | |
| − | + | p:=0; | |
| − | + | for i:= 1 to n do | |
begin | begin | ||
if a[i]<0 then | if a[i]<0 then | ||
| − | + | begin | |
| − | if a[i] | + | |
| − | + | 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; | end; | ||
| − | |||
| − | |||
| + | label1.Caption:='мин.убытки='+inttostr(min)+#13+'макс.прибыль='+inttostr(max)+'год макс.прибыли='+#13+inttostr(p); | ||
end; | end; | ||
end. | end. | ||
| − | |||
| − | == | + | [[Изображение:111111111111.JPG]] |
| + | |||
| + | ==Вывод== | ||
| + | Используя полученные нами данные, можно сделать вывод, что с помощью Векторов в Delphi можно с легкостью решить различные задачи,будь то экономические ,экологические,математические задачи | ||
| + | |||
| + | |||
| − | |||
[[Категория:Проекты]] | [[Категория:Проекты]] | ||
Текущая версия на 09:50, 23 апреля 2013
Содержание
Авторы и участники проекта
и участники группы экономистов
Тема исследования группы
Решение экономических задач
Проблемный вопрос (вопрос для исследования)
Как с помощью Delphi решить экономическую задачу с помощью векторов?
Цели исследования
- Подобрать примеры экономических задач, которые можно решить с помощью векторов
- Составить программу для решения одной из задач
- Выполнить отладку,проанализировать результаты
Результаты проведённого исследования
Нами была подобрана таблица примеров,которые можно решить с помощью векторов
Нами была рассмотренна экономическая задача на поиск минимальных и максимальных убытков. 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.
Вывод
Используя полученные нами данные, можно сделать вывод, что с помощью Векторов в Delphi можно с легкостью решить различные задачи,будь то экономические ,экологические,математические задачи
