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

• #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]

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