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

• #14177 vz12 tag janos1988 #14175

  Új Válasz 2020-04-22 23:48:51 #14177

  Ú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

  

  vz12

  tag

  válasz janos1988 #14175 üzenetére

  Én valahogy így csinálnám.
  Extra feature: a szóközök száma akár több is lehet a szavak között.
  A "+1" és "-1" dolgokra nagyon oda kell figyelni.

  program szoveg_bontas;
  const N=100;
  type tomb_type=array[1..N] of string;
  var tomb:tomb_type; i,db:byte; s:string;
  
  procedure bontas(s:string; var tomb:tomb_type; var db:byte);
  var i,pos1:integer; tmp,szo:string;
  begin
  tmp:=s;
  for i:=1 to N do tomb[i]:='';
  db:=0;
  while tmp<>'' do begin
  pos1:=pos(' ',tmp);
  if (pos1>0) then szo:=copy(tmp,1,pos1-1) else szo:=tmp;
  if (szo<>'') then begin
  db:=db+1;
  tomb[db]:=szo;
  end;
  delete(tmp,1,length(szo)+1);
  end;
  end;
  
  begin
  s:=' Ez egy ronda mondat. ';
  bontas(s,tomb,db);
  for i:=1 to db do
  writeln(tomb[i]);
  end.

• #14176 kovisoft őstag janos1988 #14175

  Új Válasz 2020-04-22 23:32:55 #14176

  Ú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

  

  kovisoft

  őstag

  válasz janos1988 #14175 üzenetére

  Emlékeim szerint a Pascal string nem 0-terminált, hanem az elején tárolja a hosszát. Ebben az esetben kicímzel az s1 stringből, amikor pos1=length(s1)+1 lesz:

  while (s1[pos1]<>#32) and (pos1<>length(s1)+1) do

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