Anonymní profil Anonymní uživatel – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Anonymní uživatel – Programujte.comAnonymní profil Anonymní uživatel – Programujte.com

 

Příspěvky odeslané z IP adresy 89.102.247.–

David
Pascal › Posun jmen
17. 5. 2011   #142170

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

Anonymní uživatel
Pascal › Posun jmen
17. 5. 2011   #142166

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

Anonymní uživatel
Pascal › Posun jmen
17. 5. 2011   #142162

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);
}
}

David
Pascal › Posun jmen
11. 5. 2011   #141808

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...

David
Pascal › Posun jmen
11. 5. 2011   #141804

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.

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032021 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý