Jump to content
bartool

[pascal] Sortowaie W Tablicy

Recommended Posts

problem jest taki ze mam zrobic sortowanie w tablicy 100 elementowej...

to co zrobilem i to dziala.. tylko liczby wypisuja sie po kolei jedna obok drugiej...

 

program SortowaniePrzezWstawianie;

uses crt;

var

Tab:array[1..100] of integer;

i,k,tmp:integer;

 

begin

clrscr;

writeln ('Tablica 100 elementowa nieposortowana');

randomize;

for i:=1 to 100 do

begin

Tab:=random(100);

write(Tab,' ');

end;

 

for i:=2 to 100 do

begin

tmp:=Tab;

k:=i-1;

while (k>0)and (tab[k]>tmp) do

begin

Tab[k+1]:=Tab[k];

k:=k-1;

end;

Tab[k+1]:=tmp;

end;

 

Writeln;

writeln ('Tabica jest posortowana:');

for i:=1 to 100 do

write(Tab,' ');

readln;end .

a chcialbym zeby liczby byly wyswietlane w tablicy 10x10 tak jak zrobilem to tutaj

 

Program tablica;

uses crt;

 

var i,j,k : integer;

a : array [1..10,1..10] of integer;

begin

clrscr;

for i := 1 to 10 do

for j := 1 to 10 do

a[i,j] :=random(100)+1;

begin

for i:=1 to 10 do

begin

for j:=1 to 10 do

begin

if a[i,j]<10 then

write (' ',a[i,j],' ')

else

write (a[i,j], ' ');

end;

writeln;

end;

end;

readln;

end.

tylko za cholere nie wiem jak to polaczyc zeby to dzialalo...

z gory dzeki za pomoc..

Share this post


Link to post
Share on other sites

problem jest taki ze mam zrobic sortowanie w tablicy 100 elementowej...

to co zrobilem i to dziala.. tylko liczby wypisuja sie po kolei jedna obok drugiej...

a chcialbym zeby liczby byly wyswietlane w tablicy 10x10 tak jak zrobilem to tutaj

tylko za cholere nie wiem jak to polaczyc zeby to dzialalo...

z gory dzeki za pomoc..

sortujesz tablicę 100 elementową a potem wypisujesz ją w następujący sposób:

 

for i:=1 to 10 do

begin

for j:=1 to 10 do

write(Tab[(i-1)*10+j],' ');

end

writeln

end;

 

 

1.Jeśli zadeklarowałbyś tablicę w sposób normalny dla C,Javy,C# indeksując ją od 0 to kod byłby prostszy

2.nie znam się na Pascalu więc mogą być błędy

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...




×
×
  • Create New...