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;

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


 

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

23710. Работа с математическими моделями 57.5 KB
  При решении последнего примера учащиеся вспоминают свойство 1 при умножении: а 1 = 1 а = а − Расположите полученные результаты в порядке возрастания. Какие свойства умножения вы использовали Распределительное свойство умножения относительно сложения и вычитания: аb c = аb ac аb c = аb ac свойство 1 при умножении: а  1 = а. Какое свойство умножения вы использовали Свойство 1 при умножении. Како теперь свойство можно применить Распределительное свойство умножения относительно сложения.
23711. Математические выражения и математические модели 76.5 KB
  а Графическая модель: Не известно количество девочек x одна часть и мальчиков но сказано что мальчиков в 3 раза больше x3 или 3x вторая часть всего целое 48 человек. x 3x = 48 x x3 = 48 Используем свойство 1 при умножении: a1 = 1a: 1x 3x = 48 x1 x3 = 48 Используем распределительное свойство умножения: ab c = ab ac: x1 3 = 48 Найдём сумму стоящую в скобках: 4x = 48 x4 = 48 Что бы найти неизвестный множитель надо произведение разделить на известный множитель: x = 48 : 4 x = 12 x ...
23712. Степень числа 46.5 KB
  Цели урока: сформировать понятие степени способность к чтению и записи выражений со степенями; повторить и закрепить смысл умножения натуральных чисел понятия простого и составного числа зависимость между компонентами и результатами арифметических действий тренировать вычислительные навыки способность к анализу и решению задач Самоопределение к деятельности. Доброе утро ребята Что нового и интересного вы узнали на предыдущих уроках Мы научились раскладывать числа на простые множители находить НОД и НОК чисел разными...
23713. Задачи для самопроверки (подготовка к контрольной работе) 99 KB
  Какие свойства чисел используются при упрощении буквенных выражений Переместительное сочетательное распределительное. На доске: Какие методы работы с моделями мы знаем Нахождение значений выражений решение уравнений используя распределительное свойство метод проб и ошибок метод полного перебора решение уравнений методом весов. 1 16x 7x 2x = x16 7 2 = 7x; Используем распределительное свойство умножения относительно вычитания ac bc = ca b 2 x : 5 Количество варенья в одной...
23714. Запись, чтение и составление выражений 40.5 KB
  Цели урока: формировать представление о математических выражениях как о словах математического языка повторить понятия числового и буквенного выражения учить делать перевод текстов с русского языка на математический и наоборот повторить и закрепить приёмы устных вычислений нумерацию натуральных чисел смысл сложения и вычитания взаимосвязь между ними сложение и вычитание многозначных чисел решение задач понятие периметра многоугольника развивать внимание логическое мышление способности к обобщению исследовательские умения...
23715. Запись, чтение и составление выражений 58 KB
  Запишите выражения для ответа на вопрос задачи: а Площадь прямоугольника с см2 а ширина 7см. Почему в классе разные ответы а часть ребят совсем не справилась с заданием Что необходимо знать что бы с заданием справились все Для решения первой задачи надо знать как найти ширину прямоугольника по его площади и длине а для решения второй задачи формулу площади прямоугольника. Поднимите руку те кто не знает формулу нахождения площади прямоугольника К решению этой задачи учащиеся были подготовлены на этапе актуализации по этому...
23716. ХУДОЖНЄ ВИХОВАННЯ В УМОВАХ НОВОЇ ЕСТЕТИЧНОЇ СОЦІАЛЬНОЇ РЕАЛЬНОСТІ В УКРАЇНІ 71 KB
  На основі аналізу феномена „масова культура” з’ясувати проблему його впливу на поведінку людей та необхідність прищеплення естетичного смаку особистості...
23717. Значение выражения, урок рефлексии 59 KB
  Повторить и закрепить понятия буквенного и числового выражения взаимосвязь между арифметическими действиями решение уравнений на сложение и вычитание алгоритмы сложения и вычитания многозначных чисел. Здравствуйте ребята Чему мы учились на прошлых уроках Составлять читать и записывать математические выражения. В каком виде мы записывали ответ В виде числового или буквенного выражения.
23718. Значение выражения 66 KB
  Какие выражения ещё мы учились составлять и записывать Буквенные выражения. Сегодня на уроке мы продолжим работать с буквенными выражениями. Как вы думаете что можно делать с буквенными выражениями Находить их значения.