Tal algoritme

bogstavsalgoritme skulle den vist have heddet ;-)

minder lidt om ideen i et hacjer program ..ggg

hacker..

Sikkert, jeg prostituerer mig heller ikke for 300 p. fra et brugernavn, der kun er oprettet for at stille det her spg.! - og efter al sandsynlighed aldrig bliver anvendt igen!!

:)
I er rigtig glade for at hjælpe folk hva\' *GGG*
er med på en lytter, kunne måske bruges fornuftigt en dag!

hør nu lige her.

Jeg er blevet spillet opgaven af min IT lærer, men desværre har det ikke kunnet lykkedes mig at udregne algoritmen, derfor prøver jeg nu Eksperten pga. at jeg har hørt meget godt om stedet her.

Hvis jeg var en såkaldt hacker og ville bruge den til noget bestemt ulovligt formål, så ville jeg nok også være sej nok til at udregne den. Og hvis jeg ikke var, så ville jeg nok have anvendt et af de mange hundreder programmer af denne type der findes rundt omkring.

Det eneste der insteresserer mig i denne algoritme er matematikken bag den.

Håber det kan give lidt forståelse for sagen.

- Spala

jeg staver sørme godt i aften .. der skulle selvfølgelig have stået Stillet istedet for Spillet *GG* :)

ok jeg kan lave den i C, det er det nemmeste, jeg kan kender desværre ikke delphi kode.. måske en kan oversætte den og vi kan dele de her point?

#include \"string.h\"
#include <iostream.h>

void getSillyString(char* streng,int niveau){
    char tmp[10];
    char chr;
    if(niveau==9){
        cout << streng << endl;;
        return;
    }
    else{
        strcpy(tmp,streng);
        chr = \'a\';
        for(int i = 0; i < 26 ; i++){
            //tmp[0] = chr;
            tmp[niveau] = chr;
            getSillyString(tmp,niveau+1);
            chr = char(int(chr) + 1);
        }
    }
}

int main(int argc, char* argv[])
{
    getSillyString(\"        \",0);
    return 0;
   
}


Det er fuldt ud testet og det virker.
Det gør ikke andet end at skrive alle tallene ud..
som du nok har gættet tager det ret lang tid :)


Jonas

hovsa den der
//tmp[0] l= chr;
skulle have være slettet den smuttede

grunden til at jeg kan lide C er at jeg kan typecaste min char til en int og lægge en til, så ved jeg at jeg får det næste bogstav..
ahh det er lækkert..
det kan man hverken i VB eller delphi :)

hmm. nemt hva\'?
kunne det ikke ha\' været lavet i JAVA elller PHP ?

jo, det kunne let have være lavet ihvert sprog.
problemet er bare at cykle fra \'a\' til \'b\' til \'c\'
det er så dejligt nemt i c/c++ som jeg gjorde foroven

man kunne jo \'smide\' a , b,c osv. ind i array\'et føst, så det kunne jo ikke været et problem! :)
NiceWork!

Ibs > Delphi kode er 99,9% lig med pascal

9 cifre i base 27  bliver 27**9 = 7.625.597.484.987 og så lidt mindre fordi blanktegn kun må være foranstillede.

Jeg tror ikke på du har udskrevet alle tallene. :-))

I delphi kan du til gengæld skrive
var
c:Char;

begin
  for c := \'a\' to \'z\' do
      // et eller andet

hej

tak for hjælpen, jeg skulle mene at jeg godt kan konvertere koden, så jeg kigger lige på det.

btw. så kan man sagtens udføre denne funktion i Delphi :

chr = char(int(chr) + 1);

Den hedder såmænd bare:

chr := char(ord(chr) + 1);

men hvis nogen skulle have lyst til at konvertere koden så er jeg selvfølgelig villig til at dele pointene 50/50 imellem jer 2.

en form en knap og et memofelt, og så det følgende kode :

procedure getSillyString(s : String; niveau : Integer);
var
  tmp : array [0..10] of char;
  chr : Char;
  i : Integer;
begin
  if niveau=9 then
  begin
    Form1.Memo1.Lines.Add(s);
    exit;
  end
  else
  begin
    move(s[1],tmp[0],10);
    chr := \'a\';

    for i := 0 to 25 do
    begin
      tmp[niveau] := chr;
      getSillyString(tmp,niveau+1);
      chr := char(integer(chr) + 1);
    end;
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
getSillyString(\'        \',0);
end;

Jens B

Her er en simpel algoritme.
Jeg skriver kun fra a-f, og jeg går kun kombinationerne igennem 3 gange(3 løkker), da udskriften ellers ikke er særlig fed at vente på :


procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c:char;
  i:integer;
begin
  for a:= \'a\' to \'f\' do
  begin
    for b:= \'a\' to \'f\' do
    begin
      for c:= \'a\' to \'f\' do
      begin
        memo1.Lines.Add(string(a+b+c));
      end;//c
    end;//b
  end;//a

end;


Ps. hvis den ikke skal starte med aaaaaaaaa (når du har rettet den til 9 løkker), men i stedet a osv., må du dele den op i 9 bidder, hvor den \'dybeste\' kommer til sidst.


prøv den med en knap og en memo!!!

Takker for det hurtige svar, jeg har valgt at give lbs halvdelen af pointene da hans algoritme er mest gennemført, og borrisholt den anden halvdel for at have oversat den som lovet.

Cool, tak :)