Результат исследования студентов в проекте Векторы в Delphi: различия между версиями
(→Авторы и участники проекта) |
(→Результаты проведённого исследования) |
||
| (не показано 9 промежуточных версий этого же участника) | |||
| Строка 12: | Строка 12: | ||
==Цели исследования== | ==Цели исследования== | ||
| − | # | + | #Подобрать примеры экономических задач, которые можно решить с помощью векторов |
| − | # | + | #Составить программу для решения одной из задач |
| − | # | + | #Выполнить отладку,проанализировать результаты |
==Результаты проведённого исследования== | ==Результаты проведённого исследования== | ||
| + | Нами была подобрана [https://docs.google.com/spreadsheet/ccc?key=0Au9752kGk1VedG03dFE2cGlNUWxWcU9UR01hYWdKZ0E#gid=0 таблица примеров],которые можно решить с помощью векторов | ||
| + | [[Изображение:Таблица результатов12.jpg]] | ||
| − | + | Нами была рассмотренна экономическая задача на поиск минимальных и максимальных убытков. | |
| − | |||
unit Unit1; | unit Unit1; | ||
| Строка 91: | Строка 92: | ||
==Вывод== | ==Вывод== | ||
| − | Используя полученные нами данные, можно сделать вывод, что с помощью | + | Используя полученные нами данные, можно сделать вывод, что с помощью Векторов в 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 можно с легкостью решить различные задачи,будь то экономические ,экологические,математические задачи
