fork download
copy 
  1. program testlongstring;
  2. //uses sysutils; {trimright}
  3. var
  4.    z5,z45,z345,z2345,z12345: integer;
  5.  
  6. // type longstring= array[1..10] of char;
  7. //type longstring=ansistring;
  8. type longstring=string(255);
  9.  
  10. function nst(var z: integer): longstring;
  11. var
  12.    j,p10: integer;
  13.    s: array[1..10] of char;
  14. //   s: ansistring;
  15. begin
  16.    p10:=10000;
  17.    j:=1;
  18.    while p10>0 do 
  19.    begin
  20.       s[j]:=chr(48+((z div p10) mod 10));
  21.       j:=J+1;
  22.       p10:=p10 div 10;
  23.    end;
  24.    //nst:=s;
  25.    //nst:=trimright(s);   
  26.    nst:=trim(s);   
  27. end;
  28.  
  29. begin
  30.    z5:=5;
  31.    z45:=45;
  32.    z345:=345;
  33.    z2345:=2345;
  34.    z12345:=12345;
  35.    writeln('z5=',nst(z5));
  36.    writeln('z45=',nst(z45));
  37.    writeln('z345=',nst(z345));
  38.    writeln('z2345=',nst(z2345));
  39.    writeln('z12345=',nst(z12345));
  40.    writeln(nst(z5));
  41.    writeln(nst(z45));
  42.    writeln(nst(z345));
  43.    writeln(nst(z2345));
  44.    writeln(nst(z12345));
  45. end .
Success #stdin #stdout 0.01s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
z5=00005
z45=00045
z345=00345
z2345=02345
z12345=12345
00005
00045
00345
02345
12345
https://ideone.com/5tDeKw
language:
Pascal (gpc 20070904)
created:
7 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!