home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / pascal / pascsrc.arc / CONVERT.PAS < prev    next >
Pascal/Delphi Source File  |  1988-01-15  |  954b  |  29 lines
  1.                                 (* Chapter 3 - Program 8 *)
  2. program Convert_From_Type_To_Type;
  3.  
  4. var Index,Count : integer;
  5.     Error_Ind   : integer;
  6.     Size,Cost   : real;
  7.     Letter      : char;
  8.     Name,Amount : string[12];
  9.  
  10. begin
  11.    Index := 65;
  12.    Count := 66;
  13.    Cost := 124.678;
  14.    Amount := '12.4612';
  15.  
  16.    Letter := Chr(Index);       (* convert integer to char *)
  17.    Size := Count;              (* convert integer to real *)
  18.  
  19.    Index := Round(Cost);       (* real to integer, rounded *)
  20.    Count := Trunc(Cost);       (* real to integer, truncated *)
  21.  
  22.    Index := Ord(Letter);       (* convert char to integer *)
  23.    Str(Count,Name);            (* integer to string of char *)
  24.    Val(Amount,Size,Error_Ind); (* string to real  note that
  25.                                   "Error_Ind" is used for
  26.                                   returning an error code *)
  27.  
  28.    Writeln('Name is ',Name,' and Size is ',Size:10:4);
  29. end.