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

• #14179 janos1988 addikt janos1988 #14178

  Új Válasz 2020-04-23 16:41:54 #14179

  Ú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

  

  janos1988

  addikt

  válasz janos1988 #14178 üzenetére

  Kisebb sikerélmény, sikerült megoldani a szóközöket.

  program szoveg_bontas;
function bontas(s1:string;var pos1:integer):string;
begin
    bontas:='';
    while (s1[pos1]<>#32) and (pos1<>length(s1)+1) do
        begin
            bontas:=bontas+s1[pos1];
            inc(pos1);
        end;
    if s1[pos1]=' ' then inc(pos1);
end;
var
    s2,s3:string;
    pos2,t,i:integer;
    tomb:array [1..10] of string;
begin
    pos2:=1;
    t:=1;
    s2:='   Ez   megint egy szep hosszu proba    mondat.';
    
    repeat
        s3:=bontas(s2,pos2);
        if s3<>'' then
                   begin
                     tomb[t]:=s3;
                     inc(t);
                   end;
    until pos2>length(s2);
    
    for i:=1 to t do writeln(tomb[i]);
end.

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