0 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 4
1

Игра в слова

23.03.2011, 17:40. Показов 4035. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Может кто поможет переделать из Делфи в С++ Билдер, просто тут совсем все другое, очень сложно.

ну или хотя бы помогите изменить button2...
Вложения
Тип файла: rar игра со справкой.rar (1.74 Мб, 121 просмотров)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.03.2011, 17:40
Ответы с готовыми решениями:

Игра "В слова": называть слово, начинающееся на последнюю букву слова названного соперником
Разработать программу, позволяющую игроку выбрать тему игры (например, города, растения, животные,...

Игра в слова
Составить программу позволяющую компьютеру и человеку играть в слова. Тематикой игры могут быть -...

Игра в слова
Нужно написать программу для игры в слова, но вопрос собственно не в этом, а вот в чем, написал я...

Игра в слова
«Игра в слова». Играют двое. Первый игрок загадывает слово и вводит его в программу с клавиатуры....

2
LK
Заблокирован
23.03.2011, 20:09 2
Лучший ответ Сообщение было отмечено Rizhik-belarus как решение

Решение

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
FILE *f;
f = textfile;
int N;
bool boo;
AnsiString s;
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int i,j,k,l,n;
  AnsiString m;
  TLabel *L1 = new TLabel;
  n = s.Length();
 
  if (!boo) { // boo == false
     for (i=1; i <= Memo1->Lines->Count-1; i++) {
       if (Edit1->Text == Memo1->Lines[i].Text) {
        if (Pos(s[n],Edit1->Text) == 1) {
          ListBox1->Items->Add(Edit1->Text);
          Memo1->Lines->Delete(i);
          Button1->Visible = false;
          Button2->Visible = false;
          s = Edit1->Text;
          if (s.Pos('ъ') == s.Length() ||
              s.Pos('ь') == s.Length() ||
              s.Pos('ы') == s.Length()) {
            s.Delete(s.Length(),1);
            random(5); // не знаю, какое тут должно быть значение
            l = s.Length();
            for (j=1; j <= Memo1->Lines->Count-1; j++) {
              m = Memo1->Lines[j].Text;
              if (s.Pos(m) == 1) {
                Memo2->Lines->Add(Memo1->Lines[j].Text);
              }
            }
            k = random(Memo2->Lines->Count);
            s = Memo2->Lines[k].Text;
            ListBox1->Items->Add(Memo2->Lines[k].Text);
            Button2->Visible = true;
            Memo2->Clear();
          }
        }
      }
    }
  }
  if (boo == true) {
     for (i=1; i <= Memo1->Lines->Count-1; i++) {
       if (Edit1->Text == Memo1->Lines[i].Text) {
        if (Pos(s[n],Edit1->Text) == 1) {
          ListBox1->Items->Add(Edit1->Text);
          Memo1->Lines->Delete(i);
          s = Edit1->Text;
          if (s.Pos('ъ') == s.Length() ||
              s.Pos('ь') == s.Length() ||
              s.Pos('ы') == s.Length()) {
            s.Delete(s.Length(),1);
            Button2->Enabled = false;
//            Button6->Enabled = true;
          }
        }
      }
    }
  }
}
Добавлено через 1 час 6 минут
! Я исправил код, потому как предыдущий писАл "на коленке", без проверки, при компиляции ошибок нет, дальше смотри сам.
1
Lexa75323
05.01.2012, 19:53 3
LK с праздниками тебя!!! Слушай, а можешь пожалуйста этот код с подробными комментариями прислать, сделаешь потрясающее дело для начинающих программистов))) зарание спасибо!!!
05.01.2012, 19:53
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.01.2012, 19:53
Помогаю со студенческими работами здесь

Игра в слова
Добрый день Уважаемые программисты, начал писать программу Игра в слова. Ну знаете, на 2ух игроков,...

Игра в слова
Всем привет!:senor: Помогите сделать игру на составление слов из произвольного набора букв....

игра в слова...
Помогите решить.... Игра в слова.Программа выбирает слово и рисует на экране столько прочерков,...

Игра в слова
Не могу довести программу до ума Помогите разобраться :wall:...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru