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.