быть поражение.
как сказала преподаватель "представь что экран это координатная плоскость, с размерами ОХ( 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==