Showing posts with label us dollar to philippine peso converter in turbo pascal. Show all posts
Showing posts with label us dollar to philippine peso converter in turbo pascal. Show all posts

Thursday, May 4, 2017

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.