Urganch davlat universiteti axborot texnologiyalari kafedrasi

set of 

0..9

; 

 

begin 

  used:=[]; 

  

for V:=

1 

to 

9 do 

begin 

   used:=used+[V]; 

   

for O:=

0 

to 

9 

do if not (O in used) then begin 

    used:=used+[O]; 

      

for L:=

0 

to 

9 

do if not (L in used) then begin 

        used:=used+[L]; 

        

for F:=

0 

to 

9 

do if not (F in used) then begin 

          used:=used+[F]; 

          

for I:=

0 

to 

9 

do if not (I in used) then begin 

            used:=used+[I]; 

            

for A:=

0 

to 

9 

do if not (A in used) then begin 

              used:=used+[A]; 

               

for T:=

0 

to 

9 

do if not (T in used) then begin 

                  used:=used+[T]; 

                  

for M:=

0 

to 

9 

do if not (M in used) then begin 

                    used:=used+[M]; 

                    

for R:=

0 

to 

9 

do if not (R in used) then  

                      if 

(((

longint

(V)*

10

+O)*

10

+L)*

10

+V)*

10

+O+((

longint

(F)*

10

+I)*

10

+A)*

10

+T=(((

longint

(M)*

10

+O)*

10

+T)*

10

+O)*

10

+R 

then  

                      

writeln(V,O,L,V,O,

'+'

,F,I,A,T,

'='

,M,O,T,O,R); 

                      used:=used-[M] 

                    

end; 

                    used:=used-[T] 

                  

end; 

                  used:=used-[A] 

                 

end; 

---

                 used:=used-[I] 

                

end; 

                used:=used-[F] 

               

end; 

               used:=used-[L] 

             

end; 

             used:=used-[O] 

            

end; 

            used:=used-[V] 

           

end; 

          

END.

 

Zamonaviy  kompyuterda  ushbu  dasturni  bajarish  bir  daqiqadan  kam  vaqt  talab  etadi. 

Shuning  uchun  agar  bir  marta  yechimni  olish  kerak  bo‘lsa  va  yana  keying  optimallashtirish 

uchun  20  daqiqa  yo‘qotish  maqsadga  muvofiq  emas.  Biroq,  agarda  yanada  tezroq  dastur  kerak 

bo‘lsa, u holda tanlovni  kamaytirish uchun zahira hali bor. Jumladan, VOLVO+FIAT=MOTOR 

sharti ko‘rinishi hali ishlatilgan emas. Uni qarab chiqib, quyidagilarni ta’kidlaymiz: 

  M=V+1,  chunki  FIAT  qo‘shiluvchining  to‘rt  raqamli,  MOTOR  summasining  beshinchi 

razryadi  VOLVO  ning beshinchi razryadiga teng emas, ya’ni  ko‘chish ro‘y berdi. Bu M 

bo‘yicha  tanlovni  o‘tkazmaslikka  imkon  beradi,  buning  o‘rniga  V  ning  har  bir  qiymati 

bilan V+1 qiymati ham ishlatilganini ta’kidlash kerak. 

  F=9,  L+I>=10,  chunki  VOLVO  va  MOTOR  ning  to‘rtinchi  razryadlari  mos  tushadilar. 

FIAT qo‘shiluvchining to‘rtinchi razryadi katta hisoblanadi va 0 ga teng bo‘lishi mumkin 

emas;  demak,  F=9  uchinchi  razryad  esa  ko‘chishni  beradi.  Demak  qolgan  barcha 

o‘zgaruvchilar 9 ga teng bo‘la olmaydi. 

  O≠0,  T≠0,  R≠  (O+T)  mod  10,  chunki  eng  kichik  razryadga  ko‘chish  bo‘lishi  mumkin 

emas,  summaning  kichik  raqamli  ikkala  qo‘shiluvchilarning  kichik  raqamlardan  farq 

qiladi. Shunday qilib, R tanlovsiz hisoblanadi. 

V ikkita band (V va M) raqamlarni, O va T o‘zgaruvchilar esa uchta band (R,O va T) raqamlarni 

aniqlab  bersa,  V,  O  va  T  lar  uchun  sikllarni  tashqi  sathlarga  chiqarib,  qiymatlarning  katta 

to‘plamlarni  imkon  darajada  ertaroq  tashlab  yuborishga  imkon  beradi.  Qayd  etilgan 

kamaytirishlar  quyidagi  dasturda  amalga  oshirilgan  (1.2-listing).  Tajribalar  ushbu  dastur 

oldingisiga nisbatan taxminan 500 marta tezroq ishlashini ko‘rsatadi. 

1.2 optimallashgan tanlov 

var V,O,L,F,I,A,T,M,R:

byte

; 

  used: