быть поражение.
как сказала преподаватель "представь что экран это координатная плоскость, с размерами ОХ(0:80) а ОУ(0:25)"
AdAgent
Объявления
11.07.2013, 17:13     код игры виселица
 
 
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.07.2013, 17:13     код игры виселица
Посмотрите здесь: 
 
Turbo Pascal код игры "Турецкий пасьянс"
Turbo Pascal Олимпийские игры
Turbo Pascal Прямой код перевести в дополнительный код
Turbo Pascal Вложенные циклы и итерации (нужно что бы последовательностью, нужно код усовершенствовать, ну и сам код проверить )
Turbo Pascal код игры наборщик
Turbo Pascal Текстовые игры
 Turbo Pascal Корректировка игры
ermolay
Форумчанин
3188 / 2246 / 145
Регистрация: 04.12.2011
Сообщений: 3,812
12.07.2013, 12:16     код игры виселица	   #2
как то так:
Код Pascal
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
uses
  crt;
var
  f: text;
  s: string;
  i,k: byte;
  boo: boolean;
  ch: char;
begin
  gotoxy(38,3); write('_ _ _ _ _ _ _');
  gotoxy(0,0);
  assign(f,'1.txt');
  reset(f);
  read(f,s);
  close(f);
  boo:=true;
  repeat
    if s='' then
    begin
      gotoxy(15,20);
      writeln('YOU ARE WIN! :)');
      exit;
    end;
    ch:=readkey;
    if pos(ch,s)=0 then begin
        inc(k);
        case k of
          1: begin
               for i:=1 to 6 do
               begin
                 gotoxy(10,10+i);
                 writeln('|');
               end;
             end;
          2: begin
               for i:=1 to 6 do
               begin
                 gotoxy(10+i,10);
                 writeln('_');
               end;
             end;
          3: begin
               gotoxy(16,11);
               writeln('|');
             end;
          4: begin
               gotoxy(16,12);
               writeln('O');
             end;
          5: begin
               gotoxy(15,13);
               writeln('/|\');
             end;
          6: begin
               gotoxy(15,14);
               writeln('/ \');
               gotoxy(15,20);
               writeln('YOU ARE FAILED');
               exit;
             end;
        end;
      end else
    begin
      delete(s,pos(ch,s),1);
      case upCase(ch) of
        'М': begin gotoxy(38,3); write('М');
             end;
        'О': begin
               if boo then begin
                 gotoxy(40,3); write('О'); boo:=false
               end else begin
                 gotoxy(46,3); write('О');
               end;
             end;
        'Р': begin gotoxy(42,3); write('Р');
             end;
        'К': begin gotoxy(44,3); write('К');
             end;
        'В': begin gotoxy(48,3); write('В');
             end;
        'Ь': begin gotoxy(50,3); write('Ь');
             end;
      end;
    end;
  until k>=6;
  readln;
end.

INCx0YvRgtGMINC/0L7RgNCw0LbQtdC90LjQtS4K0LrQsNC6INGB0LrQsNC30LDQu9CwINC/0YDQtdC/0L7QtNCw0LLQsNGC0LXQu9GMICLQv9GA0LXQtNGB0YLQsNCy0Ywg0YfRgtC+INGN0LrRgNCw0L0g0Y3RgtC+INC60L7QvtGA0LTQuNC90LDRgtC90LDRjyDQv9C70L7RgdC60L7RgdGC0YwsINGBINGA0LDQt9C80LXRgNCw0LzQuCDQntClKDA6ODApINCwINCe0KMoMDoyNSkiCkFkQWdlbnQK0J7QsdGK0Y/QstC70LXQvdC40Y8KMTEuMDcuMjAxMywgMTc6MTMgwqAgwqAg0LrQvtC0INC40LPRgNGLINCy0LjRgdC10LvQuNGG0LAKCiAKU2ltaWxhcgrQrdC60YHQv9C10YDRggo0MTc5MiAvIDM0MTc3IC8gNjEyMgrQoNC10LPQuNGB0YLRgNCw0YbQuNGPOiAxMi4wNC4yMDA2CtCh0L7QvtCx0YnQtdC90LjQuTogNTcsOTQwCjExLjA3LjIwMTMsIDE3OjEzIMKgIMKgINC60L7QtCDQuNCz0YDRiyDQstC40YHQtdC70LjRhtCwCtCf0L7RgdC80L7RgtGA0LjRgtC1INC30LTQtdGB0Yw6IAoKVHVyYm8gUGFzY2FsINC60L7QtCDQuNCz0YDRiyAi0KLRg9GA0LXRhtC60LjQuSDQv9Cw0YHRjNGP0L3RgSIKVHVyYm8gUGFzY2FsINCe0LvQuNC80L/QuNC50YHQutC40LUg0LjQs9GA0YsKVHVyYm8gUGFzY2FsINCf0YDRj9C80L7QuSDQutC+0LQg0L/QtdGA0LXQstC10YHRgtC4INCyINC00L7Qv9C+0LvQvdC40YLQtdC70YzQvdGL0Lkg0LrQvtC0ClR1cmJvIFBhc2NhbCDQktC70L7QttC10L3QvdGL0LUg0YbQuNC60LvRiyDQuCDQuNGC0LXRgNCw0YbQuNC4ICjQvdGD0LbQvdC+INGH0YLQviDQsdGLINC/0L7RgdC70LXQtNC+0LLQsNGC0LXQu9GM0L3QvtGB0YLRjNGOLCDQvdGD0LbQvdC+INC60L7QtCDRg9GB0L7QstC10YDRiNC10L3RgdGC0LLQvtCy0LDRgtGMLCDQvdGDINC4INGB0LDQvCDQutC+0LQg0L/RgNC+0LLQtdGA0LjRgtGMICkKVHVyYm8gUGFzY2FsINC60L7QtCDQuNCz0YDRiyDQvdCw0LHQvtGA0YnQuNC6ClR1cmJvIFBhc2NhbCDQotC10LrRgdGC0L7QstGL0LUg0LjQs9GA0YsKIFR1cmJvIFBhc2NhbCDQmtC+0YDRgNC10LrRgtC40YDQvtCy0LrQsCDQuNCz0YDRiwplcm1vbGF5CtCk0L7RgNGD0LzRh9Cw0L3QuNC9CjMxODggLyAyMjQ2IC8gMTQ1CtCg0LXQs9C40YHRgtGA0LDRhtC40Y86IDA0LjEyLjIwMTEK0KHQvtC+0LHRidC10L3QuNC5OiAzLDgxMgoxMi4wNy4yMDEzLCAxMjoxNiDCoCDCoCDQutC+0LQg0LjQs9GA0Ysg0LLQuNGB0LXQu9C40YbQsAkgwqAgIzIK0LrQsNC6INGC0L4g0YLQsNC6OgrQmtC+0LQgUGFzY2FsCjEKMgozCjQKNQo2CjcKOAo5CjEwCjExCjEyCjEzCjE0CjE1CjE2CjE3CjE4CjE5CjIwCjIxCjIyCjIzCjI0CjI1CjI2CjI3CjI4CjI5CjMwCjMxCjMyCjMzCjM0CjM1CjM2CjM3CjM4CjM5CjQwCjQxCjQyCjQzCjQ0CjQ1CjQ2CjQ3CjQ4CjQ5CjUwCjUxCjUyCjUzCjU0CjU1CjU2CjU3CjU4CjU5CjYwCjYxCjYyCjYzCjY0CjY1CjY2CjY3CjY4CjY5CjcwCjcxCjcyCjczCjc0Cjc1Cjc2Cjc3Cjc4Cjc5CjgwCjgxCjgyCjgzCjg0Cjg1Cjg2Cjg3CnVzZXMKwqAgY3J0Owp2YXIKwqAgZjogdGV4dDsKwqAgczogc3RyaW5nOwrCoCBpLGs6IGJ5dGU7CsKgIGJvbzogYm9vbGVhbjsKwqAgY2g6IGNoYXI7CmJlZ2luCsKgIGdvdG94eSgzOCwzKTsgd3JpdGUoJ18gXyBfIF8gXyBfIF8nKTsKwqAgZ290b3h5KDAsMCk7CsKgIGFzc2lnbihmLCcxLnR4dCcpOwrCoCByZXNldChmKTsKwqAgcmVhZChmLHMpOwrCoCBjbG9zZShmKTsKwqAgYm9vOj10cnVlOwrCoCByZXBlYXQKwqAgwqAgaWYgcz0nJyB0aGVuCsKgIMKgIGJlZ2luCsKgIMKgIMKgIGdvdG94eSgxNSwyMCk7CsKgIMKgIMKgIHdyaXRlbG4oJ1lPVSBBUkUgV0lOISA6KScpOwrCoCDCoCDCoCBleGl0OwrCoCDCoCBlbmQ7CsKgIMKgIGNoOj1yZWFka2V5OwrCoCDCoCBpZiBwb3MoY2gscyk9MCB0aGVuIGJlZ2luCsKgIMKgIMKgIMKgIGluYyhrKTsKwqAgwqAgwqAgwqAgY2FzZSBrIG9mCsKgIMKgIMKgIMKgIMKgIDE6IGJlZ2luCsKgIMKgIMKgIMKgIMKgIMKgIMKgIMKgZm9yIGk6PTEgdG8gNiBkbwrCoCDCoCDCoCDCoCDCoCDCoCDCoCDCoGJlZ2luCsKgIMKgIMKgIMKgIMKgIMKgIMKgIMKgIMKgZ290b3h5KDEwLDEwK2kpOwrCoCDCoCDCoCDCoCDCoCDCoCDCoCDCoCDCoHdyaXRlbG4oJ3wnKTsKwqAgwqAgwqAgwqAgwqAgwqAgwqAgwqBlbmQ7CsKgIMKgIMKgIMKgIMKgIMKgIMKgZW5kOwrCoCDCoCDCoCDCoCDCoCAyOiBiZWdpbgrCoCDCoCDCoCDCoCDCoCDCoCDCoCDCoGZvciBpOj0xIHRvIDYgZG8KwqAgwqAgwqAgwqAgwqAgwqAgwqAgwqBiZWdpbgrCoCDCoCDCoCDCoCDCoCDCoCDCoCDCoCDCoGdvdG94eSgxMCtpLDEwKTsKwqAgwqAgwqAgwqAgwqAgwqAgwqAgwqAgwqB3cml0ZWxuKCdfJyk7CsKgIMKgIMKgIMKgIMKgIMKgIMKgIMKgZW5kOwrCoCDCoCDCoCDCoCDCoCDCoCDCoGVuZDsKwqAgwqAgwqAgwqAgwqAgMzogYmVnaW4KwqAgwqAgwqAgwqAgwqAgwqAgwqAgwqBnb3RveHkoMTYsMTEpOwrCoCDCoCDCoCDCoCDCoCDCoCDCoCDCoHdyaXRlbG4oJ3wnKTsKwqAgwqAgwqAgwqAgwqAgwqAgwqBlbmQ7CsKgIMKgIMKgIMKgIMKgIDQ6IGJlZ2luCsKgIMKgIMKgIMKgIMKgIMKgIMKgIMKgZ290b3h5KDE2LDEyKTsKwqAgwqAgwqAgwqAgwqAgwqAgwqAgwqB3cml0ZWxuKCdPJyk7CsKgIMKgIMKgIMKgIMKgIMKgIMKgZW5kOwrCoCDCoCDCoCDCoCDCoCA1OiBiZWdpbgrCoCDCoCDCoCDCoCDCoCDCoCDCoCDCoGdvdG94eSgxNSwxMyk7CsKgIMKgIMKgIMKgIMKgIMKgIMKgIMKgd3JpdGVsbignL3xcJyk7CsKgIMKgIMKgIMKgIMKgIMKgIMKgZW5kOwrCoCDCoCDCoCDCoCDCoCA2OiBiZWdpbgrCoCDCoCDCoCDCoCDCoCDCoCDCoCDCoGdvdG94eSgxNSwxNCk7CsKgIMKgIMKgIMKgIMKgIMKgIMKgIMKgd3JpdGVsbignLyBcJyk7CsKgIMKgIMKgIMKgIMKgIMKgIMKgIMKgZ290b3h5KDE1LDIwKTsKwqAgwqAgwqAgwqAgwqAgwqAgwqAgwqB3cml0ZWxuKCdZT1UgQVJFIEZBSUxFRCcpOwrCoCDCoCDCoCDCoCDCoCDCoCDCoCDCoGV4aXQ7CsKgIMKgIMKgIMKgIMKgIMKgIMKgZW5kOwrCoCDCoCDCoCDCoCBlbmQ7CsKgIMKgIMKgIGVuZCBlbHNlCsKgIMKgIGJlZ2luCsKgIMKgIMKgIGRlbGV0ZShzLHBvcyhjaCxzKSwxKTsKwqAgwqAgwqAgY2FzZSB1cENhc2UoY2gpIG9mCsKgIMKgIMKgIMKgICfQnCc6IGJlZ2luIGdvdG94eSgzOCwzKTsgd3JpdGUoJ9CcJyk7CsKgIMKgIMKgIMKgIMKgIMKgIMKgZW5kOwrCoCDCoCDCoCDCoCAn0J4nOiBiZWdpbgrCoCDCoCDCoCDCoCDCoCDCoCDCoCDCoGlmIGJvbyB0aGVuIGJlZ2luCsKgIMKgIMKgIMKgIMKgIMKgIMKgIMKgIMKgZ290b3h5KDQwLDMpOyB3cml0ZSgn0J4nKTsgYm9vOj1mYWxzZQrCoCDCoCDCoCDCoCDCoCDCoCDCoCDCoGVuZCBlbHNlIGJlZ2luCsKgIMKgIMKgIMKgIMKgIMKgIMKgIMKgIMKgZ290b3h5KDQ2LDMpOyB3cml0ZSgn0J4nKTsKwqAgwqAgwqAgwqAgwqAgwqAgwqAgwqBlbmQ7CsKgIMKgIMKgIMKgIMKgIMKgIMKgZW5kOwrCoCDCoCDCoCDCoCAn0KAnOiBiZWdpbiBnb3RveHkoNDIsMyk7IHdyaXRlKCfQoCcpOwrCoCDCoCDCoCDCoCDCoCDCoCDCoGVuZDsKwqAgwqAgwqAgwqAgJ9CaJzogYmVnaW4gZ290b3h5KDQ0LDMpOyB3cml0ZSgn0JonKTsKwqAgwqAgwqAgwqAgwqAgwqAgwqBlbmQ7CsKgIMKgIMKgIMKgICfQkic6IGJlZ2luIGdvdG94eSg0OCwzKTsgd3JpdGUoJ9CSJyk7CsKgIMKgIMKgIMKgIMKgIMKgIMKgZW5kOwrCoCDCoCDCoCDCoCAn0KwnOiBiZWdpbiBnb3RveHkoNTAsMyk7IHdyaXRlKCfQrCcpOwrCoCDCoCDCoCDCoCDCoCDCoCDCoGVuZDsKwqAgwqAgwqAgZW5kOwrCoCDCoCBlbmQ7CsKgIHVudGlsIGs+PTY7CsKgIHJlYWRsbjsKZW5kLg==