Форум программистов [Powered by Invision Power Board]

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

Форум программистов > Object Pascal: кроссплатформенные технологии > ЛЮДИ ПОМОГИТЕ С ЗАДАЧЕЙ!!!

Автор: Elfin 27.10.2004, 19:58

Ув. тов. пр-мисты.. нужно срочно решить задачу, зачет по программированию горит...
вобщем условие звучит так, точной формулировки не помню, объясню на своих словах...

дано выражение...
ХРУСТ*ГРОХОТ=РРРРРРРРРРР

каждая буква в слове (будет являться переменной в задаче) должна иметь свое значение, всего разных букв в выражении 7, значит у каждой буквы будет свое значение, причем одинаковым буквам - одинаковое значение, разным разное, например если переменные будут иметь такие значения:
х=4
р=2
у=3
с=0
т=1
г=6
о=7

то выражение будет выгляденть так 42301*627471=22222222222

итак надо найти при каких значениях переменных выражение будет истинно....

мляха муха я запарился с этой задачей, не знаю как решать помогите люди!!!! ААА!!!

пысы, очевидно что, чтобы получить левую часть не меньше правой части уравнения, то нужно чтобы одна из переменных "х" и "г" равнялась не меньшему числу чем 4 другая - не меньше 5 (иначе длина результата левой части будет меньше 11 знаков)

Автор: Pakshin A. S. 27.10.2004, 21:20

Можно решать в лоб.
Буквы принимают значение от 0 до 9 => берем и просто делаем различные сочетания значений букв...
Добавлено @ 21:21
завтра-послезавтра предложу решение...

Автор: Elfin 28.10.2004, 04:08

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

)))

Автор: ~FoX~ 28.10.2004, 08:23

Elfin

Цитата

00001*000001
00002*000001
00003*000001
00004*000001
........................
99999*000002
etc.

39916800 - итераций - не очень долго

Если простым перебором подайдет, то выложу решение с небольшой оптимизацией

Автор: Akina 28.10.2004, 09:17

~FoX~
Ну, во-первых, итераций не более 10! / (10-7)! = 604800. На самом деле меньше - заведомо Х и Г не ноль, причем хотя бы одно - 4 или больше, Р - 1, 4, 5, 6 или 9.
Проще решать разложением РРРРРРРРРРР на 2 множителя. ИМХО.

Автор: Alex101 28.10.2004, 12:54

Цитата(Elfin @ 27.10.2004, 16:58)

выражение будет выгляденть так 42301*627471=22222222222

Интересно, как это у тебя получилось?

Да, еще вопрос, в какой системе счисления?

Если десятичная система, то уже понятно, что
Т<>0, 1, 5, 6

Автор: Guest 28.10.2004, 15:23

Цитата

Цитата (Elfin @ 27.10.2004, 16:58)

выражение будет выгляденть так 42301*627471=22222222222

Интересно, как это у тебя получилось?

Да, еще вопрос, в какой системе счисления?

Если десятичная система, то уже понятно, что
Т<>0, 1, 5, 6

1 это типа фрагмент подбора, если переменные равны значениям приведенным выше

2 в десятичной системе, и объясни пожалуйста почему Т<>0, 1, 5, 6

зы я очень тупой и в математике ни х-ра не понимаю, так что извини если я чего то непонял

Автор: Elfin И выше написанное - тоже м 28.10.2004, 15:28

Цитата

Elfin

Цитата

00001*000001
00002*000001
00003*000001
00004*000001
........................
99999*000002
etc.

39916800 - итераций - не очень долго

Если простым перебором подайдет, то выложу решение с небольшой оптимизацией

Цитата

00001*000001
00002*000001
00003*000001
00004*000001
........................
99999*000002
etc.

это почему так?

ведь каждому символу должно быть присвоено значение 0..9 причем разным буквам - разные значения, откуда например вот это 00002*000001?? если в слове грохот максимум может быть два нуля - две буквы О а в слове хруст - не больше одного

Автор: Girder 28.10.2004, 15:36

Цитата(Akina @ 28.10.2004, 10:17)

Ну, во-первых, итераций не более 10! / (10-7)! = 604800.

Значительно меньше...

Вот к примеру: решение 'влоб'... и уже на 51 интерации получен первое решение!
C учетом подинтераций, сумарное их количество не будет больше 1000...2000

Решение 'влоб'...

Цитата

Начальные условия:
ХРУСТ*ГРОХОТ=РРРРРРРРРРР
x=[0..9]
Xi<>Xj => P<>0 (Г<>0) => T<>0

Решение:
1)Интерация;
P=[2..9],т.к Xi<>Xj и P<>0
2)Итерация;
T*T=(1,4,9,16,25,36,49,64,81) и Xi<>Xj => Т=(2,3,4,7,8,9) и P=(4,9,6,9,4,1);

3)Интерация: T=2;P=4; и Xi<>Xj => CT*OT=(xx44) => C or O = (0,7)or(1,6)or(3,9)or(5,7)or(8,9)
4)Интерация: T=3;P=9; и Xi<>Xj => CT*OT=(xx99) => C or O = (1,2)or(5,8)or(6,7)

5)Интерация: T=2;P=4;C or O = (0,7); и Xi<>Xj и T=T => УСТ*ХОТ=(xx444) => Решений нет
6)Интерация: T=2;P=4;C or O = (1,6); и Xi<>Xj и T=T => УСТ*ХОТ=(xx444) => Решений нет
7)Интерация: T=2;P=4;C or O = (3,9); и Xi<>Xj и T=T => УСТ*ХОТ=(xx444) => Решений нет
8)Интерация: T=2;P=4;C or O = (5,7); и Xi<>Xj и T=T => УСТ*ХОТ=(xx444) => Решений нет
9)Интерация: T=2;P=4;C or O = (8,9); и Xi<>Xj и T=T => УСТ*ХОТ=(xx444) => Решений нет
10)Интерация: T=3;P=9;C or O = (1,2); и Xi<>Xj и T=T => УСТ*ХОТ=(xx999) => Y or X = (4,5)
11)Интерация: T=3;P=9;C or O = (5,8); и Xi<>Xj и T=T => УСТ*ХОТ=(xx999) => Y or X = (0,2)
12)Интерация: T=3;P=9;C or O = (6,7); и Xi<>Xj и T=T => УСТ*ХОТ=(xx999) => Y or X = (0,8)
Промежуточные итоги:
T=3;
P=9;
C or 0 = (1,2) => Y or X = (4,5) => Г=[6..8]
C or 0 = (5,8) => Y or X = (0,2) => Г=[1,4,6,7]
C or 0 = (6,7) => Y or X = (0,8) => Г=[1,2,4,5]
=> Интервалы все определены... можем продолжить так: (Для всех T=3;P=9) ХРУСТ*ГРОХОТ=РРРРРРРРРРР
Проверка на Max:
13)Интерация: C or 0 = (1,2) => 59413*892523=53027468999 => Решений нет
14)Интерация: C or 0 = (5,8) => 29053*798283=23192515999 => Решений нет
15)Интерация: C or 0 = (6,7) => 89063*597873=53248362999 => Решений нет

Продолжаем поиск:
16)Интерация: T=4;P=6; и Xi<>Xj => CT*OT=(xx66) => Решение нет
17)Интерация: T=7;P=9; и Xi<>Xj => CT*OT=(xx99) => C or O = (0,5)or(1,4)or(2,3)
18)Интерация: T=8;P=4; и Xi<>Xj => CT*OT=(xx44) => C or O = (0,1)or(0,6)or(2,9)or(5,1)or(5,6)or(7,9)
19)Интерация: T=9;P=1; и Xi<>Xj => CT*OT=(xx11) => C or O = (0,7)or(2,5)or(3,4)

20)Интерация: T=7;P=9;C or O = (0,5); и Xi<>Xj и T=T => УСТ*ХОТ=(xx999) => Y or X = (2,6)
21)Интерация: T=7;P=9;C or O = (1,4); и Xi<>Xj и T=T => УСТ*ХОТ=(xx999) => Y or X = (0,6)
22)Интерация: T=7;P=9;C or O = (2,3); и Xi<>Xj и T=T => УСТ*ХОТ=(xx999) => Y or X = (4,6)
Промежуточные итоги:
T=7;
P=9;
C or 0 = (0,5) => Y or X = (2,6) => Г=[1,3,4,8]
C or 0 = (1,4) => Y or X = (0,6) => Г=[2,3,5,8]
C or 0 = (2,3) => Y or X = (4,6) => Г=[1,5,8]
=> Интервалы все определены... можем продолжить так: (Для всех T=7;P=9) ХРУСТ*ГРОХОТ=РРРРРРРРРРР
Проверка на Max:
23)Интерация: C or 0 = (0,5) => 69207*895657=61985733999 => Решений нет
24)Интерация: C or 0 = (1,4) => 69017*894647=61745851999 => Решений нет
25)Интерация: C or 0 = (2,3) => 69427*893637=62042535999 => Решений нет

Продолжаем поиск:
26)Интерация: T=8;P=4;C or O = (0,1); и Xi<>Xj и T=T => УСТ*ХОТ=(xx444) => Решение нет
27)Интерация: T=8;P=4;C or O = (0,6); и Xi<>Xj и T=T => УСТ*ХОТ=(xx444) => Решение нет
28)Интерация: T=8;P=4;C or O = (2,9); и Xi<>Xj и T=T => УСТ*ХОТ=(xx444) => Решение нет
29)Интерация: T=8;P=4;C or O = (5,1); и Xi<>Xj и T=T => УСТ*ХОТ=(xx444) => Y or X = (0,3)or(2,6)or(6,7)
30)Интерация: T=8;P=4;C or O = (5,6); и Xi<>Xj и T=T => УСТ*ХОТ=(xx444) => Решение нет
31)Интерация: T=8;P=4;C or O = (7,9); и Xi<>Xj и T=T => УСТ*ХОТ=(xx444) => Y or X = (0,1)or(0,6)or(1,5)or(5,6)
Промежуточные итоги:
T=8;
P=4;
C or 0 = (5,1) => Y or X = (0,3) => Г=[2,6,7]
C or 0 = (5,1) => Y or X = (2,6) => Г=[3,7,9]
C or 0 = (5,1) => Y or X = (6,7) => Г=[2,3,9]
C or 0 = (7,9) => Y or X = (0,1) => Г=[2,3,5,6]
C or 0 = (7,9) => Y or X = (0,6) => Г=[1,2,3,5]
C or 0 = (7,9) => Y or X = (1,5) => Г=[2,3,6]
C or 0 = (7,9) => Y or X = (5,6) => Г=[1,2,3]
=> Интервалы все определены... можем продолжить так: (Для всех T=8;P=4) ХРУСТ*ГРОХОТ=РРРРРРРРРРР
Проверка на Max:
32)Интерация: C or 0 = (5,1);Y or X = (0,3) => 34018*745358=25355588444 => Решений нет
33)Интерация: C or 0 = (5,1);Y or X = (2,6) => 64218*945658=60728265444>44444444444 => Решение возможно!
34)Интерация: C or 0 = (5,1);Y or X = (6,7) => 74618*945758=70570570444>44444444444 => Решение возможно!
35)Интерация: C or 0 = (7,9);Y or X = (0,1) => 14078*649198=09139409444 => Решений нет
36)Интерация: C or 0 = (7,9);Y or X = (0,6) => 64078*549698=35223548444 => Решений нет
37)Интерация: C or 0 = (7,9);Y or X = (1,5) => 54178*549598=29776120444 => Решений нет
38)Интерация: C or 0 = (7,9);Y or X = (5,6) => 64578*349698=22582797444 => Решений нет
Проверка на Min:
39)Интерация: C or 0 = (5,1);Y or X = (2,6) => 24658*341218=08413753444<44444444444 => Решение возможно!
40)Интерация: C or 0 = (5,1);Y or X = (6,7) => 64758*241618=15646698444<44444444444 => Решение возможно!

Продолжаем поиск:
41)Интерация: T=9;P=1;C or O = (0,7); и Xi<>Xj и T=T => УСТ*ХОТ=(xx111) => Y or X = (2,4)
42)Интерация: T=9;P=1;C or O = (2,5); и Xi<>Xj и T=T => УСТ*ХОТ=(xx111) => Y or X = (0,6)
43)Интерация: T=9;P=1;C or O = (3,4); и Xi<>Xj и T=T => УСТ*ХОТ=(xx111) => Y or X = (0,8)or(2,6)
Промежуточные итоги:
T=9;
P=1;
C or 0 = (0,7) => Y or X = (2,4) => Г=[3,5,6,8]
C or 0 = (2,5) => Y or X = (0,6) => Г=[3,4,7,8]
C or 0 = (3,4) => Y or X = (0,8) => Г=[2,5,6,7]
C or 0 = (3,4) => Y or X = (2,6) => Г=[5,7,8]
=> Интервалы все определены... можем продолжить так: (Для всех T=9;P=1) ХРУСТ*ГРОХОТ=РРРРРРРРРРР
Проверка на Max:
44)Интерация: C or 0 = (0,7);Y or X = (2,4) => 41209*817479=33687492111>11111111111 => Решение возможно!
45)Интерация: C or 0 = (2,5);Y or X = (0,6) => 61029*815659=49778853111>11111111111 => Решение возможно!
46)Интерация: C or 0 = (3,4);Y or X = (0,8) => 81039*714849=57930648111>11111111111 => Решение возможно!
47)Интерация: C or 0 = (3,4);Y or X = (2,6) => 61239*814649=49888290111>11111111111 => Решение возможно!
Проверка на Min:
48)Интерация: C or 0 = (0,7);Y or X = (2,4) => 21479*310209=06662979111<11111111111 => Решение возможно!
49)Интерация: C or 0 = (2,5);Y or X = (0,6) => 01659*312029=00517656111<11111111111 => Решение возможно!
50)Интерация: C or 0 = (3,4);Y or X = (0,8) => 01849*213039=00393909111<11111111111 => Решение возможно!
51)Интерация: C or 0 = (3,4);Y or X = (2,6) => 21649*513239=11111111111=11111111111 => Решение НАЙДЕННО!

Проверяем остальные комбинации:
T=8;
P=4;
C or 0 = (5,1) => Y or X = (2,6) => Г=[3,7,9]
C or 0 = (5,1) => Y or X = (6,7) => Г=[2,3,9]
Х4УС8*Г4ОХО8=44444444444
....

Проверяем остальные комбинации:
T=9;
P=1;
C or 0 = (0,7) => Y or X = (2,4) => Г=[3,5,6,8]
C or 0 = (2,5) => Y or X = (0,6) => Г=[3,4,7,8]
C or 0 = (3,4) => Y or X = (0,8) => Г=[2,5,6,7]
Х1УС9*Г1ОХО9=11111111111
...

Автор: Alex101 28.10.2004, 15:40

Цитата(Guest @ 28.10.2004, 12:23)

объясни пожалуйста почему Т<>0, 1, 5, 6

ГРОХОТ
х
ХРУСТ
Вначале перемножаюся два одинаковых числа (Т) - последняя цифра произведения, это последняя цифра результата ТхТ. Если бы Т=0,1,5,6, то результат оканчивался бы тоже на Т (0,1,5,6).
Поскольку последняя цифра произведения Р (отличная от Т) =>Т<>0, 1, 5, 6

Автор: Elfin 28.10.2004, 16:32

2Girder
Я все таки не совсем понимаю то как ты решил задачу, но вижу что правильно, (я все-таки студент 1го курса) хотелось бы конечено код на паскале

Автор: Elfin 31.10.2004, 13:27

Цитата

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var i, k, k2, l: int64;
x, p, y, c, t, g, o: byte;
str: string[7];

procedure xxx; //значения леаой и праой части выражения, чтоб не путаться - в
//отдельную процедуру
begin
i:=10000000000;
l:=0;
while i<>0 do
begin
l:=l+p*i;
i:=trunc(i/10);
end;
K:=(x*10000)+(p*1000)+(y*100)+(c*10)+t;
k2:=(g*100000)+(p*10000)+(o*1000)+(x*100)+(o*10)+t;
end;

begin
p:=0; //начальные значения
x:=0;
y:=0;
c:=0;
t:=1;
g:=0;
o:=0;
k:=1;
k2:=1;

while (k*k2)<>l do

BEGIN
str:=inttostr(x)+inttostr(p)+inttostr(y)+inttostr©+inttostr(t)+inttostr(g)+inttostr(o);
xxx;

repeat
p:=(p+1) mod 10;
until (p=1) or (p=4) or (p=6) or (p=9);
{не может быть равно этим цифрам потому что либо в записи квадрата числа Т не может быть такой последней цифры либо эта цифра - есть основание самого квадрата}

repeat
t:=(t+1) mod 10; //изменяем Т пока последняя цифра квадрата не равна p
until ((t*t) mod 10)=p;

case p of //а вот здесь уже не знаю как дальше решать!!!
4: begin
c:=1;
o:=0;
end;
end;

writeln(str);
END;

readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

Блин задачу уже скоро сдавать... :stena

Автор: Elfin 1.11.2004, 18:10

Цитата

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var i, k, k2, l: int64; j: integer;
x, p, y, c, t, g, o: byte;

procedure xxx; //Ïîäñ÷èòûâàåì çíà÷åíèÿ ëåâîé è ïðàâîé ÷àñòåé
begin
i:=10000000000;
l:=0;
while i<>0 do
begin
l:=l+p*i;
i:=trunc(i/10);
end;
K:=(x*10000)+(p*1000)+(y*100)+(c*10)+t;
k2:=(g*100000)+(p*10000)+(o*1000)+(x*100)+(o*10)+t;
end;

begin
l:=1;
j:=1100000; //òàê êàê ã<>0 è p<>0
while (k*k2)<>l do
begin
x:=j div 1000000;
p:=(j div 100000) mod 10;
y:=(j div 10000) mod 10;
c:=(j div 1000) mod 10;
t:=(j div 100) mod 10;
g:=(j div 10) mod 10;
o:=j mod 10;
xxx;
j:=J+1;
end;

writeln('* x = ',x);
writeln('* p = ',p);
writeln('* y = ',y);
writeln('* c = ',c);
writeln('* t = ',t);
writeln('* g = ',g);
writeln('* o = ',o);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

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