Šta je novo?

Resite mi zadatak jer sam mnogo lenj i mrzi me da razmisljam

Rista96

Cenjen
Učlanjen(a)
04.08.2012
Poruke
46
Poena
159
u matrici dimenzija NxM sortirati elemente svake vrste u neopadajucem poretku . ja sam radio nesto ali program ne funkcionise .

Screenshot_1.jpg
Screenshot_2.jpg
Screenshot_3.jpg
 
1. ne mrzi me
2. u skoli programiranje imamo isto kao da ga nemamo.
3. ako si dobre volje prepravi zadatak ako ne neka se tema ugasi
 
Evo rešenja. Nadam se da nisi ponavljao :)
Imaš dva propusta u proceduri za sortiranje:
1. Prvi broj u Cells je broj kolone, a drugi je broj vrste. Ti si im zamenio mesta.
2. Petlja po J treba da ide do m-2, a petlja po K do m-1. Prva kolona je 0, a poslednja m-1.
Sada bi trebalo da ti postavim screenshot ispravnog programa, ali sam dobar pa neću :) Drugi put iskopiraj kôd programa koji ne radi, a nemoj da ga slikaš.
Kod:
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,p,k: Integer;
begin
  with StringGrid1 do
  begin
    for i:=1 to n-1 do
    for j := 1 to m-2 do
    for k := j+1 to m-1 do
    if StrToInt(Cells[j,i])>StrToInt(Cells[k,i]) then
    begin
      p:=StrToInt(Cells[j,i]);
      Cells[j,i]:=Cells[k,i];
      Cells[k,i]:=IntToStr(p);
    end;
  end;
end;
 
Nazad
Vrh Dno