Új hozzászólás Aktív témák

• #715 b14 senior tag rOwLeY #714

  Új Válasz 2005-06-06 22:29:08 #715

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  b14

  senior tag

  válasz rOwLeY #714 üzenetére

  Ek engem is felkereshetsz msnen.

• #698 rOwLeY őstag rOwLeY #697

  Új Válasz 2005-06-06 19:46:50 #698

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  rOwLeY

  őstag

  válasz rOwLeY #697 üzenetére

  Error 26: Type Mismatch...pontosítva....

• #696 b14 senior tag rOwLeY #695

  Új Válasz 2005-06-06 18:20:08 #696

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  b14

  senior tag

  válasz rOwLeY #695 üzenetére

  Minek kellene a pas? Nem megy a copy+paste?

• #694 b14 senior tag rOwLeY #693

  Új Válasz 2005-06-06 16:23:10 #694

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  b14

  senior tag

  válasz rOwLeY #693 üzenetére

  uses crt;
  var i, j ,k:integer; s:array [1..100] of string; w:string;
  begin
  clrscr;
  i:=0;
  repeat
  inc(i);
  write('Az '+i+'. érték: ');readln(s[ i ]); {A *-gal lehet megszakítani a bevitelt}
  until s[ i ]<>'*';
  k:=i;
  for i:=1 to k do
  for j:=1 to i-1 do
  if(s[j] > s[j+1] then { csere }
  begin
  w := s[j];
  s[j] := s[j+1];
  s[j+1] := w;
  end;
  clrscr;
  for i:=1 to k do writeln('Sorba rakva az '+i+'érték: '+s[ i ]);
  end.
  
  [Szerkesztve]

• #693 rOwLeY őstag rOwLeY #692

  Új Válasz 2005-06-06 15:07:02 #693

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  rOwLeY

  őstag

  válasz rOwLeY #692 üzenetére

  Ha nem nagy kérés le tudnád írni az egész progit?! pls!
  THX!Előre is!

• #691 Sianis addikt rOwLeY #689

  Új Válasz 2005-06-06 07:08:10 #691

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Sianis

  addikt

  válasz rOwLeY #689 üzenetére

  Találtam neked egy kódot is:
  

  
  procedure rendez;
  var i, j: integer;
  begin
    for i:=1 to meret do
      for j:=1 to i-1 do
        if(t[j] > t[j+1] then { csere }
        begin
          w := t[j];
              t[j] := t[j+1];
             t[j+1] := w;
        end;
  end;
  

  
  
  A rendezés neve buborék rendezés, tehát ami nem megfelelő az jön fel, mint a buborék. Jó kis találmány ez bizony! Ha frodítod a feltételt, akkor fordítva rendez. Nagyon egyszerű! Remélem neked beválik.

• #690 Sianis addikt rOwLeY #689

  Új Válasz 2005-06-06 06:50:31 #690

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Sianis

  addikt

  válasz rOwLeY #689 üzenetére

  Szöveget is nyugodtan kezelheted úgy mint a számokat! Tehát van =, >, < . Így már csak egy egyszerű növekedő rendezést kell csinálnod, remélem megy.

Új hozzászólás Aktív témák