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

• #14151 janos1988 addikt

  Új Válasz 2020-04-21 11:48:32 #14151

  Ú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

  Próbáltam magamtól egy mondatot feldarabolni de nem megy, csak vakarom a fejem.

  Ha így csinálom, akkor lemarad a "lenni." rész:

  program felbontas;
var
    s1,s2:string;
    i:integer;
begin
    s1:='Ez egy szep hosszu proba mondat akarna lenni.';
    s2:='';
    for i:=1 to length(s1) do
        begin
            if s1[i] <> #32 then s2:=s2+s1[i]
                            else
                                begin
                                    writeln(s2);
                                    s2:='';
                                end;
        end;
end.

  Ha így próbálom, akkor pedig a ".":

  program felbontas;
var
    s1,s2:string;
    i:integer;
begin
    s1:='Ez egy szep hosszu proba mondat akarna lenni.';
    s2:='';
    for i:=1 to length(s1) do
        begin
            if (s1[i]<>#32) and (i<>length(s1))
                    then s2:=s2+s1[i]
                    else
                        begin
                            writeln(s2);
                            s2:='';
                        end;
        end;
end.

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