| imho.ws |
![]() |
|
|
|
# 142 |
|
Guest
Сообщения: n/a
|
ребята!!!
караул! помогите! никак не догоню... ну показывет мне компутер 2 комнаты после кода... а дверь то не открывает... все остальное закрыто... этот скелет бьется о заклад, что компутер должон дверь открыть (я так понимаю, ту, что рядом с компом)... тока она нифига не открывается... чего делать то? |
|
|
# 144 |
|
::VIP::
Звезда первого сезона Молчун-2004 Регистрация: 24.08.2002
Сообщения: 1 575
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
pro
Была таже проблема: есть пять букв, нужно из них составить осмсленное английское слово, которое является паролем для открытия дверей. 5 букв - 120 вариантов различных комбинаций букв. Английский я знаю плохо. Но мы же программисты!!! Пишем прогу, которая выводит все искомые комбинации, выбираем из них какой-либо более-менее известный и вводим. Вот исходник программы на паскале: Код:
uses
crt;
const
mw: string = 'RAGET';
k: integer = 0;
procedure words (s: string); far;
var
i: integer;
begin
if length(s) = length(mw) then begin
inc(k);
writeln(k:3, ' ', s);
if (k mod 24) = 0 then begin
readkey;
clrscr;
end;
end else for i := 1 to length(mw) do
if pos(mw[i], s) = 0 then words (s + mw[i]);
end;
begin
clrscr;
words ('');
end.
__________________
Действовать надо тупо и это лучшее доказательство нашей чистоты и силы! Последний раз редактировалось Ghost; 11.03.2004 в 17:56. |
|
|
|
|
# 145 |
|
Guest
Сообщения: n/a
|
Другой вариант кода. Работает для любого исходного набора букв.
Сами буквы запрашиваются при запуске. Код:
uses crt;
var
cs:string;
cnum:integer;
wnum:longint;
procedure word(s:string); far;
var
i:integer;
begin
if length(s)<cnum then
begin
for i:=1 to cnum do
if Pos(cs[i],s)=0
then word(s+cs[i]);
end else
begin
writeln (wnum:10,' ',s);
if (wnum mod 22) = 0 then
begin
writeln(#13,'Pres Space ... or Enter ... or ...');
readkey;
clrscr;
end;
inc(wnum);
end
end;
begin
clrscr;
write('Input leter: ');
readln(cs);
cnum:=length(cs);
wnum:=1;
word('');
end.
Последний раз редактировалось Destiny; 11.03.2004 в 18:06. |
|
|
# 153 |
|
Электрический пёс
Регистрация: 25.08.2002
Адрес: Московская подводная Лодка
Сообщения: 4 414
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
Найди выход из комнаты
Найди выход из комнаты, очередая часть. Выходим
![]() http://www.fasco-csc.com/works/bluechamber/index_e.php
__________________
Если хочешь иметь то, чего никогда не имел, то должен делать то, чего никогда не делал... |
|
|
|
|
# 154 |
|
Электрический пёс
Регистрация: 25.08.2002
Адрес: Московская подводная Лодка
Сообщения: 4 414
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
Слабоватая игрушка. Первые поинтересней и подлинее были.
http://imho.ws/showthread.php?t=5288...EC%ED%E0%F2%FB
__________________
Если хочешь иметь то, чего никогда не имел, то должен делать то, чего никогда не делал... |
|
|
|
|
# 158 |
|
Электрический пёс
Регистрация: 25.08.2002
Адрес: Московская подводная Лодка
Сообщения: 4 414
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
Возьми телефонную трубку и сопоставь просьбу о помощи. А скелет - звездочка.
__________________
Если хочешь иметь то, чего никогда не имел, то должен делать то, чего никогда не делал... |
|
|
|
|
# 160 |
|
Электрический пёс
Регистрация: 25.08.2002
Адрес: Московская подводная Лодка
Сообщения: 4 414
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
Не. На цифрах написаны буквы. Например латинская "Н" соответствует цифре 4.
__________________
Если хочешь иметь то, чего никогда не имел, то должен делать то, чего никогда не делал... |
|
|