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

• #14174 janos1988 addikt

  Új Válasz 2020-04-22 22:19:01 #14174

  Ú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

  Viszont elkészült a szétbontó program. Próbáltam máshogy és/vagy egyszerűbben megoldani, de nem ment, ennyire telik tőlem egyelőre.

  program szoveg_bontas;

function bontas(s1:string;var pos1:integer):string;
var
    temps:string;
begin
    temps:='';
    while (s1[pos1]<>#32) and (pos1<>length(s1)+1) do 
        begin
            temps:=temps+s1[pos1];
            inc(pos1);
        end;
    bontas:=temps;
    inc(pos1);
end;

var
    s2:string;
    pos2,t,i:integer;
    tomb:array [1..10] of string;

begin
    pos2:=1;
    t:=0;
    s2:='Ez megint egy szep hosszu proba mondat.';
    repeat
        inc(t);
        tomb[t]:=bontas(s2,pos2);
    until pos2>=length(s2);
    for i:=1 to t do writeln(tomb[i]);
end.

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