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.  
  9. function nst(var z:integer): longstring;
  10. var
  11.    j,p10: integer;
  12.    s: array[1..10] of char;
  13. //   s: ansistring;
  14. begin
  15.    p10:=10000;
  16.    j:=1;
  17.    while p10>0 do 
  18.    begin
  19.       s[j]:=chr(48+((z div p10) mod 10));
  20.       j:=J+1;
  21.       p10:=p10 div 10;
  22.    end;
  23.    //nst:=s;
  24.    nst:=trimright(s);   
  25. end;
  26.  
  27. begin
  28.    z5:=5;
  29.    z45:=45;
  30.    z345:=345;
  31.    z2345:=2345;
  32.    z12345:=12345;
  33.    writeln('z5=',nst(z5));
  34.    writeln('z45=',nst(z45));
  35.    writeln('z345=',nst(z345));
  36.    writeln('z2345=',nst(z2345));
  37.    writeln('z12345=',nst(z12345));
  38.    writeln(nst(z5));
  39.    writeln(nst(z45));
  40.    writeln(nst(z345));
  41.    writeln(nst(z2345));
  42.    writeln(nst(z12345));
  43. end .
Success #stdin #stdout 0.01s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
z5=00005
z45=000450U
z345=003450U
z2345=023450U
z12345=123450U
000050U
000450U
003450U
023450U
123450U
https://ideone.com/1kP6fI
language:
Pascal (fpc 3.0.4)
created:
1 day 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!