Форум программистов, компьютерный форум, киберфорум
Наши страницы
C++ Builder
Войти
Регистрация
Восстановить пароль
 
Владислав Сова
0 / 0 / 0
Регистрация: 13.04.2012
Сообщений: 5
1

Програма домино

23.04.2012, 20:56. Просмотров 676. Ответов 0
Метки нет (Все метки)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <stdio.h>
#include <string.h>
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 struct kompl {
   AnsiString  pozn;
   AnsiString tup;
   float  nomin;
   int kil;
 
  } komplek[15];
 
 int m,n, i, j;
 
 float sqx;
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
exit(1);        
}
//---------------------------------------------------------------------------
 
 
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
String buff;
 for (int i = 0; i < StringGrid1->RowCount-1; i++)
 for (int j = i; j < StringGrid1->RowCount; j++)
    {
     if (StringGrid1->Cells[0][i]>StringGrid1->Cells[0][j])
     {
     for(int k=0;k<7;k++)  // количество сортируемых столбцов
       {
         buff=StringGrid1->Cells[k][i];
        StringGrid1->Cells[k][i]= StringGrid1->Cells[k][j];
          StringGrid1->Cells[k][j]=buff;
       }
    }
   }
 
 
 
}
//---------------------------------------------------------------------------
 
 
 
 
 
 
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Edit4->Clear();
 
    StringGrid1->ColCount=5;
    StringGrid1->RowCount=11;
    StringGrid1->FixedRows=1;
    StringGrid1->FixedCols=1;
    StringGrid1->Cells[0][0] = "№";
  StringGrid1->Cells[1][0] = "Позначення";
    StringGrid1->Cells[2][0] = "Тип";
    StringGrid1->Cells[3][0] = "Номінал";
    StringGrid1->Cells[4][0] = "К-ть";
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
//static short i = 0;
 
 
   Button1->Caption = i + 1;
 
   komplek[i].pozn =Edit1->Text;
   komplek[i].tup = Edit4->Text;
   komplek[i].nomin = StrToFloat(Edit3->Text);
   komplek[i].kil = StrToInt(Edit2->Text);
 
 
   StringGrid1->Cells[0][i+1] = i + 1;
   StringGrid1->Cells[1][i+1] = komplek[i].pozn;
   StringGrid1->Cells[2][i+1] = komplek[i].tup;
   StringGrid1->Cells[3][i+1] = komplek[i].nomin;
   StringGrid1->Cells[4][i+1] = komplek[i].kil;
 
   Edit1->SetFocus();
 
   if(i+1 == 10){ShowMessage("Кінець"); i = 0; return;}
   i++;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{int j,k,k1,min;
 String t;
 
for(j=1;j<i;j++)
 {k1=j;
 min=StrToInt(StringGrid1->Cells[4][j]);
 
  for(k=j+1;k<=i;k++)
   if (StrToInt(StringGrid1->Cells[4][k])<min) {k1=k;
                                                min=StrToInt(StringGrid1->Cells[4][k]);}
  for(k=1;k<=4;k++)
   {t=StringGrid1->Cells[k][k1];
    StringGrid1->Cells[k][k1]=StringGrid1->Cells[k][j];
    StringGrid1->Cells[k][j]=t;
   }
 }
 
}
//---------------------------------------------------------------------------
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.04.2012, 20:56
Ответы с готовыми решениями:

Домино на C++Builder
Помогите пожалуйста написать игру Домино на Builder, или может у кого есть, поделитесь...

4 поточнкая програма
Как зделать чтоб програма роботала в 4-ох потоках?

Програма анализатор
Написать программу-анализатор, программа должна показывать пользователю случайную загадку,...

Програма архиватор
Подскажите как создать текстовый архиватор

Не запускается програма
Такая вот проблема при открытии

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.04.2012, 20:56

Готовая програма с ошибкой
Есть задание: Для каждого x, изменяющегося от a до b с шагом h, найти значения функции Y(x), суммы...

програма с текстовыми файломи
требования 1 подготовить текстовый фаил с входными данными в редакторе 2 разбить программу на...

Неправильно работает програма с fscanf
Всем доброго времени суток. Задание прочитать файл и вывести все ведомости про курсы, в которых не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru