• Здраво и добредојдовте на форумот на IT.mk.

    Доколку сеуште не сте дел од најголемата заедница на ИТ професионалци и ентузијасти во Македонија, можете бесплатно да се - процесот нема да ви одземе повеќе од 2-3 минути, а за полесна регистрација овозможивме и регистрирање со Facebook и Steam.

Pomosh, Niza

Статус
Затворена за нови мислења.
  • Ја почнал/а темата
  • #1

Aleks

Gaining Experience
18 мај 2007
5,748
288
Epa vaka, sakam da ja sortiram nizata za koja kje zadadam vrednosi ... ama imam mal problem. Nesaka da sortira neshto .. eve go kodot:
Код:
Program TeSt;

VAR
  Niza:Array[1..200] OF Integer;
  A,A2,A3,B,N,tmp:Integer;

BEGIN
   Write('Kolku Elementi kje ima nizata? ');
   ReadLn(N);
     FOR A:=1 TO N DO
        BEGIN
          Write('Vnesete ja vrednosta za elementot so reden broj "',A,'" :');
          ReadLn(Niza[A]);
        END;

   FOR A:=1 TO N DO
     WriteLn(Niza[A]);

   FOR A2:=1 TO N-1 DO
      BEGIN
        FOR A3:=1 TO N DO
          BEGIN
            IF Niza[A] > Niza[A+1] THEN
              BEGIN
                Niza[A]:=tmp;
                Niza[A]:=Niza[A+1];
                Niza[A+1]:=tmp;
                WriteLn(Niza[A],' -- ',Niza[A+1])
              END;

          END;

      END;



{   WriteLn('Sredenata Niza kje e:');
   FOR A:=1 TO N DO
       Write(Niza[A],' ');
}


END.
Kje mozhe nekoj da me isprave?
PS: Pochetnik sum :)
 

Alexandar

Gaining Experience
21 мај 2007
2,514
90
Program TeSt;

VAR
Niza:Array[1..200] OF Integer;
A,A2,A3,B,N,tmp:Integer;

BEGIN
Write('Kolku Elementi kje ima nizata? ');
ReadLn(N);
FOR A:=1 TO N DO
BEGIN
Write('Vnesete ja vrednosta za elementot so reden broj "',A,'" :');
ReadLn(Niza[A]);
END;

FOR A:=1 TO N DO
WriteLn(Niza[A]);

FOR A2:=1 TO N-1 DO
BEGIN
FOR A3:=1 TO (N-A2) DO
BEGIN
IF Niza[A3] > Niza[A3+1] THEN
BEGIN
Niza[A3]:=tmp;
Niza[A3]:=Niza[A3+1];
Niza[A3+1]:=tmp;
WriteLn(Niza[A3],' -- ',Niza[A3+1])
END;

END;

END;



{ WriteLn('Sredenata Niza kje e:');
FOR A:=1 TO N DO
Write(Niza[A],' ');
}


END.
 
  • Ја почнал/а темата
  • #3

Aleks

Gaining Experience
18 мај 2007
5,748
288
Код:
Program TeSt;

VAR
  Niza:Array[1..200] OF Integer;
  A,C,B,N,tmp:Integer;

BEGIN
   Write('Kolku Elementi kje ima nizata? ');
   ReadLn(N);
     FOR A:=1 TO N DO
        BEGIN
          Write('Vnesete ja vrednosta za elementot so reden broj "',A,'" :');
          ReadLn(Niza[A]);
        END;

   FOR B:=1 TO N-1 DO
      BEGIN
        FOR C:=1 TO (N-B) DO
          BEGIN
            IF Niza[C] > Niza[(C+1)] THEN
              BEGIN
                Niza[C]:=tmp;
                Niza[C]:=Niza[(C+1)];
                Niza[(C+1)]:=tmp;

              END;

          END;

      END;



   WriteLn('Sredenata Niza kje e:');
   FOR A:=1 TO N DO
       Write(Niza[A],' ');



END.
pak ne rabote kako shto treba.. :(
 

Arhil

Intern
8 август 2007
102
1
Epa vaka, sakam da ja sortiram nizata za koja kje zadadam vrednosi ... ama imam mal problem. Nesaka da sortira neshto .. eve go kodot:
Код:
Program TeSt;

VAR
  Niza:Array[1..200] OF Integer;
  A,I,J,B,N,tmp:Integer;

BEGIN
   Write('Kolku Elementi kje ima nizata? ');
   ReadLn(N);
     FOR I:=1 TO N DO
        BEGIN
          Write('Vnesete ja vrednosta za elementot so reden broj "',I,'" :');
          ReadLn(Niza[I]);
        END;

   FOR I:=1 TO N DO
     WriteLn(Niza[I]);

   FOR I:=1 TO N-1 DO
      BEGIN
        FOR J:=I+1 TO N DO
          BEGIN
            IF Niza[I] > Niza[J] THEN
              BEGIN
                Niza[I]:=tmp;
                Niza[I]:=Niza[J];
                Niza[J]:=tmp;
                
              END;

          END;

      END;



{   WriteLn('Sredenata Niza kje e:');
   FOR I:=1 TO N DO
       Write(Niza[I],' ');
}


END.
Kje mozhe nekoj da me isprave?
PS: Pochetnik sum :)

HACK THE PLANET!!!:p
 

Alexandar

Gaining Experience
21 мај 2007
2,514
90
... мала грешка во кодот на Arhil

BEGIN
Niza:=tmp;
Niza:=Niza[J];
Niza[J]:=tmp;

END;

... а треба

BEGIN
tmp:=Niza;
Niza:=Niza[J];
Niza[J]:=tmp;

END;
 
Статус
Затворена за нови мислења.

Нови мислења

Последни Теми

Статистика

Теми
43,571
Мислења
823,634
Членови
28,076
Најнов член
FikusKaktus
На врв Дно