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

• #14175 janos1988 addikt janos1988 #14174

  Új Válasz 2020-04-22 22:51:47 #14175

  Ú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 #14174 üzenetére

  A temps-re nincs is szükség és 2 komment.

  program szoveg_bontas;

  function bontas(s1:string;var pos1:integer):string;
begin
    bontas:='';
  while (s1[pos1]<>#32) and (pos1<>length(s1)+1) do //a . lemarad ha nincs +1
        begin
            bontas:=bontas+s1[pos1];
            inc(pos1);
        end;
    inc(pos1); //szokoz (#32) atugrasa
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