In this article I wrote a sample program to ask the user to give a value in centimeter and then our program will convert it into inches equivalent using Pascal as our programming language. I am using Free Pascal as both my compiler and IDE this is open source project that is free to download and use from the Internet. I hope you will find my work useful.
programming projects , thesis and capstone projects, IT consulting
work and web development work kindly contact me in the following email address for further details. If you want to advertise in my website kindly contact me also in my email address also. Thank you.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.
Sample Program Output
Program Listing
cmtoinches.pas
Program CM_Inches;
Uses Crt;
Const
inch = 0.3937;
Var
cm : real;
solve : real;
Begin
Clrscr;
Writeln;
Writeln('Centimeter To Inches Converter in Pascal');
Writeln;
Write('Written By Mr. Jake R. Pomperada,MAED-IT ');
Writeln;
Writeln;
Write('Give the value in Centimeter? ');
Readln(cm);
solve := (cm * inch);
Writeln;
write('The equivalent value of ' ,cm:5:2, ' Centimeter (s) in Inches is ' ,solve:5:2,' Inche (s) .');
writeln;
Writeln;
write('End of Program');
writeln;
Readln;
End.
No comments:
Post a Comment