51064

Дії та їх опрацювання

Лабораторная работа

Информатика, кибернетика и программирование

Дії та їх опрацювання. Мета: Створити стратегічну гру Біржа цінних паперівяка моделює операцію інвестування щорічного капіталув акції трьох різних підприємств...

Украинкский

2014-02-10

26.17 KB

0 чел.

Розробив

Олійник Д.А.

22.03.13

ДРПК.020180.015

Аркуш

Перевірив

Рудакова

1

Змін

Арк.

№ Докум

Підпис

Дата

Практична робота №4

Тема: дії та їх опрацювання..

Мета: Створити стратегічну гру «Біржа цінних паперів»,яка моделює операцію інвестування щорічного капіталув акції трьох різних підприємств

Хід роботи

unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, Grids, Buttons;

type

 TForm1 = class(TForm)

   SpeedButton1: TSpeedButton;

   SpeedButton2: TSpeedButton;

   BitBtn1: TBitBtn;

   StringGrid1: TStringGrid;

   StringGrid2: TStringGrid;

   StringGrid3: TStringGrid;

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   Label5: TLabel;

   Label6: TLabel;

   Label7: TLabel;

   Label8: TLabel;

   Label9: TLabel;

   Label10: TLabel;

   Label11: TLabel;

   procedure SpeedButton1Click(Sender: TObject);

   procedure SpeedButton2Click(Sender: TObject);

   procedure Refresh;

   procedure FormCreate(Sender: TObject);

   procedure StringGrid2SetEditText(Sender: TObject; ACol, ARow: Integer;

     const Value: String);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

Розробив

Олійник Д.А.

22.03.13

ДРПК.020180.015

Аркуш

Перевірив

Рудакова

2

Змін

Арк.

№ Докум

Підпис

Дата

const

N=5;

P: array [0..N-1,1..3,1..3] of integer=

(((40,-40,30),(-20,10,10),(-10,40,-30)),   {r=(0-1)}

((50,-70,40),(-30,70,-30),(-50,20,30)),   {r=(1-2)}

((30,-70,70),(-30,70,-30),(20,10,-50)),   {r=(2-3)}

((-50,-30,70),(50,-50,70),(30,50,-70)),   {r=(3-4)}

((30,-70,70),(-30,70,-30),(40,0,-50)));   {r=(4-5)}

Prob:array[0..N-1,1..3] of integer=

((22,41,37),(27,34,39),(47,33,20),(10,53,37),(41,34,25));

var

capital,year,profit,r :integer;

money                 :array[0..2]of integer;

implementation

var i,j:integer;

     s:string;

begin

Str(capital,s);Form1.Label6.Caption:=s+'доларів';

Str(year,s);Form1.Label5.Caption:=s+'рік';

Str(profit,s);Form1.Label7.Caption:=s+'доларів';

Form1.Label8.Caption:='Введіть суму';

Form1.SpeedButton2.Enabled:=False;

Form1.SpeedButton1.Enabled:=False;

randomize;

r:=random(N);

for i:=1 to 3 do

for j:=1  to 3 do

begin

Str(P[r,j,i],s);Form1.StringGrid1.Cells[i,j]:=s+'центів';

end;

for i:=1 to 3 do

begin

Str(prob[r,i],s); Form1.StringGrid3.Cells[i,0]:=s+'%';

Form1.StringGrid2.Cells[0,i]:='';

end;

{$R *.dfm}

procedure     TForm1.SpeedButton2.Click (Sender: TObject);

varfirst,second,varant,i,code:integer;

s:integer;

begin

randomize;

variant:=random(100);

first:=Prob[r,1];

second:=first+Prob[r,2];

profit:=0;

for i:=0 to2do val(StringGrid2.Cells[0,i+1],money[i],code);

ifvariant<first then

Розробив

Олійник Д.А.

22.03.13

ДРПК.020180.015

Аркуш

Перевірив

Рудакова

3

Змін

Арк.

№ Докум

Підпис

Дата

begin

for i:=0 to 2 do

profit:=profit+money[i]*P[r,i+1,1];

Label9.Visible:=True;

Label8.Caption:='Зросло євро';

end;

if(variant>=first)and(vriant<second) then

begin

for i:=0 to 2 do

profit:=profit+money[i]*P[r,i+1,3];

Label11.Visible:=True;

Label8.Caption:='Зріс долар';

end;

profit:=round(profit/100);

Str(profit,s); Label7.Caption:=s+'доларів';

Label7.Visible:=True;

Label8.Visible:=True;

SpeedButton1.Enabled:=False;

SpedButton2.Enabled:=True;

procedure TForm1.FormCreate(Sender: TObject);

begin

capital:=1000;

year:=2000;

profit:=0;

Refresh;

StringGrid1.Cells[1,0]:='Зросте євро';

StringGrid1.Cells[2,0]:='Зросте єна';

StringGrid1.Cells[3,0]:='Зросте долар';

StringGrid1.Cells[0,1]:='Hunday';

StringGrid1.Cells[0,2]:='Philips';

StringGrid1.Cells[0,3]:='Bosh';

StringGrid2.Cells[0,0]:='Інвестиції,$';

StringGrid3.Cells[0,0]:='Ймовірність';

end;

procedure TForm1.StringGrid2SetEditText(Sender: TObject; ACol,

 ARow: Integer; const Value: String);

 var i,code:integer;s:string;

begin

for i:=0 to 1 do val(StringGrid2.Cells[0,i+1],money[i],code);

money[2]:=capital-money[0]-money[1];

Str(money[2],s);

StringGrid2.Cells[0,3]:=s;

SpeedButton1.Enabled:=True;

end;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

Розробив

Олійник Д.А.

22.03.13

ДРПК.020180.015

Аркуш

Перевірив

Рудакова

4

Змін

Арк.

№ Докум

Підпис

Дата

year:=year+1;

Capital:=capital+profit;

profit:=0;

Refrsh;

Label9.Visible:=False;

Label10.Visible:=False;

Lablel7.Visible:=False;

end;

Висновок: Я навчився створювати програму у вигляді гри в біржу


 

А также другие работы, которые могут Вас заинтересовать

45272. Уровни и подсистемы ОКС-7 55 KB
  Верхний уровень ОКС7 включает подсистемы: обеспечивание транзакций TCP пользовательские ISUP MUP HUP сервисные элементы прикладного уровня SL уровень подвижной связи стандарта GSMMP прикладная подсистема интеллектуальной сети INP подсистема эксплуатации техническое обслуживание и административное управление OMT. Подсистема пользователя ОКС7 обеспечивает функции сигнализации необходимые для обслуживания вызовов в телефонной сети и в сети ISDN а также для поддержки дополнительных услуг в ISDN. Подсистема...
45273. Подсистема передачи сообщений (МТР) ОКС-7 54.5 KB
  Для передачи сигнальной информации между пунктами сигнализации и для управления SCCP. МТР1: определяет физические электрические и функциональные характеристики канала передачи данных для звена сигнализации. МТР2: определяет функции и процедуры относящиеся к передаче сигнальных сообщений по звену сигнализации между двумя напрямую связанными пунктами сигнализации. Сочетание МТР1 и МТР2 организует звено сигнализации для передачи...
45274. Подсистема пользователя сети ОКС-7 с интеграцией служб (ISUP). Сигнальные сообщения при установлении соединения. Сценарий процесса установления соединения 151.5 KB
  Любое сообщение включает ряд параметров. Предусмотрены следующие 3 категории: Фиксированные обязательные параметры всегда включаются в сообщение и имеют фиксированную длину при этом позиция длина и порядок расположения обязательных параметров однозначно определяются типом сообщения поэтому их название и индикаторы длины не включаются в сообщение. Переменные обязательные параметры всегда включаются в сообщение но имеют переменную длину. Расположение переменных обязательных параметров в сообщении ...
45275. Коммутация каналов, пакетов, сообщений 35.5 KB
  Сеть связи switching network представляет собой совокупность технических средств предназначенных для передачи приема информации и состоит из абонентских устройств АУ линий связи и коммутационных узлов КУ.1 Фрагмент сети связи Лицо пользующееся абонентским устройством для передачи приема информации называется абонентом. Для передачи приема информации между удаленными коммутационными узлами используют каналы связи которые образуются при помощи многоканальных систем передачи. Он характеризуется тем что канал между передатчиком и...
45276. Принципы построения цифровых коммутаторов (пространственный, временной). Адресная и информационная память 201.5 KB
  Номер ячейки памяти определяет номер канала на выходе а адрес который в ней записан определяет ту ячейку ИП которую нужно открыть на данном канальном интервале. Схема коммутации и управляющей памяти является общей. Число разрядов в ячейках управляющей памяти равно N=log n. В каждой ячейке управляемой памяти записываются адреса схем И которые необходимо открыть в период канального интервала соответствующего номеру ячейки управляющей памяти.
45277. Обобщенная структурная схема цифровой АТС. Преобразование аналогового сигнала в цифровую форму 87 KB
  Преобразование аналогового сигнала в цифровую форму. МАЛ содержит абонентские комплекты АК взаимодействие оборудования АТСЭ с оконечным устройством пользователя и мультиплексор цифрового тракта Мх мультиплексирование индивидуальных Вканалов МЦК содержит коммутационное поле КПпроизводит коммутацию любого канального интервала time slot любого входящего тракта с любым канальным интервалом любого исходящего тракта линейные комплекты ЛКтобеспечивает синхронизацию ИКМ трактов и преобразование линейного сигнала генератор...
45278. Идеология и архитектура Softswitch коммутатора 135.5 KB
  Идеология и архитектура Softswitch коммутатора. Рисунок по архитектуре Softswitch является носителем интеллектуальных возможностей сети который координирует управление обслуживанием вызовов сигнализацию и функции обеспечивающие установление соединения через одну или несколько сетей. Фактически Softswitch остается тем же привычным коммутационным узлом но без цифрового коммутационного поля кросса и т. Термин Softswitch был придуман при разработке интерфейса между интерактивной речевой системой IVR и АТС с коммутацией каналов в...
45279. Многоканальные разговорные ИКМ - тракты с временным разделением каналов (ВРК) 136.5 KB
  Многоканальные разговорные ИКМ тракты с временным разделением каналов ВРК. тракты с временным разделением каналов ВРК. Цифровая система передачи ИКМ30 предназначена для формирования абонентских и соединительных линий ГТС и пригородной связи и позволяет организовать до 30 каналов ТЧ по парам низкочастотного кабеля ГТС а при наличии соответствующего оборудования сопряжения и линейного тракта каналоформирующая аппаратура ИКМ30 может использоваться для систем передачи по оптическим кабелям. Остальные 30 каналов используются для...
45280. Архитектура и интерфейсы GSM (мобильная станция, подсистема базовых станций, центр коммутации, домашний и визитный регистры) 62.5 KB
  Центр коммутации осуществляет постоянное слежение за подвижными станциями используя домашний регистр местоположения HLR и визитный регистр местоположения VLR. Ведется регистрация данных об изменении местоположения и роуминге блуждании абонента включая данные о временном идентификационном номере подвижного абонента TMSI Temporry Mobile Subscriber Identity и соответствующем визитном регистре местоположения VLR. Местоположение мобильных станций находится обычно в форме адреса данной мобильной станции в VLR. К данным содержащимся...