Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Conversioni - Conversion.pas

Conversion.pas

 Caricato da: Totem
Scarica il programma completo

  1. unit Conversion;
  2.  
  3. interface
  4.  
  5. function IntToChar(i:byte):char;
  6. function CharToInt(c:char):byte;
  7. function CharToString(c:char):string;
  8. function StringToChar(s:string):char;
  9. function RealToString(r:real):string;
  10. function StringToReal(s:string):real;
  11. function IntToReal(i:longint):real;
  12. function RealToInt(r:real):longint;
  13. function ByteToInteger(b:byte):integer;
  14. function IntegerToLong(i:integer):longint;
  15. function LongToInteger(l:longint):integer;
  16. function IntegerToByte(i:integer):byte;
  17.  
  18. implementation
  19. uses crt,windos;
  20.  
  21. function inttochar;
  22. begin
  23.     inttochar:=chr(ord('0')+i);
  24. end;
  25.  
  26. function chartoint;
  27. begin
  28.     chartoint:=ord(c)-ord('0');
  29. end;
  30.  
  31. function chartostring;
  32. var t:text;
  33.     s:string;
  34. begin
  35.     assign(t,'temp.tem');
  36.     rewrite(t);
  37.     writeln(t,c);
  38.     close(t);
  39.     reset(t);
  40.     readln(t,s);
  41.     close(t);
  42.     erase(t);
  43.     chartostring:=s;
  44. end;
  45.  
  46. function stringtochar;
  47. var t:text;
  48.     c:char;
  49. begin
  50.     assign(t,'temp.tem');
  51.     rewrite(t);
  52.     writeln(t,s);
  53.     close(t);
  54.     reset(t);
  55.     readln(t,c);
  56.     close(t);
  57.     erase(t);
  58.     stringtochar:=c;
  59. end;
  60.  
  61. function realtostring;
  62. var t:text;
  63.     s:string;
  64. begin
  65.     assign(t,'temp.tem');
  66.     rewrite(t);
  67.     writeln(t,r);
  68.     close(t);
  69.     reset(t);
  70.     readln(t,s);
  71.     close(t);
  72.     erase(t);
  73.     realtostring:=s;
  74. end;
  75.  
  76. function stringtoreal;
  77. var t:text;
  78.     r:real;
  79. begin
  80.     assign(t,'temp.tem');
  81.     rewrite(t);
  82.     writeln(t,s);
  83.     close(t);
  84.     reset(t);
  85.     readln(t,r);
  86.     close(t);
  87.     erase(t);
  88.     stringtoreal:=r;
  89. end;
  90.  
  91. function inttoreal;
  92. var t:text;
  93.     r:real;
  94. begin
  95.     assign(t,'temp.tem');
  96.     rewrite(t);
  97.     writeln(t,i);
  98.     close(t);
  99.     reset(t);
  100.     readln(t,r);
  101.     close(t);
  102.     erase(t);
  103.     inttoreal:=r;
  104. end;
  105.  
  106. function realtoint;
  107. var t:text;
  108.     i:longint;
  109. begin
  110.     assign(t,'temp.tem');
  111.     rewrite(t);
  112.     writeln(t,r);
  113.     close(t);
  114.     reset(t);
  115.     readln(t,i);
  116.     close(t);
  117.     erase(t);
  118.     realtoint:=i;
  119. end;
  120.  
  121. function bytetointeger;
  122. var t:text;
  123.     i:integer;
  124. begin
  125.     assign(t,'temp.tem');
  126.     rewrite(t);
  127.     writeln(t,b);
  128.     close(t);
  129.     reset(t);
  130.     readln(t,i);
  131.     close(t);
  132.     erase(t);
  133.     bytetointeger:=i;
  134. end;
  135.  
  136. function integertolong;
  137. var t:text;
  138.     l:longint;
  139. begin
  140.     assign(t,'temp.tem');
  141.     rewrite(t);
  142.     writeln(t,i);
  143.     close(t);
  144.     reset(t);
  145.     readln(t,l);
  146.     close(t);
  147.     erase(t);
  148.     integertolong:=l;
  149. end;
  150.  
  151. function longtointeger;
  152. var t:text;
  153.     i:integer;
  154. begin
  155.     assign(t,'temp.tem');
  156.     rewrite(t);
  157.     writeln(t,l);
  158.     close(t);
  159.     reset(t);
  160.     readln(t,i);
  161.     close(t);
  162.     erase(t);
  163.     longtointeger:=i;
  164. end;
  165.  
  166. function integertobyte;
  167. var t:text;
  168.     b:byte;
  169. begin
  170.     assign(t,'temp.tem');
  171.     rewrite(t);
  172.     writeln(t,i);
  173.     close(t);
  174.     reset(t);
  175.     readln(t,b);
  176.     close(t);
  177.     erase(t);
  178.     integertobyte:=b;
  179. end;
  180.  
  181. end.