Anonymní profil David – Programujte.com

To KIIV :
OK beru na vědomí...jen jsem myslel, že by mi tu někdo mohl pomoci...promiňte, že jsem otravoval...

Asi ano...:/ přeci jenom se pohybuje na vysoké úrovni...udělal mi nástřel algoritmu, jen bych ho teď potřeboval přepsat do syntaxu pascalu...:(...nemohl by mu tady někdo hodný pomoci...prosím

Díky za reakce...
Tak jsem se obrátil trochu na programátora, který bohužel v Pascalu dělal naposledy před 10 lety :)) trochu mi s tim poradil...napsal mi vlastní algoritmus programu tak, jak by to mělo fungovat, problém je ten, že netrefil syntax pascalu, mohl by mi tady někdo pomoci přepsat do správné syntaxe? díky moc

program Project1;



{$APPTYPE CONSOLE}



uses

  SysUtils;



var vektor: array[90] of String;

var posun: Integer;

var pocetJmen: Integer;

var i: Integer;



function posunNahoru(vektor, pocetJmen) {

    var tmp: String;

    var i: Integer;



    tmp = vektor[0];

    for (i =0; i< pocetJmen-1; i++) {

        vektor[i] = vektor[i+1]; // posun o jednu pozici nahoru

    }

    vektor[pocetJmen] = tmp;

    return vektor;

}



function posunDolu(vektor, pocetJmen) {

    var tmp: String;

    var i: Integer;



    tmp = vektor[pocetJmen];

    for (i =pocetJmen; i> 0; i--) {

        vektor[i] = vektor[i-1]; // posun o jednu pozici dolu

    vektor[0] = tmp;

    return vektor;

}



if (posun>0) {

    for (i=1; i<=posun; i++) {

        posunNahoru(vektor)

    }

}

else {

    posun = abs(posun); // absolutni hodnota

    for (i=1; i<=posun; i++) {

        posunDolu(vektor);

    }

}

To JoDiK :
nevím :D v podstatě jsem přihlížel když tento program vznikal..ted ho potřebuju předělat na ty jména...

Zdravím všechny, děkuji za reakce...s kamarádem jsem si sednul a trochu popracoval...když jsem se byl zeptat jestli je to zprávně, tak neni. Udělal jsem to, že se šoupou jen písmena ne jména..špatně jsem to pochopil a ještě ten posun moc nefunguje. Měli by se šoupat jména např. Pepa, Karel, Jana atd. vždy o jeden index a poslední zpět na první a naopak..šlo by to nějak rychle upravit an ty jména? tady je můj program: díky

program Posun_jmen;



{$APPTYPE CONSOLE}



uses

  SysUtils;

const c = 90;

var

  a : array [1..c]of string;

  p, h : string;

  i, n, m : integer;



// zacatek programu

Begin



// zadani delky vektoru

writeln('zadejte delku vektoru (1-',c,')');

readln(n);

writeln;



// naplneni a vypsani vektoru

randomize;

for i := 1 to n do

  begin

    a[i] := char(random(25)+65);

    write(a[i]);

  end;



// posun vekotoru o "m"

writeln;

writeln;

writeln('zadejte cele cislo; zaporne posouva vektor doleva kladne doprava');

readln(m);

writeln;

m := m mod n;



if m>=0

then



// posun pro kladne "m"

  begin

    for i := n downto 1+m do

      begin

        h       := a[i];

        a[i]    := a[i-m];

        a[i-m]  := h;

      end

  end



else

// posun o zaporne "m"

  begin

  m := -m;

    for i := 1 to n-m do

      begin

        h       := a[i];

        a[i]    := a[i+m];

        a[i+m]  := h;

      end;

  end;



// vypsani posunuteho vektoru

for i := 1 to n do

  write(a[i]);



// finis

writeln;

writeln;

writeln('pro ukonceni stiskni ENTER');

readln;

end.