fork download
  1. program irteszt;
  2. uses crt,dos;
  3. var
  4. s1:string;
  5. sb:array[0..255]of byte absolute s1;
  6. xk:byte;
  7. j:integer;
  8. procedure writeln2(var sx:string; xkep:byte);
  9. var
  10. exit,exit2,x2,x3,x,i:byte;
  11. begin
  12. exit:=0; x:=1; xk:=xkep;
  13. repeat
  14. if (sb[x]=32)then { space }
  15. begin write(sx[x]);x:=x+1; xk:=xk+1; end
  16. else
  17. begin { szo }
  18. x2:=x; x3:=0; exit2:=0;
  19. repeat
  20. x2:=x2+1; if (x2>sb[0]) then exit2:=1; x3:=x3+1;
  21. if (sb[x2]=32)then exit2:=1;
  22. until(exit2=1);
  23. if((xk+x3)>79) then begin writeln; xk:=0; end;
  24. for i:=1 to x3 do begin write(sx[x]); x:=x+1; xk:=xk+1; end;
  25. end;
  26. if (x>sb[0]) then exit:=1;
  27. if (xk>79) then xk:=0;
  28. until(exit=1);
  29. end;
  30. begin
  31. clrscr;
  32. s1:='Megeszem e levesem madagaszkar lovasaira mondom hammerrel locsolkodni husvetkor';
  33. s1:=s1+' mennem kellett budapestre tegnap este. Kecskeleveslehetne valamihosszuszo kellene felsorolni..';
  34. writeln2(s1,0);
  35. writeln; writeln; xk:=0;
  36. for j:=1 to 12 do
  37. begin
  38. s1:=' gabbababbahely, galagalagala.';
  39. writeln2(s1,xk);
  40. s1:=' ezittenegyujszoo lenneha-volna-hosszuu.';
  41. writeln2(s1,xk);
  42. s1:=' hali GOOOOOOOOGLE.';
  43. writeln2(s1,xk);
  44. end;
  45. readln;
  46. end.
Success #stdin #stdout 0.02s 304KB
stdin
Standard input is empty
stdout
Megeszem e levesem madagaszkar lovasaira mondom hammerrel locsolkodni husvetkor mennem kellett budapestre tegnap este. Kecskeleveslehetne valamihosszuszo 
kellene felsorolni..

 gabbababbahely, galagalagala. ezittenegyujszoo lenneha-volna-hosszuu. hali 
GOOOOOOOOGLE. gabbababbahely, galagalagala. ezittenegyujszoo 
lenneha-volna-hosszuu. hali GOOOOOOOOGLE. gabbababbahely, galagalagala. 
ezittenegyujszoo lenneha-volna-hosszuu. hali GOOOOOOOOGLE. gabbababbahely, 
galagalagala. ezittenegyujszoo lenneha-volna-hosszuu. hali GOOOOOOOOGLE. 
gabbababbahely, galagalagala. ezittenegyujszoo lenneha-volna-hosszuu. hali 
GOOOOOOOOGLE. gabbababbahely, galagalagala. ezittenegyujszoo 
lenneha-volna-hosszuu. hali GOOOOOOOOGLE. gabbababbahely, galagalagala. 
ezittenegyujszoo lenneha-volna-hosszuu. hali GOOOOOOOOGLE. gabbababbahely, 
galagalagala. ezittenegyujszoo lenneha-volna-hosszuu. hali GOOOOOOOOGLE. 
gabbababbahely, galagalagala. ezittenegyujszoo lenneha-volna-hosszuu. hali 
GOOOOOOOOGLE. gabbababbahely, galagalagala. ezittenegyujszoo 
lenneha-volna-hosszuu. hali GOOOOOOOOGLE. gabbababbahely, galagalagala. 
ezittenegyujszoo lenneha-volna-hosszuu. hali GOOOOOOOOGLE. gabbababbahely, 
galagalagala. ezittenegyujszoo lenneha-volna-hosszuu. hali GOOOOOOOOGLE.