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

• #370 devast addikt Katka #365

  Új Válasz 2004-10-30 01:42:41 #370

  Ú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

  

  devast

  addikt

  válasz Katka #365 üzenetére

  Itt a programod, ha kérdezik buborékrendezéssel csináltad Hja, és nem ártana alapszinten megtanulni programozni Ha már 1x olyan suliba jársz...
  
  program sorbarendez;
  uses crt;
  var
  i,j:integer;
  szavak : array[1..200] of string;
  temp,szo : string;
  bevitel : boolean;
  begin
  clrscr;
  i:=1;
  bevitel:=false;
  repeat
  writeln('Kerem az ',i,'. szot!');
  readln(szo);
  if length(szo) > 0 then begin
  szavak:=szo;
  i:=i+1;
  end
  else bevitel:=true;
  until bevitel;
  j:=1;
  while j<i do begin
  if szavak[j+1] < szavak[j] then begin
  temp:=szavak[j];
  szavak[j]:=szavak[j+1];
  szavak[j+1]:=temp;
  j:=1;
  end
  else j:=j+1;
  end;
  write('A szavak sorrendben: ');
  for j:=1 to i do write(szavak[j],' ');
  readln;
  end.

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