Игровой автомат

@Devilbreed · Регистрация: 30.05.2011

Студворк — интернет-сервис помощи студентам

делаю игру "игровой автомат"
вот код кнопки "Играть"

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int a, b, c, d, e; // a-1 слот b-2 слот c-3 слот d-4 слот e-5 слот
a=rand()%7;
b=rand()%7;
c=rand()%7;
d=rand()%7;
e=rand()%7;//случайное значение из 7(кол-во картинок в ImageList)
if (k>0){//
ImageList1->GetBitmap(a, Image1->Picture->Bitmap);
ImageList1->GetBitmap(b, Image2->Picture->Bitmap);
ImageList1->GetBitmap(c, Image3->Picture->Bitmap);
ImageList1->GetBitmap(d, Image4->Picture->Bitmap);
ImageList1->GetBitmap(e, Image5->Picture->Bitmap);
k=k-s;//s-ставка
}
if (k<=0) ShowMessage("Вы проиграли");
if ((a==b)&(b==c)) k=k+s+(s*5);
if ((c==d)&(d==e)) k=k+s+(s*5);
Label1->Caption=IntToStr(k);
}

и вот собственно где нужна помощь, как написать условие (если a=b=c=d=e тогда дает много денег)
Подскажите пожалуйста

Добавлено через 9 минут
и как сделать чтоб можно было сохранить результат игры, тоесть k, ну и соотвественно загрузить его.Help please

mimicria · 30.05.2011, 19:52

C++
1
if (a==b)&&(b==c)&&(c==d)&&(d==e) { ... }

@DeadRipper · 30.05.2011, 19:52

deleted

@Devilbreed · 30.05.2011, 20:10 **[ТС]**

C++
1
2
3
if (a==b)&&(b==c)&&(c==d) k=k+s+(s*5);
if (b==c)&&(c==d)&&(d==e) k=k+s+(s*5);
if (a==b)&&(b==c)&&(c==d)&&(d==e)k=k+s+(s*5);

верно ведь? но пишет ошибку
[C++ Error] Unit1.cpp(48): E2188 Expression syntax
[C++ Error] Unit1.cpp(49): E2188 Expression syntax
[C++ Error] Unit1.cpp(50): E2188 Expression syntax

@DeadRipper · 30.05.2011, 20:12

ну господи тут то грех было не подумать самому

C++
1
if ( (a==b)&&(b==c)&&(c==d)&&(d==e) ) {}

скобки внешние для If нужны

@Devilbreed · 30.05.2011, 21:51 **[ТС]**

Fuck, реально, спасибо большое, а как сделать чтоб можно было сохранить результат игры, тоесть k, ну и соотвественно загрузить его.

Добавлено через 29 минут
ну подскажите пожалуйста как сделать чтоб можно было сохранить результат игры(сумму на счету), тоесть k, ну и соотвественно загрузить его.

Добавлено через 1 час 2 минуты
Delete topic

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@DeadRipper 65 / 71 / 9 Регистрация: 25.06.2009 Сообщений: 244
	30.05.2011, 19:52
	deleted 0

@Devilbreed 2 / 2 / 0 Регистрация: 30.05.2011 Сообщений: 7
	30.05.2011, 21:51 [ТС]
	Fuck, реально, спасибо большое, а как сделать чтоб можно было сохранить результат игры, тоесть k, ну и соотвественно загрузить его. Добавлено через 29 минут ну подскажите пожалуйста как сделать чтоб можно было сохранить результат игры(сумму на счету), тоесть k, ну и соотвественно загрузить его. Добавлено через 1 час 2 минуты Delete topic 0