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 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.
