Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ помогите решить ребус!

Автор: eXTreMe 20.11.2005 20:50

я не знаю как решить ребус VOLVO+FIAT=MOTOR. Пожалуйста кто-нибудь помогите решить его!!!
Заранее благодарен, eXTreMe

Автор: volvo 20.11.2005 20:52

eXTreMe, а кто такая FIAT? rolleyes.gif

Автор: klem4 20.11.2005 20:54

да простят меня модераторы и администраторы lol.gif lol.gif lol.gif

Автор: Altair 20.11.2005 20:54

good.gif lol.gif lol.gif lol.gif lol.gif (уже на полу )

Автор: volvo 20.11.2005 22:57

Эх, так никто и не скажет про FIAT ... cool.gif
eXTreMe, вот решение ребуса (взято отсюда: http://forum.pascal.net.ru/index.php?showtopic=1275&view=findpost&p=11031 и подправлено под нужную задачу...)

{
VOLVO+FIAT=MOTOR;
}
uses crt;

var
v, o, l, f, i, a, t, m, r: 0 .. 9;

dig : set of 0..9;
sum, motor: longint;

begin
clrscr;
for v:=0 to 9 do begin
include(dig,v);
for o:=0 to 9 do if not (o in dig) then begin
include(dig,o);
for l:=0 to 9 do if not (l in dig) then begin
include(dig,l);
for f:=0 to 9 do if not (f in dig) then begin
include(dig,f);
for i:=0 to 9 do if not (i in dig) then begin
include(dig,i);
for a:=0 to 9 do if not (a in dig) then begin
include(dig,a);
for t:=0 to 9 do if not (t in dig) then begin
include(dig,t);
for m:= 0 to 9 do if not (m in dig) then begin
include(dig, m);
for r := 0 to 9 do if not (r in dig) then begin
include(dig, r);

sum := v*10000 + (o+f)*1000 + (l+i)*100 + (v+t)*10 + (o+t);
motor := m*10000+o*1000+t*100+o*10+r;
if sum = motor then
writeln(':', v,o,l,v,o,'+',f,i,a,t,'=', m,o,t,o,r);

exclude(dig, r)
end;
exclude(dig, m);
end;
exclude(dig,t);
end;
exclude(dig,a);
end;
exclude(dig,i);
end;
exclude(dig,f);
end;
exclude(dig,l);
end;
exclude(dig,o);
end;
exclude(dig,v);
end;
end.
В результате - 12 решений...

Автор: klem4 21.11.2005 18:08

А можно вопрос ... как и в какую сторону надо начинать думать, чтобы решить эту задачу и каков смысл этого решения ? wacko.gif mega_chok.gif И извините за серость, что за include и exclude, никогда эти ф-ии не юзал

и на склько я понял, таким способом можно проверить любое соотношение слов?

аа.. про инклуды понял, включае в множество ...

Автор: volvo 21.11.2005 18:24

Цитата
как и в какую сторону надо начинать думать, чтобы решить эту задачу и каков смысл этого решения ?
Полный перебор вариантов, исключая повторные присваивания одинаковых цифр разным буквам (для чего и используются множества)...

Автор: eXTreMe 22.11.2005 17:24

Volvo, огромное спасибо за программу, она good.gif работает.
P.S: ты бы не мог объяснить что делает функция include, а что exclude?

Автор: volvo 22.11.2005 17:30

Если описаны

Var
X: Byte;
S: Set Of Byte;

то
Include(X, S) - Добавляет элемент Х во множество S
Exclude(X, S) - Извлекает (удаляет) X из S (если X в это время не входит в S, то просто ничего не делается)

Автор: volvo 7.02.2006 23:14

Немного подниму тему...

http://forum.sources.ru/index.php?showtopic=131901&view=findpost&p=1009254 некоторым особо переборчивым (Люди сами не предлагают НИКАКИХ вариантов, а чужие ВСЕГДА критикуют, "можно сделать гораздо эффективнее"... Удобная позиция, правда?) не понравилось, что слишком много циклов в программе, вот - решил переделать на рекурсию, чтобы был выбор...

uses crt;
var
dig: set of byte;

var
first, second, res: string;
T: string;

function check(s, what: string): longint;
var
i: byte;
n: longint;
begin
n := 0;
for i := 1 to length(s) do begin
n := 10 * n;
n := n + ( ord(what[ pos(s[i], T) ]) - 48 );
end;
check := n;
end;

procedure full(s: string);
var i: integer;
begin
if length(s) = length(T) then begin
if check(first, s) + check(second, s) = check(res, s) then
writeln('found: ', check(first, s), '+', check(second, s), '=',
check(res, s));
end
else
for i := 0 to 9 do
if not (i in dig) then begin
include(dig, i);
full(s + chr(48 + i));
exclude(dig, i);
end
end;

procedure fill_str(var s: string; what: string);
var i: byte;
begin
for i := 1 to length(what) do
if pos(what[i], s) = 0 then s := s + what[i];
end;


begin
T := '';
first := 'volvo'; second := 'fiat'; res := 'motor';
fill_str(T, first); fill_str(T, second); fill_str(T, res);
full('');
end.