Showing posts with label yard to feet converter in turbo pascal. Show all posts
Showing posts with label yard to feet converter in turbo pascal. Show all posts

Friday, March 17, 2017

Yard To Feet Converter in Turbo Pascal

Here is a sample program that will ask the user to give a value in yard and then our program will convert the given value in yard into feet equivalent using Pascal as our programming language. I use a function to do the conversion from yard to feet by multiplying the value in yard by 3 because 1 yard is equivalent to 3 feet. I hope you will find my work useful. 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 yard_feet_converter;
Uses WinCrt;

var val_1, solve : integer;

Function convert_feet(a : integer) : integer;
Begin
   convert_feet := (a*3);
End;


Begin
clrscr;
 writeln('YARD TO FEET CONVERTER IN PASCAL');
 writeln;
 Write('Give a value in yard : ');
 Readln(val_1);

 solve:= convert_feet(val_1);

 writeln;
 write('The equivalent value of ' ,val_1, ' yard is ',solve,' feet(s).');
 writeln;
 writeln;
 writeln('  END OF PROGRAM  ');
readln;
End.