Pascal uzdavinys

sveiki. taigi man reikia parasyti pograma kuri is skaiciau sukeistu du skaicius jame. pvz skaicius 2569. man reikia kad isspausdinu 5296 5269 5962 5926 5629 5692 2569 2596 2659 2695 2965 2956 6529 6592 6952 6925 6295 6259 9256 9265 9625 9652 9526 9562. pirmiausia reikia issiskaidyt skaiciu kaip suprantu. viska ok su sita dalim. o kaip poto sudaryt tuos visus variantus? gal yra kazkokia speciali fukcija ar kazkas panasaus?

Pagal tavo pateiktą pavyzdį, programa turi sukeisti ne 2 skaičius, o išvesti visas įmanomas skaičiaus skaitmenų kombinacijas. Patikslink uždavinį.

cia ne kazicko uzdavinys 2011 m?

turi isvest visus skaicius kurie gautusi sukeitus 2 jo demenis

Tai bent jau įdėk kodą kiek pats pasidarei.

kodo dar nerases nes net neysivaizduoju kaip padayt kad keistu vietom. isskaidymas lengvas. while s>0 do mod 10 o poto div 10

kodo dar nerases nes net neysivaizduoju kaip padayt kad keistu vietom. isskaidymas lengvas. while s>0 do mod 10 o poto div 10

čia tik keturženkliams ar visiems?

visiems

Išsiskaidai skaičių į masyvą ir išvedinėji sukeitęs skaitmenis vietomis. Išvedimui naudoji ciklą cikle.

o ka tuose cikluose rasyt? pirma rasai pvz for i:=1 to n n-is kiek sudarytas skaicius. o kitam ka?

Pirmas nuo i:=1 to n. Jame iškart antras ciklas nuo o:=i to n. Antram cikle išvedimas sukeitus m ir m[o] narius vietomis.

Pirmas nuo i:=1 to n. Jame iškart antras ciklas nuo o:=i to n. Antram cikle išvedimas sukeitus m ir m[o] narius vietomis.

taip pat daryčiau, bet gal naudočiau char'ų masyvą,

o šiaip pasidaryti funkciją keisti(i,o), kuriuoje if'ą įmesti, kad jeigu skaičiai vienodi nieko nedarytu

jau šiandien mano galva neneša :D o taip kaip ta sukeitima daryt? taigi gali keistis 1 su 3 arba su kokiu net 4 ar 7. ir kaip juos visus aprasyt?

Na, išvedimui pačiam galima dar ir trečią ciklą įdėt. Ciklas nuo p:=1 iki n. Cikle du if'ai vienas kitame. Abu jie tikrina ar neprieitas sukeičiamas skaičius (i arba o, kiekvienam po atskirą ciklą). Jei prieinamas keičiamas skaičius (pvz. i) vietoj jo išvedamas kitas skaičius, su kuriuo keičiama (šiuo atveju o) ir atvirkščiai. Abiejų if'ų else paprasčiausiai išveda m[p]. Išvedinėjama po vieną skaitmenį.

bet as nezinau kuriuos reik sukeist. pograma automatiskai turi sukeist. arba mokytojas salygos nedasake iki galo.

Mano apibūdinta programa išves visus galimus dviejų skaitmenų sukeitimus.

o tai kaip tas tikrinimas turi tada vykt? nesuprantu as. ir dar. tie m ir m[o] masyvai identiski turi but?

m tai skaičiaus skaitmenų masyvas. Tikrinimas:

for i:=1 to n do
for o:=i to n do
 begin
  for p:=1 to n do
   if p=i then
 	write(m[o])
else if p=o then
 	write(m[i])
   else
 	write(m[p])
  writeln;
 end;

taip pat daryčiau, bet gal naudočiau char'ų masyvą,

 

o šiaip pasidaryti funkciją keisti(i,o), kuriuoje if'ą įmesti, kad jeigu skaičiai vienodi nieko nedarytu

A koks skirtumas charu ar intu, vis tiek duomenys taip pat saugomi (jei apie 8bit inta kalbam)... :-)

jeigu skaičiai bet kokio ilgio, tai man atrodo be rekursijos čia nepavyks apsieiti, jeigu tik su keturženkliais, tai nieko sudėtingo nėra. Nes norint perrinkti visus variantus su dviem ciklais tikrai nepavyks ;) Rekursija - tai kai funkcija iškviečia save.

rekursijos pvz, skaičiuojant faktorialą:

function fact (int n) {
    if (n == 1) {
        return n;
    }
    else {
        return n * factorial(n - 1);
    }
}

A koks skirtumas charu ar intu, vis tiek duomenys taip pat saugomi (jei apie 8bit inta kalbam)... :-)

string'ą/int'ą reikėtų skaidyti skaitmėnimis, o charų masyvui priskirus string'ą prieš tai sužinojus string'o ilgį lengvai galima juo naudotis ir nereikia sukti bereikalingų ciklų ;)