Не могу разобраьтся

15.10.2013, 20:14. Показов 866. Ответов 0

Метки нет (Все метки)

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

Мне нужно, что-бы выводилось победа или проигрыщ при условии:
if ((21 > x1) and (x1 > pr)) or (x1 = 21) or ((21<x1) and (x1<pr)) THEN begin writeln('Victory') end;
if ((21 < pr) and (pr < x1)) or ((21 < pr) and (pr<x1)) or (pr = 21) then begin writeln('lose') end;

(victory - победа, lose - проигрыш)
Вот код:

Pascal

program BlackJack;
var
x1,x2,x3,x4,x5,pr: integer;
yn: char;
vl: string;
begin
 
writeln ('Chtobu nachat igru najmite "Enter"');
readln;
 
Randomize;
pr:=14+random(11);
x1:=2+random(13);
x2:=2+random(13);
x3:=2+random(13);
x4:=2+random(13);
x5:=2+random(13);
if ((21 > x1) and (x1 > pr)) or (x1 = 21) or ((21<x1) and (x1<pr)) THEN begin writeln('Victory') end;
if ((21 < pr) and (pr < x1)) or ((21 < pr) and (pr<x1)) or (pr = 21) then begin writeln('lose') end;
 
writeln ('Vam vipalo - ',x1, ' ochek',' - Vzat karty ewe ili vskritsa (y/n)');
 
write ('Vash otvet -'); readln (yn);
 
 
writeln (vl);
if (yn = 'n') then begin writeln ('Vash schet - ',x1, ' ochek - ', vl, '| Schet protivnika - ', pr); end;
if (yn = 'y') then begin writeln ('Vam vipalo - ',x1+x2, ' ochek','- Vzat karty ewe ili vskritsa (y/n)'); readln(yn); end;

Добавлено через 10 минут
Не выводит как уже не пробую(((

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.10.2013, 20:14

Ответы с готовыми решениями:

Не могу отправить окну сообщение WM_PAINT (точнее, не могу перерисовать окно)
Смотрите оконную функцию она в самом низу. Всё остальное шаблонный код по созданию окна. ...

Не могу установить Windows из-за того,что не могу сделать выбор установки
Подскажите, я устанавливаю виндовс XP,с диска,на экране высвечивает загруска с диска С, ниже...

Приветствую, не могу разобраться с кодом программы и не могу сделать .obj файл
.model tiny; нужно будет получить исполняемый файл формата СОМ .code org 100h start: mov ax,...

Не могу сделать полиморфизм. Не могу до конца понять пример по этому поводу
Есть такая задача: Класс Animal должен быть абстрактным, имеет имя и вес. Класс Reptile имеет...

	15.10.2013, 20:14

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.10.2013, 20:14

Помогаю со студенческими работами здесь

Не могу отловить проблему, вроде не большая проблема, но не могу двинуться дальше
Мне нужно написать маленькую длл ку, для обмена пакетами. Делаю(вырезал всё лишнее, оставил соль):...

Не могу скачать файл из ссылки <a> + не могу подконектится по ftp в тотале.
Всем привет. Хочу на своем сайте выложить мое резюме. Создал следующую ссылку: <a...

Не могу найти ошибку!! не могу не как разобраться! надо до завтра.
условие: Для 7 человек, среди которых есть мужчины и женщины, хранятся следующие данные: имя, пол...

Не могу написать комментарии для функции поиска, не могу разобраться...
void __fastcall TForm1::FindDialog1Find(TObject *Sender) { int found, start, end; //...

Не могу понять почему не могу считать символьный ряд через cin.getline
Не могу понять почему не могу считать символьный ряд через cin.getline.Помогите позязя. #define ...

не могу дописать функцию перевода текста на 2сс,не могу возвращать переведенный текст
void itoa(char str){ int i; char buf; char url; char yn; int x=0; i=0; while(str){ ...

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

Или воспользуйтесь поиском по форуму:

Наверх