Автор: Пользователь скрыл имя, 15 Января 2013 в 22:15, курсовая работа
Моделирование в широком смысле является основным методом исследований во всех областях знаний и научно обоснованным методом оценок характеристик сложных систем, используемым для принятия решений в различных сферах инженерной деятельности. Существующие и проектируемые системы можно эффективно исследовать с помощью математических моделей (аналитических и имитационных), реализуемых на современных ЭВМ, которые в этом случае выступают в качестве инструмента экспериментатора с моделью системы.
RBC2_uses:=False;
inc(reserve);
end;
end;
end;
end
else
begin
inc(LostTransacts);
end;
except end;
Synchronize(UpdateLabels);
Terminate;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
transacts:=0;
VolumeA:=0;
VolumeB:=0;
LostTransacts:=0;
reserve:=0;
through_AB1_AB2:=0;
AB1_uses:=False;
AB2_uses:=False;
BC1_uses:=False;
BC2_uses:=False;
RBC1_uses:=False;
RBC2_uses:=False;
exit:=False;
Gauge1.MaxValue:=SpinEdit3.
Gauge2.MaxValue:=SpinEdit13.
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
transacts:=0;
VolumeA:=0;
VolumeB:=0;
LostTransacts:=0;
reserve:=0;
through_AB1_AB2:=0;
AB1_uses:=False;
AB2_uses:=False;
BC1_uses:=False;
BC2_uses:=False;
RBC1_uses:=False;
RBC2_uses:=False;
while (transacts < 500) and (exit=False) do
begin
inc(transacts);
Sleep(PlusMinus(StrToInt(
co:=MyThread.Create(False);
co.Priority:=tpLower;
Application.ProcessMessages;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
exit:=True;
Application.Terminate;
end;
end.