US Dollar To Philippine Peso Converter in Turbo Pascal

Here is a sample program that I wrote using Turbo Pascal 6.0 for DOS to ask the user to give a value in US Dollars and convert it to Philippine Peso currency equivalent. The code is very simple and easy to understand. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

Program US_PESO;

Uses Crt;

Const

  

   PHP = 48.75;

Var  Convert : Real;

     US_value : Integer;

Begin

  

  Clrscr;

  Writeln;

  textcolor(white);

  Write('US Dollar To Philippine Peso Converter in Turbo Pascal');

  Writeln;

  Writeln;

  Write('Give the value in US Dollars : ');

  Readln(US_value);

  Convert := (US_value * PHP);

  Writeln;

  Write('The value of ',US_value, ' in Philippine Peso is ',convert:5:2,'.');

  Writeln;

  Writeln;

  Write('End of Program');

  Readln;

End.