Ú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.

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