Anonymní profil Janička – Programujte.com

joudicek díky snažím se to pochopit ze všech sil, ale asi je to marné :-(((.


Třeba když mám teda pole,

p:array[1..16] of integer ; vyplním ho náhodnými čísly

a provedu bubble sort;

for i:=1 to 15 do
for j:=1 to 16-i do
if p[j]>p[j+1] then
begin
pom:=p[j];
p[j]:=p[j+1];
p[j+1]:=pom;
end;

i mě prochází polem od 1 do 15
jakto že v bublinovce je zase j, kde jsou přiřazený hodnoty j:=i.
nebo jak to ví že j:=i.

Nebo takhle k čemu je ta proměnná j dobrá k čemu slouží ? Proč si nejde vystačit jenom s i.

Třeba když mám to pole p o devíti prvcích tak i definuje jednotlivý pozice ? Je to pravda ?

Nevím co je to j, co znamená jestli jsou to indexy pole v ??

Myslela jsem, že j se používá jen v maticích, jako sloupec, ale tady je použit i v poli, absolutně to nechápu. :-((((

Vysvětlíte mě i toto ?


for j := 1 to 9 do //9x projdeme pole a hledame minimalni cislo,
begin //ktere ulozime do promene minc
minc := 10; //pocatecni hodnota na zacatku kazdeho pruchodu
for i := 1 to 9 do //musi byt vetsi nebo rovna max. cislu v poli
if p[i]<minc then //kdyz prvek v poli je mensi nez dosud nalezeny

Moc to nechápu, mám teda pole p s indexem jako i.
Ale tady už je nějaký cyklus - for j := 1 to 9 do pro j, to j je kde, nebo co je to ?

Děkuji i joudickovi za velkou pomoc.

Pardon, moc se Houzcovi omlouvám , měla jsem chybu v překladači, snad mě to odpustí. :-))

Díky Honzc fakt za pomoc, akorát to nefunguje 100%. :-((

Třeba pole 4 8 4 8 6 0 6 2 8 jeho indexy seřadí takto
6 8 1 3 5 7 2 4 9

Moc dík, kluci jste fajn...............

Ahoj, mám následující zadání:

Napište program který:

1. Naplní pole délky 9 náhodnými sudými čísly z intervalu 0-8.
2. Pole vypíše na obrazovku na jeden řádek, prvky oddělí mezerou.
3. Na nový řádek vypíše indexy prvků pole oddělené mezerou v pořadí, které je dáno
vzestupným uspořádáním hodnot pole.


Tady mám bod 1. a 2., ale s 3. si nevím rady, pomůže někdo ?

uses
SysUtils;
var p:array[1..9] of integer;
i,j,k : integer;

begin
randomize;
for i:= 1 to 9 do
p[i]:=random (5)*2;

for i:= 1 to 9 do
write (p[i],' ');
readln;
end.

Mám to, mám to !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

p[i]:=random (99)*2+1;


Mám to, mám to !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Mám to, mám to !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Mám to, mám to !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Díky, thank.............................................................

Hele a jak by to bylo s lichými čísly ?????????

Quiark díky moc, na tohle bych nepřišel ani za 100 LET.

Ahoj, mám problém při náhodném generování pole o sudých číslech.
Má to být pole o velikosti 10 prvků, ale pokaždé při spuštění mě to vypisuje pole o délky jaké
se mu zachce, někdy 3 prvky, jindy 5 prvků. Neví někdo jak tohle ošetřit ??

uses
SysUtils;
var p:array[1..10] of integer;

i,j,k,l : integer;


begin
randomize;
for i:= 1 to 10 do
p[i]:=random (99)+1;

for i:= 1 to 10 do
if p[i] mod (2) = 0 then
write(p[i]:3) ;

readln;
end.

Díky Honzc, skutečně to funguje, akorát nechápu toto

s:array[1..2] of string;

a tohle

if k=8 then
s[1] := ' p[8]=a['+inttostr(i)+','+inttostr(j)+'] =';
if k=9 then
s[2] := ' p[9]=a['+inttostr(i)+','+inttostr(j)+'] =';

Ahoj, mohl by mě někdo napsat jednoduchý kód jak generovat náhodná čísla v poli a matici. Zkouším snad všecko ale vůbec mě to nejede. Díky

Ahoj, potřeboval bych pomoc s následujícími úkolem.

- Vygenerujte jednorozměrné pole a otočte pořadí jeho prvků.


mám teto zd.kód


var
pole :array [1..50] of Byte;
a,b, N: Byte;
pomoc: Byte;

begin
Writeln('Vloz rozmer pole');
Readln(N);
Randomize;
for a := 1 to N do
pole [a] := Random(255);
for a := 1 to N do
Write (pole [a] : 3,' ');
Writeln;


// for a := 1 to N div 2 do
// begin
// pomoc :=pole [a];
// pole [a] :=pole [N+1-a];
// pole [N+1-a] := pomoc;
// end;


for b := 1 to N do
for a:= 1 to N - 1 do
if pole [a] < pole [a + 1] then
begin
pomoc :=pole [a];
pole [a] :=pole [a+1];
pole [a+1] := pomoc;
end;


for a := 1 to N do
write(pole[a]:3,' ' );
Readln;
end.



Jen to nefunguje 100%, ten druhý řádek neobrací čísla 100%, upravil by to někdo tak aby to fungovalo správně, please.




nevím jakna to :-(

Ahoj, doufám, že mě pomůže nějaký odborník s aplikací, mám tento zdrojový kód který porovnává dvě čísla podle velikosti a vypisuje vždy to větší číslo, potřeboval bych to ale upravit tak, aby ty dvě čísla seřadil od menšího po větší a vypsal na obrazovku, zkoušel jsem už nevím co a nejde mě to.


var a,b: integer;

begin
write('Napis prvni cislo: '); readln(a);
write('Napis druhe cislo: '); readln(b);
if a>b then
write('Vetsi cislo je ',a)
else
if a=b then write('Cisla jsou stejna')
else write('Vetsi cislo je ',b);
readln;
end.